ReadString aus TIniFile fehlerhaft

[Moony]

Hallo zusammen,

habe eine Textdatei im Iniformat. In dieser Datei wird an einer Stelle ein SQL Befehl gespeichert, den ich dann mit TIniFile.ReadString() auslese. Der SQL Befehl beinhaltet Sonderzeichen im Alias als Feldname wie 'Gültig bis'.
Jetzt mein Problem: Leider werden die Sonderzeichen als Hyroglyphen eingelesen und nicht wie es sein sollte. In der Datei steht der Befehl richtig drin, im Programm kann der SQL Befehl leider nicht ausgefhrt werden.

Hoffe auf Hilfe! Danke & Gruß,
Moony

[DeddyH]

Wurde die Ini mit einem anderen Programm erstellt? Es scheint sich ja um unterschiedliche Kodierungen zu handeln.

[Moony]

Ja, die Datei wurde von einer Webanwendung geschrieben und ich verarbeite diese. Die Kodierung der Datei ist UTF8 ohne BOM.

[DeddyH]

Dann versuch mal
StringVar := Utf8Decode(Ini.ReadString(...)); [edit] Oder Utf8ToString, da UTF8Decode als veraltet markiert ist. [/edit]

[himitsu]

Zitat von Moony:

Die Kodierung der Datei ist UTF8 ohne BOM.

Und woher soll dann die Auslesefunktion das wissen?

Der Standard ist nunmal ANSI, also wird auch als ANSI ausgelesen.



Zu dem Vorschlag von DeddyH:
Aufpassen, denn dein Delphi 2010 ließt es als ANSI aus, konvertiert es nach Unicode (ANSI>Unicode) und Utf8Decode würde das Unicode jetzt als RawString (hoffentlich zufällig mit einer Umkodierung nach ANSI) übernehen, versuchen als UTF-8 zu interpretieren und dann nach versuchen nach Unicode umzuwandeln.


Ich weiß auch garnicht, ob UTF-8 von der verwendeten WinAPI, welche in TIniFile gekapselt ist, überhaupt unterstützt wird.


Verwende stattdessen z.B. TMemIniFile und gib als Encoding das UTF-8 explizit an.
TMemIniFile arbeitet intern mit einer TStringList, welche es auch ohne BOM uslesen und konvertieren kann, danach werden alle Leseoperationen intern über diese StringList abgehandelt.

[Moony]

Ok, dann versuche ich es mit Tmeminifile und melde mich zurück.

[Moony]

So, habe es versucht, aber ich besitze keine Encoding-Eigenschaft. Ich arbeite bei diesem Projekt mit Delphi 2007.

[Bjoerk]

Zitat von Moony:

So, habe es versucht, aber ich besitze keine Encoding-Eigenschaft. Ich arbeite bei diesem Projekt mit Delphi 2007.

Dann ist string ein Alias auf Ansistring, egal ob TInfile oder TMemInifile.
Probier mal AnsiToUtf8 o. ä..

[DeddyH]

Das kann man aber auch sagen, wenn im Profil D2010 angegeben ist. Neuer Versuch:

Delphi-Quellcode:

var
  s: UTF8String;
begin
  ...
  s := UTF8String(Ini.ReadString(...));
  ShowMessage(UTF8ToAnsi(s));

Ob der explizite Typecast etwas bringt, weiß ich nicht, schaden kann es aber wohl kaum. In einem kurzen Test wurde zumindest bei mir "Gültig bis" korrekt ausgegeben.

[Moony]

Danke, das funktioniert....

Habe jetzt lediglich UTF8ToAnsi an eine Variable des Typs AnsiString übergeben und es klappt.