Automatisation du WebBrowser et fichier

**m14w** · 30/06/2008, 03h35

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.

**m14w** · 30/06/2008, 03h45

je viens de lire que apparemment de n'est pas possible.

**x.0185** · 09/07/2008, 10h02

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.

**m14w** · 31/07/2008, 18h54

heu oui je remonte ce vieux message mais pourquoi pas.

**Rayek** · 01/08/2008, 11h06

Avec Indy c'est réalisable

En ayant par exemple une page avec un formulaire

Code html :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
 
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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;