Forum: Programmieren allgemein
by SvB,
18. Jan 2008
Alles OK. Es funktioniert jetzt auch in meiner Anwendung.
Ganz so einfach ist das ganze dann aber doch nicht, das Protokoll (von 1984 glaube ich) doch etwas umständlich ist. Heute würde ich das etwas anders machen.
Hier mal der Code, mit dem ich das gesamte "DataFile" für Filetype 11 zusammenbaue.
procedure EncodeBDVMoney(Value: Real);
var
cDigits: String;
lData: array of Byte;
Forum: Programmieren allgemein
by SvB,
18. Jan 2008
Super Danke.
Ich mache schon seit zwei kompletten Tagen jeweils von ca. 09:00 bis ca. 23:00 Uhr da rum und hatte schon so viel getestet, dass ich im Moment wirklich nichts mehr verstehe.
Du hast natürlich vollkommen recht, dass ich die Bytes nicht als String übergeben kann.
Deine Funktion CalcChecksum funktioniert und die SendData musste ich wie folgt abändernund und habe sie mal für...
Forum: Programmieren allgemein
by SvB,
18. Jan 2008
Danke für Eure Hilfe.
@Muetze1
Irgendwie habe ich ein Brett vor dem Kopf. Ich komme nicht drauf, wie ich Deine funktion benutzen soll, wie rufe ich die auf? Mit Pointern usw. habe ich es nicht so.
Ich habe mal alle Bytes als Bits (0+1) nacheinander in ein Memo gestellt.
1000000100001010000010110010000000000000101100000000010100000000
Die Funktion rufe ich dann wie folgt auf:
Edit1.Text...
Forum: Programmieren allgemein
by SvB,
17. Jan 2008
Hallo,
ich muss für einen Verpflegungsautomaten eine Anbindung schreiben und habe jetzt ein Problem beim Berechnen der CheckSum des Protokolls.
Hier mal die Beschreibung aus der Doku des Protokolls
Byte 1 bis 3 sind der Header und 4 bis 8 sind die Databytes. Alles zusammen inkl. der CheckSum ist das Datafile.
Mit einem Münzer habe ich mal mitgeloggt, was der an den Automaten sendet und...