Hast du das getestet oder einfach mal kurz den Code überflogen?
Weil in meinen Source steht
Delphi-Quellcode:
if ParseParams
then begin
if TextIsSame(LContentType, ContentTypeFormUrlencoded)
then begin
LRequestInfo.DecodeAndSetParams(LRequestInfo.UnparsedParams);
end else begin
// Parse only query params when content type is not 'application/x-www-form-urlencoded' {Do not Localize}
LRequestInfo.DecodeAndSetParams(LRequestInfo.QueryParams);
end;
und
LRequestInfo ist
LContentType := ExtractHeaderItem(LRequestInfo.ContentType);
und da ExtractHeaderItem folgendes macht
Delphi-Quellcode:
function ExtractHeaderItem(const AHeaderLine: String): String;
var
s: string;
begin
// Store in s and not Result because of Fetch semantics
s := AHeaderLine;
Result := Trim(Fetch(s, ';')); {do not localize}
end;
müsste es meiner Meinung nach funktionieren.