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]