delphi pos机的顾客显示器如何初始化
发布网友
发布时间:2022-04-24 03:08
我来回答
共2个回答
热心网友
时间:2023-10-23 21:02
顾显一般是接COM口的。你买的时候应该有配有一条线。一端接顾显。另一端接机箱里的电源。
光连好了也没用啊,还得你的软件也支持这个显示.
然后再到POS软件里设置一下就OK 了。
热心网友
时间:2023-10-23 21:02
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procere Button1Click(Sender: TObject);
procere FormCreate(Sender: TObject);
procere FormClose(Sender: TObject; var Action: TCloseAction);
procere Button2Click(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}
procere TForm1.FormCreate(Sender: TObject);
begin
Com_init(1,2400);
end;
procere TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Com_rest;
end;
procere TForm1.Button2Click(Sender: TObject);
var
PDStr:string;
begin
PDStr:=Chr(27)+Chr(81)+Chr(65)+'1234.56'+Chr(13);
if com_send(Pchar(PDStr),Length(PDStr)) then
begin
Label1.Caption :='已经发送命令';
end
else
begin
Label1.Caption :='发送失败';
end;
PDStr:= Chr(27)+Chr(115)+'2';
if com_send(Pchar(PDStr),Length(PDStr)) then
begin
Label1.Caption :='已经发送命令';
end
else
begin
Label1.Caption :='发送失败';
end;
end;
end.
把'api_com.dll'放在程序目录就可以了。
热心网友
时间:2023-10-23 21:02
顾显一般是接COM口的。你买的时候应该有配有一条线。一端接顾显。另一端接机箱里的电源。
光连好了也没用啊,还得你的软件也支持这个显示.
然后再到POS软件里设置一下就OK 了。
热心网友
时间:2023-10-23 21:02
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procere Button1Click(Sender: TObject);
procere FormCreate(Sender: TObject);
procere FormClose(Sender: TObject; var Action: TCloseAction);
procere Button2Click(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}
procere TForm1.FormCreate(Sender: TObject);
begin
Com_init(1,2400);
end;
procere TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Com_rest;
end;
procere TForm1.Button2Click(Sender: TObject);
var
PDStr:string;
begin
PDStr:=Chr(27)+Chr(81)+Chr(65)+'1234.56'+Chr(13);
if com_send(Pchar(PDStr),Length(PDStr)) then
begin
Label1.Caption :='已经发送命令';
end
else
begin
Label1.Caption :='发送失败';
end;
PDStr:= Chr(27)+Chr(115)+'2';
if com_send(Pchar(PDStr),Length(PDStr)) then
begin
Label1.Caption :='已经发送命令';
end
else
begin
Label1.Caption :='发送失败';
end;
end;
end.
把'api_com.dll'放在程序目录就可以了。
热心网友
时间:2023-10-23 21:02
顾显一般是接COM口的。你买的时候应该有配有一条线。一端接顾显。另一端接机箱里的电源。
光连好了也没用啊,还得你的软件也支持这个显示.
然后再到POS软件里设置一下就OK 了。
热心网友
时间:2023-10-23 21:02
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Label1: TLabel;
procere Button1Click(Sender: TObject);
procere FormCreate(Sender: TObject);
procere FormClose(Sender: TObject; var Action: TCloseAction);
procere Button2Click(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}
procere TForm1.FormCreate(Sender: TObject);
begin
Com_init(1,2400);
end;
procere TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Com_rest;
end;
procere TForm1.Button2Click(Sender: TObject);
var
PDStr:string;
begin
PDStr:=Chr(27)+Chr(81)+Chr(65)+'1234.56'+Chr(13);
if com_send(Pchar(PDStr),Length(PDStr)) then
begin
Label1.Caption :='已经发送命令';
end
else
begin
Label1.Caption :='发送失败';
end;
PDStr:= Chr(27)+Chr(115)+'2';
if com_send(Pchar(PDStr),Length(PDStr)) then
begin
Label1.Caption :='已经发送命令';
end
else
begin
Label1.Caption :='发送失败';
end;
end;
end.
把'api_com.dll'放在程序目录就可以了。