Unicode Problem mit Lazarus/Fpc

[cookie22]

Hallo,

gibt es für Lazarus sowas wie WideStrings.pas und WideStringUtils.pas aus Delphi?

Ich muss aus einer UTF-16 kodierten Datei Strings auslesen und diese dann per InsertMenuW dann in ein Menü einfügen. Leider bekomme ich im Menü nur Müll angezeigt und nicht meine chinesischen Zeichen. Jemand ne Idee?

[Bernhard Geyer]

Verwendet Lazarus/FPC nicht primär UTF-8?

[himitsu]

Darum möchte er ja das UTF-16 konvertieren :wink:

Irgendwie/-wo wird das bestimmt möglich sein. (kann mir nicht vorstellen, daß die sowas vergessen haben)

[Bernhard Geyer]

Die Frage ist erstmal: Wird die Textdati korrekt ausgelesen?

Dann schau mal ob du eine UTF8ToWideString-Funktion findest.

[cookie22]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1076535)

Die Frage ist erstmal: Wird die Textdati korrekt ausgelesen?

Dann schau mal ob du eine UTF8ToWideString-Funktion findest.

Was bringt mir UTF8ToWideString, ich muss UTF-16 lesen und das selbe an die API Funktion weiter geben.

Mir ist nicht mal klar wie ich die Datei lesen soll ohne das ich Datenmüll bekomme.

[JamesTKirk]

Zitat:

Zitat von Bernhard Geyer (Beitrag 1076527)

Verwendet Lazarus/FPC nicht primär UTF-8?

Lazarus verwendet UTF-8.
Free Pascal verwendet das Ansi System Encoding (unter Deutschem Windows meist CP1242 und unter Linux meist UTF-8).

Zitat:

Zitat von cookie22 (Beitrag 1076526)

Hallo,

gibt es für Lazarus sowas wie WideStrings.pas und WideStringUtils.pas aus Delphi?

Ich muss aus einer UTF-16 kodierten Datei Strings auslesen und diese dann per InsertMenuW dann in ein Menü einfügen. Leider bekomme ich im Menü nur Müll angezeigt und nicht meine chinesischen Zeichen. Jemand ne Idee?

Wie liest du die Datei denn aus?

Wenn du am Ende auf jeden Fall einen WideString hast, dann machst du z. B. für ein MenuItem einfach folgendes:

Delphi-Quellcode:

  // alle GUI Elemente in Lazarus verwenden UTF-8, also einen WideString in
  // UTF-8 umkodieren
  item.Caption := UTF8Decode(MeinWideString);
  // für einen Ansi String funktioniert das übrigens ähnlich
  item.Caption := AnsiToUTF8(MeinAnsiString);
  // oder
  item.Caption := SysToUTF8(MeinAnsiString);

Nebenbei: Du könntest an Stelle von WideString auch UnicodeString verwenden (ab Free Pascal 2.4.0). Dieser hat im Gegensatz zu WideString eine Referenzzählung und Copy-On—Write Funktionalität analog zu AnsiString (aka String).

Gruß,
Sven

[himitsu]

Abgesehn von den Surrogate-Pairs entspricht kann man ganz einfach WideStringToUtf8 nutzen.

[cookie22]

Zitat:

Wie liest du die Datei denn aus?

Das ist hier die frage die ich mir stellen, bis jetzt irgendwie gar nicht.

Die Datei ist im Ini-Format, darum meine Frage nach WideStrings. Da hätt ich einfach mit LoadfromFile die Datei in eine WideString-Liste geladen und mir meine Strings rausgepickt. Gib es da nichts ähnliches?

[himitsu]

Du kannst es notfalls über einen Stream in einen WideString laden, dann nach Ansi oder UTF-8 umwandeln und zum Schluß in eine Stringliste.


Aber warum nutzt du denn nicht direkt die WinAPI (davon die Wide-Version nutzen), bzw. kennt FPC/Lazarus denn kein TIniFile, welches diese API nutzt?

[cookie22]

Die Ini-Datei ist im UTF-16 Format, darum gibt es mit TIniFile nur Datenmüll.

[himitsu]

Die WinAPI kommt mit Ansi und Unicode (UTF-16) klar.
Also kennst das TIniFile in Delphi, welches direkt diese API nutzt auch mit Unicode-INIs zurecht.

Falls es sich um Wine handelt, dann hat man dort Mist implementiert und wenn es sich um Windows handelt, dann nutzt Lazarus unter Windows keine WinAPI und braut sein eigenes Süppchen, was auch Mist ist, wenn man es richtig macht.

GetPrivateProfileString

[cookie22]

Du meinst z.B.: GetPrivateProfileString und WritePrivateProfileString. Die benutzt Lazarus nicht.

edit: Mit GetPrivateProfileStringW geht es aber. :)

Danke.

[JamesTKirk]

Zitat:

Zitat von himitsu (Beitrag 1076556)

Die WinAPI kommt mit Ansi und Unicode (UTF-16) klar.
Also kennst das TIniFile in Delphi, welches direkt diese API nutzt auch mit Unicode-INIs zurecht.

Falls es sich um Wine handelt, dann hat man dort Mist implementiert und wenn es sich um Windows handelt, dann nutzt Lazarus unter Windows keine WinAPI und braut sein eigenes Süppchen, was auch Mist ist, wenn man es richtig macht.

GetPrivateProfileString

Die Free Pascal Implementierung von TIniFile ist komplett plattformunabhängig programmiert (nicht mal IFDEFs sind vorhanden). Deswegen verbietet sich die Nutzung der Windows API schon mal.

Ich hab jetzt allerdings auch keinen besseren Vorschlag als von Hand die Windows API zu verwenden (oder sich inifiles.pp zu schnappen und auf UnicodeString umzustellen).

Gruß,
Sven

[cookie22]

Nee, ist doch alles ok. Funktioniert perfekt. :D

Es geht um eine 64Bit Dll unter Windows, also muss es nicht plattformunabhängig sein.