Delphi下使用Sato打印机

在Delphi下打印Sato标签，其中中文除用字卡以外，可以把中文生成BMP图片再打印，格式如下：

 [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;