Binären Wert schreiben

[scp]

Wenn der Code nicht verschlüsselt ist, dann speicher den String (der mit HexToBinStr umgewandelt wurde) doch einfach mal in eine Datei und öffne diese mit UltraEdit oder ähnlichem.

Ach ja, hier noch der umgekehrte Weg:

Delphi-Quellcode:

function BinToHexStr(SourceStr : String; Separator : String = ',') : String;
var
  ChrCnt : Word;
begin
  result := '';
  If (length(SourceStr) > 0) then
    for ChrCnt := 1 to length(SourceStr) do
      begin
        result := result + LowerCase(Format('%0:2.2x', [Ord(SourceStr[ChrCnt])]));
        If not (ChrCnt = length(SourceStr)) then
          result := result + Separator;
      end;
end;

Delphi-Quellcode:

      s := StringOfChar(#0, $7FFF);
      slen := ReadBinaryData('Serial', s[1], length(s));
      s := Copy(s, 1, slen);
      s := BinToHexStr(s);