Lauftext arbeitet nicht korrekt

[marabu]

Hallo Nils,

Result.Artist := Copy(Buffer, 34, 30); du liest mit Copy() einen festen Bereich aus einer Struktur in einen String fester Länge. In Buffer ist Artist aber ein array of byte, welches rechts mit low values (#0) aufgefüllt wird. Du musst also anders vorgehen:

Delphi-Quellcode:

function BufToStr(buf: PChar; maxSize: Integer): String;
begin
  SetLength(Result, maxSize);
  Move(buf^, Result[1], maxSize);
  Result := StrPas(@Result[1]);
end;

Grüße vom marabu