Naviguer avec les composants Indy

**beauchastel** · 02/11/2012, 12h00

Bonjour,

J'ai besoin de d'uploader un fichier sur un matériel pour le mettre à jour.

Pour se faire je dispose d'une URL qui me donne accès au formulaire de chargement du fichier. Je dois donc taper l'url http://<ip>/toto/toto.html.

J'arriver alors sur 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
14
15
16
17
18
19
20
21
22
23
24
25
 
<html>
<head><title>Mise &agrave; jour de l'application</title></head>
<body>
<h2>Mise &agrave; jour de l'application</h2>
<form action="/toto/toto.html" METHOD="post" ENCTYPE="multipart/form-data" >
<HR>Cette page permet le t&eacute;l&eacute;chargement et la mise à jour de l'application.<HR><BR><B>Application courante :</B><BR><BR><table BORDER=2CELLPADDING=2CELLSPACING=2>
<th>
Parametre</th>
<th>
Valeur</th>
<tr>
<td>
Version<td>
1.61</tr>
<tr>
<td>
Build-Date<td>
22/01/07</tr>
</table>
<BR><HR><BR>S&eacute;lectionnez la nouvelle application &agrave; charger :<BR><input type="file" name="appli_file" size="40" >
<BR><BR><input type="submit" name="submit" value="Lancer la mise &agrave; jour" >
<BR><BR><HR></form>
</body>
</html>

Si j'utilise un composant IdHTTP pour poster un formulaire en remplaçant /toto/toto.html par http://<ip>/toto/toto.html, j'arrive toujours sur la page qui permet de charger le fichier, tandis que si je fais tout sous IE j'arrive à une page de confirmation.

Je veux que tout cela soit transparent pour les utilisateurs mais je ne vois pas comment accéder à la première page (http://<ip>/toto/toto.html) puis continuer ma navigation (chargement puis validation) avec les lien relatifs (/toto/toto.hmlt) avec les composants Indy.

Merci d'avance pour vos réponses

**ShaiLeTroll** · 05/11/2012, 10h30

Je n'ai pas bien compris le problème, tu nous expliques le constat ou ce que tu souhaites obtenir ?

Tu peux aussi utiliser un TWebBrower avec les interfaces comme IHTMLElement, tu pourras automatiser le clic comme si c'était un utilisateur qui le faisait !

Pense que via TIdHTTP cela n'executera pas le JS, la confirmation est problablement un JS qui lance ensuite la procédure de chargement

**beauchastel** · 06/11/2012, 11h29

Bonjour,

Merci de ta réponse et voici quelques précisions.

Auparavant je passais par le webbrowser et je me servais d’évènements clavier pour écrire l'emplacement du fichier.

Cela a marché pendant deux ans, mais maintenant la zone est en lecture seule lors du chargement de la page donc cette méthode ne marche plus.

D'où mon besoin de passer par les composants Indy.

J'ai d'abord fait

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
MultiPartFormDataStream := TIdMultiPartFormDataStream.Create;
  try
    IdHTTP1.Request.ContentType := 'multipart/form-data';
    //"Joint" le fichier
    MultiPartFormDataStream.AddFile('appli_file', 'C:\ProgramData\Telerel\Travail_Cpl3\FIRMWARE.BIN' , 'multipart/form-data');
    MultiPartFormDataStream.AddFormField('submit','Lancer la mise à jour');
    MultiPartFormDataStream.Position := 0;
    Memo1.Lines.Clear;
    Memo1.Lines.add(IdHTTP1.Post('http://'+Edit1.Text+'/loader/load.html', MultiPartFormDataStream));
    Memo1.lines.SaveToFile('toto2.html');
  finally
    MultiPartFormDataStream.Free;
  end;

Cela me ramène toujours sur la page de démarrage, il ne prend pas en compte l'envoi du fichier.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
MultiPartFormDataStream := TIdMultiPartFormDataStream.Create;
  try
    IdHTTP1.Request.ContentType := 'multipart/form-data';
    //"Joint" le fichier
    MultiPartFormDataStream.AddFile('appli_file', 'C:\ProgramData\Telerel\Travail_Cpl3\FIRMWARE.BIN' , 'application/octet-stream');
    MultiPartFormDataStream.AddFormField('submit','Lancer la mise à jour');
    MultiPartFormDataStream.Position := 0;
    Memo1.Lines.Clear;
    Memo1.Lines.add(IdHTTP1.Post('http://'+Edit1.Text+'/loader/load.html', MultiPartFormDataStream));
    Memo1.lines.SaveToFile('toto2.html');
  finally
    MultiPartFormDataStream.Free;
  end;

Là le chargement du fichier est sans fin et la communication finie par se perdre.

Sinon, il n' y a pas de java script.

Naviguer avec les composants Indy

Web & réseau Delphi

Discussions similaires

Partager

Partager