ZVT-Protokoll & APRO Comport

[z3bu]

Hallo,

ich habe ein ähnliches Problem mit der Ansteuerung über ZVT. Habe ein EC-Cash-Gerät ("Artema Hybrid") über die Ethernetschnittstelle in mein lokales Netzwerk eingebunden - bekomme auch ohne Probleme einen Ping, sowie eine TelNet-Verbindung realisiert. Mit dem Tool "T-Manager", ein Programm mit dem man ein solches EC-Cash-Gerät ansteuern kann, funktioniert z.B. das Initiieren eines Zahlungsvorgangs oder die einfache Anmeldung an das Gerät. Seitens der Konfiguration und Funktionsfähigkeit der Hardware bestehen somit keine Probleme. Nun möchte ich den hier ebenfalls erwähnten Befehl - "Chr(6) + Chr(0) + Chr(4) + Chr(0) + Chr(0) + Chr(0) + Chr(56)" - für die Anmeldung an das Gerät absetzen. Allerdings läuft die Anwendung auf einen Socket Error. Was mache ich falsch?

Code:

procedure BefehlSenden;
var
  lSBefehl : String;
begin
  lSBefehl := '';

  IdTCPClient1.Host := 'xxx.xxx.xxx.xxx'; // IP des EC-Cash-Gerätes
  IdTCPClient1.Port := 22000;

  IdTCPClient1.Connect; // funktioniert

  if IdTCPClient1.Connected then
    ShowMessage('Verbunden!');

  lSBefehl := Chr(6) + Chr(0) + Chr(4) + Chr(0) + Chr(0) + Chr(0) + Chr(56);
  lSBefehl := Chr(16) + Chr(2) + lSBefehl + Chr(16) + Chr(3) + Chr(28) + Chr(162);

  IdTCPClient1.SendCmd(lSBefehl); // nach Ausführung dieser Zeile kommt es zu dem Socket Error
end;

Würde mich über hilfreiche Antworten sehr freuen