Delphi cctalk协议实现硬币接受器

我想将硬币接收器集成到我的Delphi7应用程序中。此特定硬币接收器使用ccTalk协议

我一直在寻找一个ccTalk库，我可以从delphi使用它

你们有谁知道有什么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”调用按钮\u send单击，则不会发生任何事情

---

这是答案。

这像“ccLink”吗？这是三菱PLC使用的。嗯，我不知道，这里是cctalk的详细信息。你把设备正确地连接到串行端口了吗？然后您需要正确地打开端口，知道is编号（ex COM3）。我有pc 2串行通信的经验，但从未使用过cctalkYes，设备连接正确。连接到设备的软件工作正常，可以读取插入的硬币。Connecton似乎在COM3上正确打开（方法按钮\u OpenClick未给出任何异常）。。。问题只在于数据传输。如果CCtalk和其他主要标准MDB一样，它将有一些严格的定时要求。当硬币接受器启动时，它将期望控制器定期发送消息，可能每5毫秒左右一次（轮询询问是否接受了任何cons）。如果它错过了一定数量的这些，它可能会决定这里没有控制器，然后进入睡眠状态，等待重置。如果你已经找到了解决方案，你能把它贴出来，帮助别人吗？谢谢