Playlist aus itunes (.txt) lässt sich nicht einlesen!

[marabu]

Hallo,

die ersten beiden Bytes stellen ein sogenanntes Byte-Order-Mark dar, die Datei ist offensicgtlich UTF-16 kodiert.

Delphi-Quellcode:

procedure LoadText(s: TStrings; fn: TFileName);
const
  BOM_UTF16 = $FEFF;
var
  bom: Word;
  ws: WideString;
  fs: TFileStream;
begin
  fs := TFileStream.Create(fn, fmOpenRead or fmShareDenyWrite);
  try
    fs.Read(bom, SizeOf(bom));
    if bom = BOM_UTF16 then
    begin
      SetLength(ws, (fs.Size - fs.Position) shr 1);
      fs.Read(ws[1], Length(ws) shl 1);
      s.Text := WideCharToString(PWideChar(ws));
    end else s.LoadFromStream(fs);
  finally
    fs.Free;
  end;
end;

Mit LoadText(Memo.Lines, 'qp.txt') kannst du sie laden.

Alles Gute im Neuen Jahr.