Delphi XE5 System Utf8Encode gibt ISO-8859-1 Format zurück

[michele_tedesco]

Hallo zusammen

Ich habe heute versucht ein String "für" in UTF8 zu encodieren.
Dabei erhalte ich aber "f%FCr" zurück, anstatt "f%C3%BCr".

Als Referenz für den "korrekten" UTF8 String habe ich folgende Seite verwendet: http://www.url-encode-decode.com/

"f%FCr" entspricht dem Format ISO-8859-1 und nicht UTF-8. Wie gibt die Methode einen String mit dem falschen Format zurück??

Danke für eure Unrterstützung.

Hier noch der Code:

Delphi-Quellcode:

Utf8Encode('für');

[jbg]

Und welchen Typ hat die Variable, der du das "Utf8Encode('für')" zuweist? Nicht, dass der Compiler dir hier ein UTF8 nach ANSI einbaut.

[michele_tedesco]

Es geht um den variablen-Typ STRING. Ich nehme an an dass in XE 5 dies ein Widestring ist. korrekt?
Danke :-)

[uligerhardt]

Zitat:

Zitat von michele_tedesco (Beitrag 1271998)

Es geht um den variablen-Typ STRING. Ich nehme an an dass in XE 5 dies ein Widestring ist. korrekt?

Falsch. :-)
Ein UnicodeString.

[michele_tedesco]

Gut :-)

Jetzt bin ich schon Mal schlauer.

Dazu kommt noch, dass das Ziel der Funktion ist ein UTF8 string in ein Unicode-String umzuwandeln.
Der "alte" Code in Delphi 2007 verarbeitete ANSI Strings folgendermassen:

Delphi-Quellcode:

function UrlEncode(EncodeStr : STRING): STRING;
var I,J  : INTEGER;
    Help : AnsiString;
begin
  Result := '';
  for I := 1 to Length(EncodeStr) do begin
    if EncodeStr[I] in ['0'..'9','a'..'z','A'..'Z','$','-','_','.','+','!','*','(',')'] then
      Result := Result+EncodeStr[I]
    else begin
      Help := Utf8Encode(EncodeStr[I]);
      FOR J := 1 TO LENGTH(Help) DO 
        Result := Result+'%'+IntToHex(Ord(Help[J]),2);
    end; (* else *)
  end;
end;

Nun ist die Applikation auf XE5 portiert worden und muss somit mit Unicodestrings arbeiten.
Somit stimmmt der Teil

Delphi-Quellcode:

Result := Result+'%'+IntToHex(Ord(Help[J]),2);

nicht mehr.

Gibt es in Delphi XE5 eine Stadart-Funktion dafür oder muss man selber eine schreiben?

[Uwe Raabe]

Zitat:

Zitat von michele_tedesco (Beitrag 1272014)

Gibt es in Delphi XE5 eine Stadart-Funktion dafür oder muss man selber eine schreiben?

Ja, in IdURI.pas:

Delphi-Quellcode:

TIdURI.URLEncode

[michele_tedesco]

Vielen Dank :-)