Remplire un formulaire PHP sous Delphi

Remplire un formulaire PHP sous Delphi - Delphi/Pascal - Programmation

Marsh Posté le 03-07-2003 à 17:00:17    

Je voudrais que une de mes applications soit capable de remplire un formulaire sur n'importe quel site en PHP. Quel methode me conseilliez vous svp ?
 
Important : ne pas utiliser la souris. (car ca je sais faire, ca pourrait etre la solution de dernier recour)
 
Merci :p

Reply

Marsh Posté le 03-07-2003 à 17:00:17   

Reply

Marsh Posté le 03-07-2003 à 17:31:12    

remplir un formulaire qui est affiché dans le browser de l'utilisateur (IE ou autre), ou bien soumettre des données à un serveur sans que l'utilisateur ne voit la page web du formulaire ?


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 03-07-2003 à 18:39:55    

antp a écrit :

remplir un formulaire qui est affiché dans le browser de l'utilisateur (IE ou autre), ou bien soumettre des données à un serveur sans que l'utilisateur ne voit la page web du formulaire ?


 
Les 2, pourquoi pas :p visible ou pas, ce n'est pas un probleme, je prendrais le plus facile :p
 
Mc :p

Reply

Marsh Posté le 03-07-2003 à 18:52:05    

Si c'est juste pour soumettre des données à un serveur tu peux faire un GET ou un POST avec le composant TIdHTTP par exemple (Indy) ou avec son équivalent dans les composants ICS.


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 23-07-2003 à 17:51:29    

Bonjour ce sujet m'intéresse aussi.
 
J'ai essayé la méthode d'ANTP et ça marche bien.
En complément j'ai trouvé cet exemple sur ce site : http://www.experts-exchange.com/Pr [...] 35820.html
 
Maintenant j'aimerais envoyer un fichier.
 
Est-il possible de la même façon d'en envoyer ?
 
Merci d'avance.
 
:jap:


Message édité par AZorbas le 23-07-2003 à 17:52:36

---------------
www.astrocosmos.net, le portail belge francophone sur l'astronomie et les Sciences.
Reply

Marsh Posté le 23-07-2003 à 18:20:37    

AZorbas a écrit :

Bonjour ce sujet m'intéresse aussi.
 
J'ai essayé la méthode d'ANTP et ça marche bien.
En complément j'ai trouvé cet exemple sur ce site : http://www.experts-exchange.com/Pr [...] 35820.html
 
Maintenant j'aimerais envoyer un fichier.
 
Est-il possible de la même façon d'en envoyer ?
 
Merci d'avance.
 
:jap:


 
Ben tu envoie le contenu du fichier et zopla.

Reply

Marsh Posté le 24-07-2003 à 11:16:10    

merci je vais tester cela!
 
:jap:


---------------
www.astrocosmos.net, le portail belge francophone sur l'astronomie et les Sciences.
Reply

Marsh Posté le 26-07-2003 à 18:28:51    

J'arrive pas à envoyer des fichiers via Indy :cry:  
 
 
J'ai trouvé des infos sur experts-exchange mais ça marche pas trop :(
 
Des infos ?
 
 :jap:  :jap:  :jap:
 
EDIT : j'aimerais envoyer des fichiers ET remplir des champs en même temps.


Message édité par AZorbas le 26-07-2003 à 18:50:23

---------------
www.astrocosmos.net, le portail belge francophone sur l'astronomie et les Sciences.
Reply

Marsh Posté le 27-07-2003 à 12:01:03    

personne ?
 
 :jap:  :jap:


---------------
www.astrocosmos.net, le portail belge francophone sur l'astronomie et les Sciences.
Reply

Marsh Posté le 27-07-2003 à 13:03:26    

commence déjà par donner le code que tu utilises pour que l'on cerne le problème

Reply

Marsh Posté le 27-07-2003 à 13:03:26   

Reply

Marsh Posté le 27-07-2003 à 13:51:59    

voilà pour remplir un formulaire et le traiter par mon serveur j'utilise ça et ça marche.
 
Maintenant tetedeiench me dit que pour un fichier je dois faire pareil. Le prob c'est que je sais pas comment faire pour envoyer un fichier ET remplir les champs comme pour un formulaire multipart/form-data.
 

Code :
  1. procedure TForm1.Button1Click(Sender: TObject);
  3. var
  4. aStream: TMemoryStream;
  5. Params: TStringStream;
  8. begin
  9. aStream := TMemoryStream.create;
  10. Params := TStringStream.create('');
  12. Params.WriteString(URLEncode('comment=' + 'test' + '&'));
  13. Params.WriteString(URLEncode(nom=' + 'test'));
  15. IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
  17. IdHTTP1.Post('http://localhost/page.php', Params, aStream);
  19. end;


 
 
 
Sinon j'avais trouvé cela (http://beta.experts-exchange.com/P [...] 50661.html) :
 

Code :
  1. procedure TForm1.Button1Click(Sender: TObject);
  2. var
  3. Request       : TMemoryStream;
  4. FileData      : TMemoryStream;
  5. Response      : TStringStream;
  6. tempArray     : array[0..10000] of char;
  7. tempString    : String;
  8. strFileSize   : String;
  9. InFile        : String;
  10. const
  11. NewLine = chr(13) + chr(10);
  12. begin
  13. Screen.Cursor := crHourGlass;
  15. InFile := 'c:\test.zip';
  17. // Set the properties for HTTP
  18. HTTP.ProtocolVersion                := pv1_1;
  19. HTTP.Request.Username               := '';
  20. HTTP.Request.Password               := '';
  21. HTTP.Request.ProxyServer            := '';
  22. HTTP.Request.ProxyPort              := 80;
  23. http.Request.ContentEncoding        := 'multipart/form-data';
  25. try
  27.    // create streams
  28.    Response  := TStringStream.Create('');
  29.    Request   := TMemoryStream.Create;
  30.    FileData  := TMemoryStream.Create;
  32.    // load file data
  33.    FileData.LoadFromFile( InFile );
  34.    FileData.Seek( 0, soFromBeginning );
  35.    // copy form data
  36.    TempString := '';
  37.    TempString := TempString + '-----------------------------7d18914904ee' + NewLine;
  38.    TempString := TempString + 'Content-Disposition: form-data; name="UserName"' + NewLine;
  39.    TempString := TempString + '' + NewLine;
  40.    TempString := TempString + edUserName.text + NewLine;
  41.    TempString := TempString + '-----------------------------7d18914904ee' + NewLine;
  42.    TempString := TempString + 'Content-Disposition: form-data; name="PassWord"' + NewLine;
  43.    TempString := TempString + '' + NewLine;
  44.    TempString := TempString + edPassWord.text + NewLine;
  45.    TempString := TempString + '-----------------------------7d18914904ee' + NewLine;
  46.    TempString := TempString + 'Content-Disposition: form-data; name="FileSize"' + NewLine;
  47.    TempString := TempString + '' + NewLine;
  48.    TempString := TempString + '1234567' + NewLine;
  49.    TempString := TempString + '-----------------------------7d18914904ee' + NewLine;
  50.    TempString := TempString + 'Content-Disposition: form-data; name="DataFileName"; filename="' + InFile + '"' + NewLine;
  51.    TempString := TempString + 'Content-Type: application/octet-stream' + NewLine;
  52.    TempString := TempString + '' + NewLine;
  54.    // Add data to post
  55.    FillChar( temparray, SizeOf( temparray ), #0 );
  56.    strpcopy( temparray, tempstring );
  57.    Request.Write( temparray, length(tempstring) );
  58.    Request.Seek( 0, soFromEnd );
  59.    Request.CopyFrom( FileData, FileData.Size );
  61.    // copy form data
  62.    TempString := '';
  63.    TempString := TempString + '' + NewLine;
  64.    TempString := TempString + '-----------------------------7d18914904ee' + NewLine;
  65.    TempString := TempString + 'Content-Disposition: form-data; name="Submit"' + NewLine;
  66.    TempString := TempString + '' + NewLine;
  67.    TempString := TempString + 'Submit' + NewLine;
  68.    TempString := TempString + '-----------------------------7d18914904ee--'  + NewLine;
  69.    // Add data to post
  70.    FillChar( temparray, SizeOf( temparray ), #0 );
  71.    strpcopy( temparray, tempstring );
  72.    Request.Write( temparray, length(tempstring) );
  74.    // post file
  75.    try
  76.      HTTP.Post( edUrl.Text, Request, Response);
  77.    except
  78.      showmessage( "Failed!" )
  79.    end;
  81.    // write out debug text
  82.    memo1.lines.Add('===[TForm1.Post - Response.DataString]=================');
  83.    memo1.Lines.add( Response.DataString );
  85. finally
  86.    Response.Free;
  87.    Request.Free;
  88.    FileData.Free;
  89.    Screen.Cursor := crDefault;
  90. end;
  91. end;


 
Mais mon formulaire ne semble pas comprendre ce qu'on lui envoit.
 
 
Voilà j'espère avoir été assez clair.
 
Est-il possible d'envoyer un fichier aussi "facilement" que la première méthode ?
 
Merci d'avance !
 
 :jap:  :jap:  :jap:


Message édité par AZorbas le 27-07-2003 à 13:55:53

---------------
www.astrocosmos.net, le portail belge francophone sur l'astronomie et les Sciences.
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed