基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

斑马打印机打印源码

rocedure PrintZpl(const AHost: string; const APort: Integer; const AZpl: string);
var
  TCPClient: TIdTCPClient;
begin
  TCPClient := TIdTCPClient.Create(nil);
  try
    TCPClient.Host := AHost;
    TCPClient.Port := APort;
    TCPClient.Connect;
    try
      // 发送 ZPL 指令
      Form2.Memo2.Lines.Add('连接打印机');
      //TCPClient.IOHandler.Write(AZpl);
      TCPClient.WriteLn(AZpl); //  delphi7的方式
      Form2.Memo2.Lines.Add('发送命令完毕');
      // 断开连接
      TCPClient.Disconnect;
    except
      on E: Exception do
      begin
        Writeln('Error: '   E.Message);
        ShowMessage('打印失败' e.message);
      end;
    end;
  finally
    TCPClient.Free;
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  needstr:TStringList;
begin
  if  CheckBox1.Checked then
  begin
   PrintZpl(Edit1.Text,StrToInt(Edit2.Text),Memo1.Text);
   Exit;
  end;
  Deletefile('2.txt');  //  请求地址获取下载的文件 然后 获取打印内容 发送打印机进行自动打印
  if UrlDownloadToFile(nil, PChar(edit3.Text),PChar('2.txt'), 0, nil)=0 then
  begin
    Memo1.Lines.LoadFromFile('2.txt');
    PrintZpl(Edit1.Text,StrToInt(Edit2.Text),Memo1.Text);
  end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  GetFedExpwaybillcode('',1);
end;