Delphi 调用打印机指令ZPL实例--并口

// 通过指令发送数据到打印机
function TForm1.SendToPrinter():Boolean;
var
   hHandle: THandle;
   hModule: THandle;
   hEObject: THandle;
   WOverlapped: OVERLAPPED;
   DataStr: string;
   Buffer: PChar;
   nLength: Integer;
   writedbyte: DWORD;
   Func: TFnthex32;
   count,K: Integer;
   HexBuf: Ppchar;
   tmpstr0,tmpstr1: string;
   MidDataStr: string;
   SNBar:string;
   S1:Integer;


begin            
  hHandle:= CreateFile('LPT1',GENERIC_READ or GENERIC_WRITE,FILE_SHARE_READ or FILE_SHARE_WRITE,Nil,OPEN_EXISTING,FILE_FLAG_OVERLAPPED,0);
  if(hHandle = INVALID_HANDLE_VALUE) then
    begin
      Result:= False;
      Exit;
    end;
  hModule:= LoadLibrary('Fnthex32.dll');
  if(hModule <=0) then
    begin
      CloseHandle(hHandle);
      Result:= False;
      Exit;
    end;
  @Func:= GetProcAddress(hModule,'GETFONTHEX');
  if Assigned(@Func) then
    begin
      {***********************初始化变量*********