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