Indy 10 (HTTP-Server), Firefox 3.5 und jQuery.post

[SubData]

Ich musste vor Kurzem feststellen, dass Parameter, die aus Firefox heraus mittels jQuery.post an
einen Indy HTTP-Server übergeben werden, nicht verwendet werden können.

Code:

 $.post('/test', { p1: '1', p2: '2' }, null);

Die Paramter sind über ARequestInfo.FormParams sehr wohl zu sehen, können aber mit
ARequestInfo.Params.Values nicht angesprochen werden.
Nach einiger Suche ist mir dann aufgefallen, dass Firefox im Gegensatz zu, zum Beispiel Opera,
als Content-Type nicht "application/x-www-form-urlencoded" sondern
"application/x-www-form-urlencoded; charset=UTF-8" sendet, was Indy dazu veranlasst, nicht
LRequestInfo.UnparsedParams sondern LRequestInfo.QueryParams zu verwenden.

IdCustomHTTPServer.pas (Zeile 859 - 866)

Delphi-Quellcode:

if ParseParams then begin
  if TextIsSame(LRequestInfo.ContentType, 'application/x-www-form-urlencoded') then begin    {Do not Localize}
    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;
end;

Ich habe mir an dieser Stelle damit geholfen, dass ich Zeile 860 durch folgende ersetzt habe:

if TextIsSame(LRequestInfo.ContentType, 'application/x-www-form-urlencoded') or TextIsSame(LRequestInfo.ContentType, 'application/x-www-form-urlencoded; charset=UTF-8') then begin {Do not Localize} Preisfrage: Habe ich etwas übersehen, oder ist das tatsächlich ein Bug in den Indys?

Nachtrag: jQuery.get funktioniert auch mit Firefox ohne Probleme.

[Assertor]

Hallo,

danke fürs Melden, wird gefixt! Sobald unser Fix steht, poste ich hier ggf.

Gruß,
Assertor

[SubData]

Sehr schön, vielen Dank.

[ele]

Was für eine Indy-Version?

Der Fehler ist mir schon eine Weile bekannt - dachte allerdings, dass er in der aktuellen Indy-Version behoben worden ist (oder zumindest ist mir der Fehler in meinen Delphi 2010 Projekten noch nicht über den Weg gelaufen).

Der Patch bei mir ist deinem sehr ähnlich, mit dem Unterschied, dass es bei mir egal ist, ob jetzt dahinter UTF-8, ISO-8859-1 oder sonstwas steht (nicht dass ich sowas je gesehen hätte, aber man will ja für alle Fälle gewappnet sein):

Delphi-Quellcode:

s := LRequestInfo.ContentType;
if TextIsSame(Fetch(s, ';', false), 'application/x-www-form-urlencoded') then begin    {Do not Localize}

[SubData]

Delphi 7 mit der letzten Indy aus dem Repository (zum Zeitpunkt des Originalbeitrags).

Ich ging ursprünglich nicht davon aus, dass es überhaupt ein Fehler in den Indys ist,
sondern dachte, dass ich wahrscheinlich etwas falsch gemacht habe.
Daher auch nur dieser "provisorische" Fix.

[ele]

Hm... ok. Das sind soviel ich weiss nicht die aktuellsten Indy-Sources. Für die neuesten Sourcen musst du den Tiburon-Branch auschecken. Dort ist der Fehler nicht mehr vorhanden (meine ich zumindest).

Allerdings musst du damit aufpassen, da Tiburon das ganze Unicode und Encoding-Zeugs enthält. Du musst hauptsächlich darauf achten, dass ResponseInfo.CharSet einen sinnvollen Wert erhält. Wenn du z.B. ein Bild über den HTTP-Server lieferst wirst du ziemlich bald merken wenn es nicht geht, denn dann ist das Bild korrupt, da einzelne Zeichen falsch codiert werden.

[SubData]

Wie jetzt?

http://indy.fulgan.com/ZIP/

Die indy10.zip ist nicht aktuell?
Warum hat die dann immer ein aktuelles Datum?!
Na toll -.-

[ele]

Ich glaube, das liegt daran, dass die Automatisch erstellt werden...

IndyTiburon.zip ist die aktuellste Version nach meinem Kenntnisstand.

[SubData]

In der ist der Fehler aber ebenfalls enthalten.

[ele]

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.