Eine TextDatei öffnen mit Utf-8 Zeichensatz

[dwagner]

Hallo Christian,

Erst mal Danke für Dein Hilfe.
Ich habe Deinen Ansatz wie folgt getestet:

Delphi-Quellcode:

var
  fs    : TFileStream;
  wsBuf : WideString;

begin
OpenDialog1.Execute;
  fs := TFileStream.create(OpenDialog1.FileName, fmOpenRead);
  try
    wsBuf := StringOfChar(#00,fs.Size);
    fs.Read(wsBuf[1],fs.Size);
    Label3.Caption := wsBuf[1];
    Image1.Canvas.Font.Charset := EASTEUROPE_CHARSET;
    TextOutW(Image1.Canvas.Handle, 0, 0, PWideChar(wsBuf), fs.Size);
  finally
    FreeAndNil(fs);
  end;
end;

Leider funktioniert dies nicht. Ich hatte ebenfalls schon versucht die Datei mit Hilfe von
FileStream zu öffnen jedoch werden die Zeichen falsch dargestellt.
Ich bin ziemlich sicher das das Problem beim einlesen der Textdatei entsteht da ich erstens eine
Label Komponente installiert habe die Unicode unterstützt und mit dem Zeichen #8797 auch getestet habe und zweitens die Ausgabe der Api Funktion TextOutW ebnfalls funktioniert.

[edit=Christian Seehase]Delphi-Tags gesetzt. Mfg, Christian Seehase[/edit]