Zitat von
himitsu:
hmmm
, komm in HexCodeList z.B. die #0 als Zeichen vor?
Danke für den Tipp, hab da mal gedebugged und siehe da, Steuerzeichen werden von dem Parser nicht übersetzt.
Da lag auch der Fehler, da der HexString also unvollständig war (es fehlten die Steuerzeichen in der Mitte).
Jetzt suche ich natürlich einen Weg, meine 'ParseHex' Funktion entsprechend aufzubohren.
Ganz 'Quick & Dirty' natürlich mit if...then, aber das ist ja nur eine Notlösung.
Wie werte ich die Steuerzeichen nun mit aus?
Anbei mal meine Funktion (nicht meckern, quick´n´dirty eben).
StrToHex übersetzt die Zeichen, aber eben keine Steuerzeichen
Delphi-Quellcode:
function TForm2.ParseHex(SourceBuffer: array of Char): String;
var
i: Integer;
StringBuffer: string;
begin
StringBuffer := '';
for i := 0 to Length(SourceBuffer)-1 do
begin
if SourceBuffer[i] = #17 then
StringBuffer := StringBuffer + '11'
else if SourceBuffer[i] = #0 then
StringBuffer := StringBuffer + '00'
else if SourceBuffer[i] = #1 then
StringBuffer := StringBuffer + '01'
else if SourceBuffer[i] = #2 then
StringBuffer := StringBuffer + '02'
else if SourceBuffer[i] = #3 then
StringBuffer := StringBuffer + '03'
else if SourceBuffer[i] = #4 then
StringBuffer := StringBuffer + '04'
else if SourceBuffer[i] = #5 then
StringBuffer := StringBuffer + '05'
else if SourceBuffer[i] = #6 then
StringBuffer := StringBuffer + '06'
else if SourceBuffer[i] = #7 then
StringBuffer := StringBuffer + '07'
else if SourceBuffer[i] = #8 then
StringBuffer := StringBuffer + '08'
else if SourceBuffer[i] = #9 then
StringBuffer := StringBuffer + '09'
else if SourceBuffer[i] = #10 then
StringBuffer := StringBuffer + '0A'
else if SourceBuffer[i] = #11 then
StringBuffer := StringBuffer + '0B'
else if SourceBuffer[i] = #12 then
StringBuffer := StringBuffer + '0C'
else if SourceBuffer[i] = #13 then
StringBuffer := StringBuffer + '0D'
else if SourceBuffer[i] = #14 then
StringBuffer := StringBuffer + '0E'
else if SourceBuffer[i] = #15 then
StringBuffer := StringBuffer + '0F'
else if SourceBuffer[i] = #16 then
StringBuffer := StringBuffer + '10'
else if SourceBuffer[i] = #26 then
StringBuffer := StringBuffer + '1A'
else if SourceBuffer[i] = #32 then
StringBuffer := StringBuffer + '20'
else
StringBuffer := StringBuffer + StrToHex(SourceBuffer[i]);
end;
Result := StringBuffer;
end;