Delphi cctalk协议实现硬币接收器

时间:2011-09-22 12:57:32

标签: delphi cctalk

我想将硬币接收器集成到我的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,则没有任何反应......

这是device protocol manual

0 个答案:

没有答案