Habe mir eine Funktion jetzt geschrieben:
Delphi-Quellcode:
function bufferToString(var Buf; Len: Integer): String;
var
a: array of Byte;
i: Integer;
begin
SetLength(a, Len);
for i := 0 to Len do
a[i] := PByte(Cardinal(@pchar(buf)) + i)^;
Result := String(a);
end;
Die Funktioniert wunderbar.