TidHTTP.Post, Sonderzeichen/Umlaute

**schwa226**

Hallo zusammen!

Ich schicke per TidHTTP.Post einen XML-String an einen Server.
Dieser schickt mir einen XML-String zurück.

Nun habe ich aber das Problem, dass mir TidHTTP im String die Umlaute/Sonderzeichen nicht versteht.

Wenn ich die Anfrage per Java an den Server mache muss ich das Encoding vom XML auf 'ISO-8859-15' setzen damit es funktioniert. Wie löse ich das aber mit TidHTTP.Post?

Danke!

**Bernhard Geyer**

Wieso nicht gleich alles UTF8-Codiert?

**schwa226**

Weil ich nicht weis wie es geht!?

Wenn ich es so mache bekomme ich eine Antwort vom Server.
Jedoch mit den verstümmelten Sonderzeichen.

zusammenfalten · markieren

Delphi-Quellcode:

			function TForm1.GetXMLStr : Boolean;

var

   res: String;

   str : TStringStream;

const

  URL = 'http://127.0.0.1';

const

  req : String =

  '<body><version>1.0</version>body>';

begin

  str := TStringStream.Create;

  str.WriteString(req);

  res := IdHTTPRequest.Post(URL, str);

  str.Free;

end;

**p80286**

Dann frag einmal Deine OH nach TEncoding.UTF8.
Wenn's das noch nicht gibt, bleibt Dir noch der Weg die Übersetzung per Hand zu Erledigen z.B. so

zusammenfalten · markieren

Delphi-Quellcode:

			FUNCTION  AnsiToUtf8 (Source : ANSISTRING) : STRING;

          (* Converts the given Windows ANSI (Win1252) String to UTF-8. *)

VAR

  I   : INTEGER;  // Loop counter

  U   : WORD;     // Current Unicode value

  Len : INTEGER;  // Current real length of "Result" string

BEGIN

  SetLength (Result, Length (Source) * 3);   // Worst case

  Len := 0;

  FOR I := 1 TO Length (Source) DO BEGIN

    U := WIN1252_UNICODE [ORD (Source [I])];

    CASE U OF

      $0000..$007F : BEGIN

                       INC (Len);

                       Result [Len] := CHR (U);

                     END;

      $0080..$07FF : BEGIN

                       INC (Len);

                       Result [Len] := CHR ($C0 OR (U SHR 6));

                       INC (Len);

                       Result [Len] := CHR ($80 OR (U AND $3F));

                     END;

      $0800..$FFFF : BEGIN

                       INC (Len);

                       Result [Len] := CHR ($E0 OR (U SHR 12));

                       INC (Len);

                       Result [Len] := CHR ($80 OR ((U SHR 6) AND $3F));

                       INC (Len);

                       Result [Len] := CHR ($80 OR (U AND $3F));

                     END;

      END;

    END;

  SetLength (Result, Len);

END;

(Ist nicht von mir, aber um das Prinzip zu erkennen sollte es reichen)

Gruß
K-H

**Bernhard Geyer**

Zitat von schwa226:

Jedoch mit den verstümmelten Sonderzeichen.

Wie schaut diese verstümmelung z.B. für ü aus?

Zitat von schwa226:

'<body><version>1.0</version>body>';

Ein vollständiges Korrektes XML wäre das ja nicht.

**NickelM**

Wenn dies nicht funktioniert, gibt es noch eine WinAPi-Funktion die Ansi zu UTF8 Konvertieren kann.
Da ist erst ab einer bestimmten Delphiversion die Klasse TEncoding gibt, hab ich mit Delphi 5 eine Funktion geschrieben um Ansi zu UTF8. Und die gibts schon seit Win98 xD

zusammenfalten · markieren

Delphi-Quellcode:

			type

TEncoding = (eANSI,eUTF8,eUTF7);

//Wichtig AnsiString muss oben stehen.

function DecodeString(Text : AnsiString; Encoding : TEncoding) : AnsiString;

var UStr: WideString;//oder UnicodeString, kommt auf die Delphi-Version an

    CharCount : Integer;

const EncodingType : array [TEncoding] of Cardinal = (CP_ACP,CP_UTF8,CP_UTF7);

begin

//Resultatlänge lesen

CharCount := MultiByteToWideChar(EncodingType[Encoding], 0,

PAnsiChar(Text), Length(Text), nil, 0);

//Resultatlänge setzen.

SetLength(UStr, CharCount);

//Konvertieren

MultiByteToWideChar(EncodingType[Encoding], 0,

PAnsiChar(Text), Length(Text), PWideChar(UStr), CharCount);

Result := AnsiString(UStr);

end;

//So würde der Aufruf sein,anhand deines Beispiels sein:

function TForm1.GetXMLStr : Boolean;

var

   res: AnsiString; //Wäre ratsam

   str : TStringStream;

const

  URL = 'http://127.0.0.1';

const

  req : String =

  '<body><version>1.0</version>body>';

begin

  str := TStringStream.Create;

  str.WriteString(req);

  res := IdHTTPRequest.Post(URL, str);

  res := DecodeString(res,eUTF8);

  str.Free;

end;

So konnte ich die Klasse TEncoding in Delphi 5 so einigermassen "emulieren"

**geskill**

Hey,
also Indy übernimmt das für einen komplett! So wie ihr habe ich das auch lange gemacht, alles Falsch

Schau dazu mal in meinem Tutorial:

http://www.delphipraxis.net/160152-i...protokoll.html

Aus dem Abschnitt Daten Senden das Beispiel müsstest du halt für dich etwas anpassen.

Grüße

**mjustin**

Zitat von geskill:

Hey,
also Indy übernimmt das für einen komplett! So wie ihr habe ich das auch lange gemacht, alles Falsch

Schau dazu mal in meinem Tutorial:

http://www.delphipraxis.net/160152-i...protokoll.html

Aus dem Abschnitt Daten Senden das Beispiel müsstest du halt für dich etwas anpassen.

Grüße

Das Tutorial ist exzellent - aber der hier benötigte Fall, dass ein POST nur einen einfachen Text (hier XML) als Body enthält und keine Formularfelder, fehlt noch. Ist aber sicher auch mit wenigen Zeilen einschliesslich Encodingangabe gelöst

TidHTTP.Post, Sonderzeichen/Umlaute

TidHTTP.Post, Sonderzeichen/Umlaute

AW: TidHTTP.Post, Sonderzeichen/Umlaute

AW: TidHTTP.Post, Sonderzeichen/Umlaute

AW: TidHTTP.Post, Sonderzeichen/Umlaute

AW: TidHTTP.Post, Sonderzeichen/Umlaute

AW: TidHTTP.Post, Sonderzeichen/Umlaute

AW: TidHTTP.Post, Sonderzeichen/Umlaute

AW: TidHTTP.Post, Sonderzeichen/Umlaute

Forumregeln

Bernhard Geyer Registriert seit: 13. Aug 2002 17.201 Beiträge Delphi 10.4 Sydney	#2 AW: TidHTTP.Post, Sonderzeichen/Umlaute 4. Jun 2012, 12:08 Wieso nicht gleich alles UTF8-Codiert? Windows Vista - Eine neue Erfahrung in Fehlern.
	Zitat

Bernhard Geyer Registriert seit: 13. Aug 2002 17.201 Beiträge Delphi 10.4 Sydney	#5 AW: TidHTTP.Post, Sonderzeichen/Umlaute 4. Jun 2012, 13:18 Zitat von schwa226: Jedoch mit den verstümmelten Sonderzeichen. Wie schaut diese verstümmelung z.B. für ü aus? Zitat von schwa226: '<body><version>1.0</version>body>'; Ein vollständiges Korrektes XML wäre das ja nicht. Windows Vista - Eine neue Erfahrung in Fehlern.
	Zitat

geskill Registriert seit: 17. Feb 2007 Ort: NRW 420 Beiträge Delphi 2010 Professional	#7 AW: TidHTTP.Post, Sonderzeichen/Umlaute 4. Jun 2012, 14:03 Hey, also Indy übernimmt das für einen komplett! So wie ihr habe ich das auch lange gemacht, alles Falsch Schau dazu mal in meinem Tutorial: http://www.delphipraxis.net/160152-i...protokoll.html Aus dem Abschnitt Daten Senden das Beispiel müsstest du halt für dich etwas anpassen. Grüße Sebastian
	Zitat