Delphi下使用Sato打印机

[Parameter]  <GM>aaaaa, n-n
a “Total Byte of a BMP file”
n “Data”

procedure TForm1.btn2Click(Sender: TObject);
var
ALpt:string;
sCmdBuf:AnsiString;
ms:TmemoryStream;
Buf: pbyte;
nSize: int64;
begin
ms:=TMemoryStream.Create;
sCmdBuf:=chr(27)+'A'; //开始
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));

sCmdBuf:=chr(27)+'A3H001V001'; //设置起始点位置 h 001 v 001 水平和垂直位置都从1开始
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
sCmdBuf:=chr(27)+'CS6';               //速度
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
sCmdBuf:=chr(27)+'#E4';              //浓度
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
sCmdBuf:=chr(27)+'A1H0180';                   //设置标签的总宽度
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
sCmdBuf:=chr(27)+'V0084';             //设置标签的垂直高度
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
sCmdBuf:=chr(27)+'V0084'+chr(27)+'H0084'+chr(27)+'BG021081913043006';  //02 线条宽度 108 线条的dot高度
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
sCmdBuf:=chr(27)+'Q1';//打印份数
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
sCmdBuf:=chr(27)+'Z'; //结束标记
ms.write(pchar(sCmdBuf)^, length(sCmdBuf));
ALpt:=getdefaultprinter; //获取打印机名称
ms.Position := 0;
nsize := ms.Size;
buf := GetMemory(nsize);
ms.Read(buf^, nsize);
WriteRawStringToPrinter(ALpt, buf, nsize); //写入打印机端口
ms.free;
end;