UTF-8 zu Ansi konvertieren

[moloch]

Hallo,

ich möchte folgende Aktion mit Delphi machen was ich auch mit einem Editor machen kann.
Und zwar eine Datei öffnen die z. B. mit UTF-8 kodiert ist und sie mit speichern unter zu ANSI konvertieren.

Also wie kann ich eine Datei nehmen und ihr die Kodierung ANSI verpassen???

Grund ist ein Umlautproblem

mfg
moloch

[himitsu]

Also, ich hab in meinem aktuellem Projekt einige Funktionen, zum konvertieren zwischen Ansi-, Wide-, Long- und UTF8-Strings (eventuell kommt auch noch auch UTF16/UTF32 mit rein).
Das Päckchen ist jetzt zu großen Teilen fertig, aber noch nicht vollständig getestet.
Also in einien Wochen werd ich das dann wohl vorstellen können.

Aber in Delphi gibt es auch irgendwo schon einige API-Funktionen, von UTF8 nach Ansi ... ich werd' heute abend mal nachsehn, wie die hieß.

[mael]

Utf8ToAnsi() ist die gesuchte Funktion.
In der JCL sind auch noch ein paar interessante Unicode Funktionen enthalten (Unit JCLUnicode.pas).

[Bernhard Geyer]

Delphi hat seit Delphi 6 die undokumentierten Funktionen UTF8Encode und UTF8Decode in System.pas

[mael]

Utf8ToAnsi gehört übrigens auch zu Delphi 6+.

[Chris WF]

Und was mach ich in Delphi 5 ???

[sakura]

Zitat:

Zitat von Chris WF

Und was mach ich in Delphi 5 ???

Die Unicode Komponenten von Ralf Junker nutzen. Die sind eh viel besser :)
http://www.zeitungsjunge.de/delphi/unicode/index.htm

...:cat:...

[Chris WF]

Danke :)

[himitsu]

Und ich dachte Utf8ToAnsi wäre 'ne Windows-Funktion und hätte überhaupt nüschts mit Delphi zu tun, außer daß es die definition erst ab 6+ vorhanden zu sein scheint, was man in diesem Fäll hätte auch selber machen können :gruebel:

[Chris WF]

Ich muss nochmal nachhacken...
Wie wandele ich nun den String um???
Sagen wir mal ich hab ne Variable textutf8 und dann bräuchte ich ne Funktion

Delphi-Quellcode:

textansi := wasweißich(textutf8);

Nur find ich die irgendwie nich...

//EDIT: Also mit diesen Ralf Junker Komponenten