WritePrivateProfileW und Unicode INI-Files

[martinf16]

Ich versuche einen Unicode-String in ein INI-File zu schreiben. Die Unit TIniFiles hab ich entsprechend auf WideStrings umgestellt, jedoch bereitet eine Stelle Probleme:

Delphi-Quellcode:

WritePrivateProfile

Ich habe diese Funktion mit WritePrivateProfileW ausgetauscht, um WideStrings schreiben zu können, trotzdem tauchen aber die Fragezeichen auf, es wird als ANSI gespeichert.

In diversen C++ Foren hab ich dann gelesen, dass diese Funktion ein ANSI File erstellt und nur in ein vorhandens INI-File Unicode schreibt. Also hab ich um es auszutesten eine UTF8 Datei erstellt und mit WritePrivateProfileW in diese Datei gespeichert - wieder nur Fragezeichen, also wieder nur ANSI geschrieben.

Jetzt komm ich nicht mehr weiter.... Wisst ihr was los ist?!?!

PS: Ich habe schon getesten ob der WideString nicht auf dem Weg zur Funktion verlorengeht, das kann nicht der Fehler sein.

[himitsu]

unicode ini

Kurz gesagt:
Wurde die INI-Datei mit einer Ansi-Funktion erstellt, dann ist und bleibt sie ANSI.
Und mit'm Unicode isses andersrum.

Nicht alles glauben, was die C++-ler einen einreden wollen. :angel2:

[Stevie]

Zitat:

Zitat von himitsu

Nicht alles glauben, was die C++-ler einen einreden wollen. :angel2:

Lies mal den letzten Satz unter Parameters: WritePrivateProfileString

Nur was einem dort keiner sagt, ist, dass die Datei UTF16 sein muss, damit das klappt.

[himitsu]

Du meinst?

Zitat:

If the file was created using Unicode characters, the function writes Unicode characters to the file. Otherwise, the function writes ANSI characters.

Und das für Windows Unicode = UTF-16 ist, daß ist ja wohl selbstverständlich :-D

[Bernhard Geyer]

Zitat:

Zitat von himitsu

Und das für Windows Unicode = UTF-16, daß ist ja wohl selbstverständlich :-D

Nicht unbedingt. Aber ich vermute das die WriteXXX-Methoden nicht erkennen das es einen UTF8-BOM gibt und diesen überlesen (Als "komische" Daten im File ansehen). Erst bei UTF-16 müssen die Lese/Schreibroutinen auf Widechars umgestellt werden da sonst die (vermutlich C/C++)-Implementierung sonst die Strings nicht auslesen könnte. Bei UTF8 kann man auch mit Ansichars lesen/schreiben.

[Stevie]

Zitat:

Zitat von himitsu

Und das für Windows Unicode = UTF-16 ist, daß ist ja wohl selbstverständlich :-D

Scheinbar nicht :wink:

Zitat:

Zitat von martinf16

Also hab ich um es auszutesten eine UTF8 Datei erstellt und mit WritePrivateProfileW in diese Datei gespeichert - wieder nur Fragezeichen, also wieder nur ANSI geschrieben.

[himitsu]

Wenn ich das richtig mitbekomman hab, dann wird nur das Unicode-BOM (UTF-16) erkannt und alles andere ist Ansi, wobei das BOM dann als Text angesehn wird.

[martinf16]

Gut, danke schon mal. Das könnte die Ursache sein.. UTF8 wird nicht als Unicode erkannt, UTF16 ist gefordert.

Die bisher verwendete Signatur für UTF8 von mir war EF BB BF, wie ist diese aber bei dem unterstützen vom Windows unterstützten UTF16? FE FF für Big Endian oder FF FE für Little Endian habe ich im Netz gefunden.. Ist das egal welche man nimmt?

[Bernhard Geyer]

Zitat:

Zitat von martinf16

FE FF für Big Endian oder FF FE für Little Endian habe ich im Netz gefunden.. Ist das egal welche man nimmt?

Probiers doch aus. Normalerweise ist es egal, außer hier wurde auch noch geschlampt und nur eine implementiert.

[martinf16]

Ich habs mit beiden Signaturen ausprobiert und jetzt ist zu viel des guten passiert: Die ganze Datei (geöffnet im TextEditor) besteht nur noch aus chinesischen Zeichen und kann dementsprechend auch nicht mehr eingelesen werden...

Hab dann mal versucht manuell in die Datei zu schreiben (unterer Teil), aber auch das produziert die chinesischen Zeichen... Wie kann das denn passieren?!

Hier mein Code:

Delphi-Quellcode:

var
  f: file;
  ftxt: TextFile;
  fsig: array [0..2] of byte;
begin
  fsig[0]:=$FF;
  fsig[1]:=$FE;
  try
    AssignFile(f, 'text.txt');
    ReWrite(f, 1);
    BlockWrite(f, fsig, sizeof(fsig));
  finally
    CloseFile(f);
  end;

  //zu Testzwecken hier das manuelle Schreiben
  try
    AssignFile(ftxt, 'text.txt');
    Append(ftxt);
    Writeln('blabla');
  finally
    CloseFIle(ftxt);
  end;
end;