?? unit1.~pas
字號:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, MSCommLib_TLB;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
MSComm1: TMSComm;
Button3: TButton;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button4: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
{加入下面三行聲明}
{ function com_init(com:Integer; baud:Dword):Boolean;stdcall;external 'api_com.dll';
function com_rest:Boolean;stdcall;external 'api_com.dll';
function com_send(buf:PChar; len:Integer):Boolean;stdcall;external 'api_com.dll';
}
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
Var F:TextFile;
Str:string;
Begin
try
Str:=' {D0470,0925,0450|}'+chr(10)+chr(13)
+'{AY;+10,0|}'+chr(10)+chr(13)
+'{C|}'+chr(10)+chr(13)
+'{PV00;0150,0226,0024,0042,J,00,B=OCr17Ni4Cu4Nb|}'+chr(10)+chr(13)
+'{PV01;0621,0226,0024,0042,J,00,B=OCr17Ni4Cu4Nb|}'+chr(10)+chr(13)
+'{PV02;0150,0275,0024,0042,J,00,B=12345|}'+chr(10)+chr(13)
+'{PV03;0621,0275,0024,0042,J,00,B=12345|}'+chr(10)+chr(13)
+'{PV04;0150,0321,0024,0042,J,00,B=100|}'+chr(10)+chr(13)
+'{PV05;0621,0321,0024,0042,J,00,B=100|}'+chr(10)+chr(13)
+'{XS;I,0002,0002C3201|}';
AssignFile(F, 'LPT1');
Rewrite(F);
Write(F, Str);
CloseFile(F);
Except
Messagedlg('數據發送失敗!',mterror,[mbok],0);
End;
// end;
// 如果需要控制并口打印機開錢箱,也只需要重新給Str如下賦值:
Str:= Chr(27)+'p'+Chr(0)+Chr(25)+Chr(255);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
// Com_init(1,9600);
end;
procedure TForm1.Button2Click(Sender: TObject);
Var
Str:string;
begin
Str:=Chr(27)+Chr(112)+Chr(0)+Chr(25)+Chr(255);{控制打印機開錢箱指令}
//Str:=’歡迎使用GP系列票據打印機!’+Chr(13)
{ if com_send(Pchar(Str),Length(Str)) then
begin
Label1.Caption :='已經發送命令';
end
else
begin
Label1.Caption :='發送失敗';
end;
}
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// Com_rest;
end;
procedure TForm1.Button3Click(Sender: TObject);
var s1:string;
begin
s1 := '9600,n,8,1';
MSComm1.CommPort:=1;
MSComm1.Settings :=s1;
MSComm1.InputMode:=0;
MSComm1.PortOpen :=true;
MSComm1.Output :=Edit1.Text ;
MSComm1.PortOpen :=False;
{
MSComm1.CommPort:= 2 ;
MSComm1.sSettings := '115200,n,8,1' ;
MSComm1.PortOpen = True;
MSComm1.InputMode = comInputModeBinary ;
MSComm1.Output = b;
MSComm1.PortOpen = False;
}
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
edit3.Text :=asc(edit2.Text);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -