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'放在程序目录就可以了。