Indy Http.Post Delphi 2007 -> Delphi 2010 Umlaute

[geskill]

Ist schon etwas älter aber ich bin gerade durch die Suche drauf gestoßen.

Wenn die Webseite in ISO-8859-1 kodiert ist:

Delphi-Quellcode:

Params := TStringStream.Create('');
try
  Params.WriteString('name=' + HTTPEncode('value') + '&');

  // [...]
finally
  Params.Free;
end;

Wenn die Webseite in UTF-8 kodiert ist:

Delphi-Quellcode:

Params := TStringStream.Create('', CP_UTF8);
try
  Params.WriteString('name=' + 'value' + '&'); // ggf. SmallHTTPEncode()

  // [...]
finally
  Params.Free;
end;

// [...]

  function SmallHTTPEncode(AStr: string): string;
  begin
    result := StringReplace(AStr, '&', '%26', [rfReplaceAll]);
  end;

Damit fahre ich ATM ganz gut.

Und dann gibt es noch den Weg über TIdMultiPartFormDataStream, dass würde aber hier den Rahmen sprengen.