delphi idhttp post应用

delphi idhttp post应用

 

1. uses IdMultipartFormData;
3. { .... }
5. procedure TForm1.Button1Click(Sender: TObject);
6. var
7.   data: TIdMultiPartFormDataStream;
8. begin
9.   data := TIdMultiPartFormDataStream.Create;
10.   try
11.     { add the used parameters for the script }
12.     data.AddFormField('param1', 'value1');
13.     data.AddFormField('param2', 'value2');
14.     data.AddFormField('param3', 'value3');
16.     { Call the Post method of TIdHTTP and read the result into TMemo }
17.     Memo1.Lines.Text := IdHTTP1.Post('http://localhost/script.php', data);
18.   finally
19.     data.Free;
20.   end;
21. end;