我想将硬币接收器集成到我的Delphi 7应用程序中。这种特定的硬币接收器使用ccTalk协议。
我一直在寻找一个可以在delphi中使用的ccTalk库。
你们中的任何人都知道有任何ccTalk库吗? 感谢
我想我必须使用comport组件,这里有一些代码
procedure TForm1.Button_OpenClick(Sender: TObject);
begin
try
if ComPort.Connected then
ComPort.Close
else
ComPort.Open;
except
ShowMessage('Connection error !');
exit;
end;
end;
procedure TForm1.Button_SettingsClick(Sender: TObject);
begin
ComPort.ShowSetupDialog;
end;
procedure TForm1.Button_SendClick(Sender: TObject);
var
Str: String;
begin
Str := Edit_Data.Text;
if NewLine_CB.Checked then
Str := Str + #13#10;
try
ComPort.WriteStr(Str);
except
ShowMessage('Comunication error !');
exit;
end;
end;
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
Str: String;
begin
ComPort.ReadStr(Str, Count);
Memo.Text := Memo.Text + Str;
end;
如果我用字符串“000 000 001 245 010”调用Button_SendClick,则没有任何反应......