TidHTTP.Post() - Parameter werden nicht getrennt

[marabu]

Hallo,

deinen vergeblichen Versuch die RequestInfo.Params direkt zu übergeben habe ich in der Fülle deines Beitrages wohl überlesen - tut mir leid.

Ich habe mir nun auch einen Proxy (zum Testen) geschrieben, beim IE eingetragen und ein Formular (4 Input Felder) mit POST in Auftrag gegeben. Ich speichere die Request.Params in einem ValueListEditor damit ich mitverfolgen kann, was so an Daten fließt - deshalb die CriticalSection UILock. Intern leite ich den Request auf eine PHP-Seite, die mir mit phpinfo() alle POST Variablen anzeigt. Alles schaut so aus wie du es gerne hättest. Jetzt ist es an dir den Unterschied in der Vorgehensweise zu finden.

Delphi-Quellcode:

procedure TDemoForm.HTTPServerCommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
var
  client: TIdHTTP;
begin
  UILock.Acquire;
  try
    VLE.Strings.Assign(ARequestInfo.Params);
  finally
    UILock.Release;
  end;
  AResponseInfo.ContentStream := TMemoryStream.Create;

  client := TIdHTTP.Create(nil);
  with client do
  begin
    Request.Assign(ARequestInfo);
    HandleRedirects := true;
    AllowCookies := true;
    CookieManager := TIdCookieManager.Create(client);
  end;

  if ARequestInfo.Command = 'POST' then
    client.Post(
      // 'http://' + ARequestInfo.Host + ARequestInfo.Document,
      'http://localhost/root/test.php',
      ARequestInfo.Params,
      AResponseInfo.ContentStream
    )
  else if ARequestInfo.Command = 'GET' then
    client.Get(
      'http://' + ARequestInfo.Host + ARequestInfo.Document,
      AResponseInfo.ContentStream
    )
  else
  begin
    ShowMessage(ARequestInfo.Command);
    Exit;
  end;

  AResponseInfo.ContentType := client.Response.ContentType;
  AResponseInfo.ContentLength := AResponseInfo.ContentStream.Size;
  AResponseInfo.ResponseNo := client.ResponseCode;
  AResponseInfo.ServerSoftware := client.Response.Server;

  AResponseInfo.WriteHeader;
  AResponseInfo.WriteContent;

  AResponseInfo.ContentStream.Free;
  client.Free;
end;

Grüße vom marabu