Automatisation du WebBrowser et fichier

Version imprimable

30/06/2008, 03h35
m14w

Automatisation du WebBrowser et fichier

Bonjour,

j'ai un petit logiciel qui remplit les cases "input" des formulaires, malgré tout les ce logiciel ne remplit pas les entrées de chargement de fichiers (le truc avec la boite de dialogue qui demande un fichier).

J'aimerais savoir s'il est possible de remplir ces cases.

Merci à vous.
30/06/2008, 03h45
m14w

je viens de lire que apparemment de n'est pas possible.
09/07/2008, 10h02
x.0185

Toutes est possible dans le monde de programmation ;)
faut juste savoir manipulé un peut l'msdn et surtou delphi pour faire ton application , là j'ai pas le temp pour t'expliquer mais je peux t'aider si tu le souhaites.
31/07/2008, 18h54
m14w

heu oui je remonte ce vieux message mais pourquoi pas.

Avec Indy c'est réalisable

En ayant par exemple une page avec un formulaire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
<html>
  <head>
  </head>
  <body>
    <form enctype="multipart/form-data" action="uneurl.com/test.php" method="post">
      <input type="hidden" name="MonChampHidden" value="">
      Nom fichier : <input type="text" name="MonNomFichier" value="">
      Fichier : <input name="fichier" type="file"><br>
      <input type="submit" value="Envoyer">
    </form>
  </body>
</html>

Voici ce qu'il faut faire

rajouter dans les uses de l'unité : IdMultipartFormData

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
function UploadMultiPart(Url,Hidden,Texte, Filename : String) : String;
var
  IdHttp : TIdHttp;
  Mpfd : TIdMultiPartFormDataStream;
begin
  IdHttp := TIdHttp.Create;
  Mpfd := TIdMultiPartFormDataStream.create;
  try
    // Gestion des champs texte du formulaire (Texte et Hidden)
    Mpfd.AddFormField('MonChampHidden',Hidden);
    Mpfd.AddFormField('MonNomFichier',Texte);
 
    // Gestion du champ file
    Mpfd.AddFile('fichier',FileName,'multipart/form-data');
 
    // Envoi des informations
     Result := IdHttp.Post(Url,Mpfd);
  finally
    IdHttp.free;
    Mpfd.Free;
  end;
end;

Exemple d'utilisation

Code:

1
2
3
4
5
6
7
8
9
10
 
var
  Resultat : String;
begin
  if OpenDialog1.Execute then
  begin
    Resultat := UploadMultiPart('http://uneurl.com/test.php','toto','titi',OpenDialog1.FileName);
    Showemessage(Resultat); 
  end;
end;

07/08/2008, 22h22
m14w

Merci de ta reponse, mais la tu reproduits la requete, ce n'est pas tout à fait pareil que de rentrer des données via le browser.
22/10/2008, 19h27
Invité(e)

pas de dif

je vois pas la différence !!
pour moi c'est pareil tu postes ta page point ....