1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
| procedure TForm1.Button1Click(Sender: TObject);
var
Flags, TargetFrameName, PostData, Headers: OleVariant;
sHTML: String;
i :integer;
MultiPartFormDataStream: TIdMultiPartFormDataStream;
begin
vasy;
Response := TStringStream.Create('');
MultiPartFormDataStream := TIdMultiPartFormDataStream.Create;
try
//"Remplis" la variable "dossier" pour spécifier l'upload dans /test
MultiPartFormDataStream.AddFormField('LOGIN','MONLOGIN');
MultiPartFormDataStream.AddFormField('PSW','MONPASS');
MultiPartFormDataStream.AddFormField('action','login');
MultiPartFormDataStream.AddFormField(' ','Submit');
//"Joint" le fichier
MultiPartFormDataStream.Position := 0;
//Poste !
IdHTTP1.Post('http://www.site.com/login.php', MultiPartFormDataStream,Response);
test:=response.DataString;
finally
MultiPartFormDataStream.Free;
end;
end; |
