delphi – 如何使用TIdMultiPartFormDataStream处理TIdHTTPServe

我的许多应用程序使用TIdMultiPartFormDataStream通过php发送数据.我想使用TIdHTTPServer出于某种原因验证参数并将请求转发到目的地.

我为你创造了一个简短的例子.

uses
  IdContext,IdMultipartFormData;

// Server Side------------------------------------------------

IdHTTPServer1.Defaultport := 88;
IdHTTPServer1.active := True;

procedure TForm1.IdHTTPServer1CommandGet(AContext: TIdContext;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
  // the request will be pass through its destination by POST/GET
  // and send the result back to the client apps.
  AResponseInfo.ContentText := ARequestInfo.Params.Text;
end;

// Client Side------------------------------------------------
// This will work using the standard Post or Get
procedure TForm1.btnPost1Click(Sender: TObject);
var
  sl: TStringList;
  res: String;
begin
  sl := TStringList.Create;
  try
    sl.Add('Param1=Data1');
    sl.Add('Param2=Data1');
    sl.Add('Param3=Data2');
    sl.Add('Param4=Data3');
    res := IdHTTP1.Post('http://localhost:88/some.php',sl);
    ShowMessage(res);
  finally
    sl.Free;
  end;
end;

//how can i get the parameters and value for this code in my IdHttpServer
procedure TForm1.btnPost2Click(Sender: TObject);
var
  mfd: TIdMultiPartFormDataStream;
  res: String;
begin
  mfd := TIdMultiPartFormDataStream.Create;
  try
    mfd.AddFormField('Param1','Data1');
    mfd.AddFormField('Param2','Data1');
    mfd.AddFormField('Param3','Data2');
    mfd.AddFormField('Param4','Data3');
    res := IdHTTP1.Post('http://localhost:88/some.php',mfd);
    ShowMessage(res);
  finally
    mfd.Free;
  end;
end;

以及我如何知道客户端应用程序是否通过TIdMultiPartFormDataStream类型的参数？