UTF-8 Tools

[theo]

Habe hier mal meine "gesammelten Werke" zu Unicode und UTF-8 in ein Package gelegt:
http://www.theo.ch/lazarus/utf8tools.zip" onclick="window.open(this.href);return false;

Demos sind dabei. Man muss sich aber ein bisschen mit dem Quellcode befassen.
Nur auf die Buttons klicken ist nicht so unterhaltsam.

Es gibt im Wesentlichen:

Eine Unit utf8scanner.pas: Ähnlich wie hier auch schon mal vorgestellt, aber etwas verbessert.
Eine Unit character.pas: Diese funzt ähnlich wie bei D2009. Mit der TCharacter Klasse kann man Informationen über Code Points erhalten.
Eine Unit charencstreams.pas. Dient zum Laden und Speichern von Unicode und Ansi Formaten in z.B. ein TMemo

Falls sich das jemand anschauen möchte und Fragen hat: fragen!

Das Ganze würde ich als Beta bezeichnen. Kann also noch Bugs aufweisen.

[mschnell]

Klasse !

-Michael

[af0815]

Hallo Theo,

ich bekomme bei den UTF8Tools (aktuell heruntergeladen) folgende Hinweise:

charencstreams.pas(206,21) Warning: Symbol "UTF16ToUTF8" is deprecated: "Use the function in LazUTF8 unit"
utf8scanner.pas(247,13) Warning: Symbol "UTF8CharacterToUnicode" is deprecated: "Use the function in LazUTF8 unit"
utf8scanner.pas(280,34) Warning: Symbol "UnicodeToUTF8" is deprecated: "Use the function in LazUTF8 unit"

ist dir das bekannt, kann man das langfristig ignorieren ?

Andreas (aka af0815)

[theo]

ist dir das bekannt, kann man das langfristig ignorieren ?

Ist im Moment eine Umleitung auf eben dies.

Z.B: in LCLProc:

Code: Alles auswählen

function UTF16ToUTF8(const S: UTF16String): AnsiString;
begin
  Result := LazUTF8.UTF16ToUTF8(S);
end;   
 

Kann ich bei Gelegenheit mal ändern, aber das ist z. Zt. kein Problem.

P.S. Die Ersetzung ist auch sehr einfach. Es muss nur überall in den "uses" LCLProc durch LazUTF8 ersetzt werden.

[theo]

OK, ist erledigt.

[af0815]

THX Theo,

perfekt. Keine 'Warnings' mehr.

Andreas

[BrunoT]

Hallo Theo,

ich möchte unter Linux Ansi - RTF - Dateien schreiben, Ich bekomme aber nur UTF8- Dateien
Im Memo habe ich UTF8- codierten Text und benutze die Unit charencstreams

Code: Alles auswählen

 
       Var
        fCES: TCharEncStream; 
.....
        fCES := TCharEncStream.Create;
        fCES.UniStreamType:=ufANSI;
        fCES.UTF8Text:=memo.Text;
        fCES.SaveToFile(SaveDialog1.FileName);
        memo.Lines.LoadFromFile(SaveDialog1.FileName);
 

Was mache ich falsch?

Danke im Voraus

[theo]

Was mache ich falsch? :

Es fehlt die gewünschte Zielkodierung.

Code: Alles auswählen

        fCES := TCharEncStream.Create;
        fCES.UniStreamType:=ufANSI;
        fCES.ANSIEnc:='ISO-8859-1'; //<---
        fCES.UTF8Text:=memo.Text;  

Eine Liste der möglichen Werte erhältst du mit:

Code: Alles auswählen

  GetSupportedANSIEncodings(Memo.Lines);   

[BrunoT]

Danke für die schnelle Antwort

Werde ich gleich mal testen.

...

Kaum macht man es richtig, funktioniert es auch!