gp机编程示例delphi下控制串口.pdfVIP

Delphi下使用串口控制

使用Delphi编程的人员如果需要在Windows下使用串口控制顾客显示屏或串口，

就需要使用外来方式。我们这里提供了API_COM.DLL这个库供调用。

首先把API_COM.DLL文件到编写的源程序下，接着在程序的开头调用

的三个函数：

var

Form1:TForm1;

{加入下面三行}

functioncom_init(com:Integer;baud:Dword):Boolean;stdcall;externalapi_com.dll;

functioncom_rest:Boolean;stdcall;externalapi_com.dll;

functioncom_send(buf:PChar;len:Integer):Boolean;stdcall;externalapi_com.dll;

implementation

{$R*.DFM}

Com_init(1,9600)是打开串口进行通讯，1是打开COM1，波特率为9600。如果打开成功，它

会返回逻辑真告知串口打开。

Com_rest是关闭串口。

Com_send(命令，长度)是发送数据到串口。

{在窗体创建时打开端口}

procedureTForm1.FormCreate(Sender:TObject);

begin

Com_init(1,9600);

end;

{在按钮中发送内容}

procedureTForm1.Button1Click(Sender:TObject);

begin

Str=Chr(27)+Chr(112)+Chr(0)+Chr(25)+Chr(255);{控制开钱箱指令}

ifcom_send(Pchar(Str),Length(Str))then

begin

Label1.Caption:=已经发送命令;

end

else

begin

end;

end;

{在关闭窗体时关闭端口}

procedureTForm1.FormClose(Sender:TObject;varAction:TCloseAction);

begin

Com_rest;

end;

上面语句是控制开钱箱命令，其他令集只需要改变按钮中的Str的值即可：

下面是控制打印出“欢迎使用GP系列票据!”令：

Str=’欢迎使用GP系列票据!’+Chr(13)

ifcom_send(Pchar(Str),Length(Str))then

begin

Label1.Caption:=已经发送命令;

end

else

begin

end;