Hi,
ja das hatte ich gestern schon geändert. Der Port wird erst geschlossen wenn das Prog beendet wird.
Und Daten lese ich mit einem Extra Tool was den Port überwacht und mir alles ausgibt.
Laut der Antwort:
http://www.vb-magazin.de/forums/foru...129.aspx#20129
Müsste das Terminal so ansprechbar sein:
Code:
Kasse ® ZVT 10 02 06 00 04 28 00 11 38 10 03 1C A2 das unterstrichen ist der Befehl von Oben
ZVT ® Kasse 06
ZVT ® Kasse 10 02 80 00 00 10 03 F5 1F
Kasse ® ZVT 06
ZVT ® Kasse 10 02 06 0F 00 10 03 C6 33
Kasse ® ZVT 06
Kasse ® ZVT 10 02 80 00 00 10 03 F5 1F
ZVT ® Kasse 06
Aber bei mir kommt keine Antwort...
Der Quellcode sieht jetzt so aus:
Delphi-Quellcode:
var daten, strBefehl: String;
begin
daten := Chr(6) + Chr(0) + Chr(4) + Chr(0) + Chr(0) + Chr(0) + Chr(56);
strBefehl := Chr(16) + Chr(2) + daten + Chr(16) + Chr(3) + Chr(28) + Chr(162);
//strBefehl := Chr(16) + Chr(2) + Chr(6) + Chr(1) + Chr(10) + Chr(4) + Chr(0) + Chr(0) + Chr(0) +
//Chr(0) + Chr(21) + Chr(0) + Chr(73) + Chr(9) + Chr(120) + Chr(16) + Chr(3) + Chr(160) + Chr(116);
try
com_ec.PutString(strBefehl);
Application.ProcessMessages;
except
//com_ec.DonePort;
Application.ProcessMessages;
end;
end;