Yop
J'essaye de remplir un formulaire avec un login et un pass en envoyant les données avec la requete POST , donc je regarde les requetes envoyées avec firefox et je les envoi depuis mon programme delphi , Code :
Mais en reponse au lieu d'avoir : HTTP/1.x 200 OK j'ai HTTP/1.1 203 FOUND .
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Pourtant tout est assez bon , les pass ne sont pas supposés etre cryptés ou autre .
Voila , merci a ceux qui repondront
Partager