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 :
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;
Mais en reponse au lieu d'avoir : HTTP/1.x 200 OK j'ai HTTP/1.1 203 FOUND .
Pourtant tout est assez bon , les pass ne sont pas supposés etre cryptés ou autre .
Voila , merci a ceux qui repondront