HTTP Post als ascii mit Umlauten

[markusagb]

Hallo zusammen,

vielleicht hat mir jemand einen Tipp, ich muss einen HTTP Post senden - soweit funktioniert das.
Leider werden die Umlaute äöü sowie das ß als ? übertragen. Ich habe schon verschiedenste Konvertierungen versucht mit AnsiString usw... aber das bekomme ich nicht hin

...
idHTTP1.Request.Charset := 'utf-8';

IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
params := TStringList.Create;
MBhttps :='https://199.100.X.Xort/'
...
Memo1.Lines.add(IdHttp1.Post(MBhttps, params));
...


Danke für eventuelle Ideen wie ich die Stringlist convertieren muss damit die Umlaute richtig in ascii übertragen werden... ach ja, eine Umwandlung in ae oe ue ist hier nicht gewünscht.

Euch nen schönen Tag!

Markus

[DieDolly]

Ich sende selber über IdHTTP und Post. Auch Umlaute sind kein Problem.
Ich lasse Request.Charset und Request.ContentType komplett weg.
Im Resultat was ich vom Post bekomme sehe ich, dass automatisch Content-Type: text/html und charset="us-ascii" benutzt wird.
Umlaute werden korrekt angezeigt.

[Rolf Frei]

Leider fehlt in deinem Mustercode der entscheidende Teil. Was machst du mit der Stringlist genau? Du musst die Wetrte vor dem Senden in UTF-8 wandeln, und dann sollte das probemlos gehen. Einfach nur setzen des CharSets ändert deine Parameterwerte nicht automatisch in UTF-8.

[markusagb]

procedure TForm1.DynamicLabelSend(DynLab:String);
Var
Params: TStringList;
begin
StatusBar1.Panels[4].Text:='HTTPs Dynamic Label post in progress...';
DynLab := StringReplace(DynLab,' & ',' und ',[rfReplaceAll, rfIgnoreCase]);
Edit3.Text:=DynLab;
Memo1.clear;
IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
IdHTTP1.AllowCookies := True;
idHTTP1.Request.Charset := 'utf-8';
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
params := TStringList.Create;
params.Add('login='+DLUser+'&password='+DLPassword +'&type=import&really=1&content='+DynLab);
try
Memo1.Lines.add(IdHttp1.Post(MBhttps, params));
except
end;
params.Free;
StatusBar1.Panels[4].Text:='HTTPs sent';

[markusagb]

Das was rausgeschickt wird an Content ist DYNLAB, z.B.
DYNLAB:='Aktueller Titel: Über den Wolken'
Wenn ich Charset und Content Type weg lasse wird aus dem Ü trotzdem ein "?"

[Delphi.Narium]

Welche Delphiversion?

Du schreibst Ascii-Umlaute gehen verloren, arbeitest aber mit UTF-8.

Was denn bitteschön: Ascii oder UTF-8?

Willst Du im Programm Ascii haben, holst aber per Post UTF-8, dann musst Du den erhaltenen Text eben nach Ascii umwandeln.

In Delphi 7 z. B.: Memo1.Lines.add(Utf8ToAnsi(IdHttp1.Post(MBhttps, params)));