Hexadezimalstring in: #$String

[Hawkeye219]

Hallo,

die Konvertierung kann auch recht einfach mit Bordmitteln durchgeführt werden:

Delphi-Quellcode:

// uses Types, Classes

procedure Convert (const s: string; var Buffer: TByteDynArray);
begin
  SetLength (Buffer, Length(s) div 2);
  SetLength (Buffer, HexToBin(PChar(LowerCase(s)), @Buffer[0], Length(Buffer)));
end;

// Anwendung:

var
  Buffer : TByteDynArray;
begin
  Convert ('0D14000058C157C14AAFB2001900000013000000', Buffer);
  Socket.Send (Buffer[0], Length(Buffer));
end;

Gruß Hawkeye