Muss Zahlen in deren Hex Wert zerlegen, aus 9999 wird somit 270F, aus 100 wird 0064, diesen Wert als Byte speichern und nach Datenübertragung wieder zusammensetzen. Ich nutze hierzu folgenden Code.
Geht das auch besser ?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Buf : array [0..1] of Byte;
s : String;
begin
// zur Übertragung
s := IntToHex(StrToInt('9999'), 4);
ShowMessage(s);
// Datenübertragung muss als BYTE Wert erfolgen
Buf[0] := StrToIntDef('$' + s[1] + s[2], 0);
Buf[1] := StrToIntDef('$' + s[3] + s[4], 0);
// nach Übertragung
s := Format('%.2x', [Buf[0]]) + Format('%.2x', [Buf[1]]);
s := IntToStr(StrToInt('$' + s));
ShowMessage(s);
end;
/edit: Muss als Byte übertragen werden