Fehlerhaftes Encodieren von OMPL Files

[DavidKlimas]

Hallo zusammen, ich habe ein Delphi program mit verschiedenen RSS Links welche ich in andere programme exportieren möchte.

Dafür benutze ich

Delphi-Quellcode:

...
  ExportStrings.Text := UTF8Encode(ExportStrings.Text);
  ExportStrings.SaveToFile(SaveDialog1.FileName);

Das klappt alles bestens nur das ich die Datei in anderen Programmen nicht öffnen kann. Entweder bekomme ich die Nachricht, das die datei Korrupt ist oder verschiedene zeichen werden als "�" angezeigt.

Irgenetwas klappt mit der encodierung nicht.

Danke für eure Hilfe...

KORREKTION: Der Filetype ist nicht OMPL sondern OPML, sorry dafür...
KORREKTION: OPML File angehängt...

[Bummi]

etwas in der Art

Code:

<?xml version="1.0" encoding="ISO-8859-1"?>

hast Du in Deinem XML drin?

[DavidKlimas]

Bummi,

ich hab das mit drin :

<?xml version="1.0" encoding="utf-8"?> Ich hab die datei oben mit angehängt...

[Bummi]

Ich bin nicht sicher ob ich Dir viel weiter helfen kann, aber
die Datei ist ANSI - Codiert
und die Teile bei q=" z.B. q="Boua
zerreissen die XML-Struktur

[himitsu]

Welche Delphi-Version?
Ab D2009 ist .Text ein Unicode-String und daran kannst du nichts ändern, außer beim SaveToFile den Encoding-Parameter anzugeben.


Und warum wollen du eine XML-Datei unbedingt selber verwalten, anstatt über eine XML-Komponente zu gehn, welche das alles richtig macht?
Wobei es hier eher nach XHTML aussieht, aber zum Erstellen reicht XML meistens aus.

PS: é und ô sind garantiert kein UTF-8, bzw. sie liegen nicht als UTF-8 kodiert in der Datei drin.

[DavidKlimas]

Ok, es sieht so aus als ob die UTF8Encode Function nicht richtig funktioniert. Mit der UTF8EncodeToWideString klappt es bestens.

Sieht so aus als ob ich meinen String zerhacken muss

[DavidKlimas]

Jetzt klappts/ Musste noch folgendes umwandeln :

Delphi-Quellcode:

    Str2 := ReplaceStr(Str2, '&','&');
    Str2 := ReplaceStr(Str2, '"','"');

Gleichzeitig den ETF-8Encode to WideString benutzen und alles klappt...

[himitsu]

Zitat von DavidKlimas:

Ok, es sieht so aus als ob die UTF8Encode Function nicht richtig funktioniert. Mit der UTF8EncodeToWideString klappt es bestens.

Sieht so aus als ob ich meinen String zerhacken muss

Nein, denn du hast immernoch nicht verraten, welche Delphiversion du verwendest.

Aber bei deiner Aussage klingt es nach was Neuerem, denn Delphi erkennt dort, daß du einen UTF8-String an einen UnicodeString zuweisen willst und wandelt dabei natürlich auch den String wieder zurück in Unicode um.
Und wenn das stimmt, dann nochmal die Frage, warum verwendest du dann nicht den Encodingparameter und warum arbeitest u nicht mit XML, wo du doch XML verwenden willst?

[DavidKlimas]

Delphi 2010 Architect.

Ich hab versucht mit der TXMLDocument Komponente zu arbeiten aber da kam nichts zufriedenstellendes dabei raus...