Téléchargement d'infos sur le web.

**Pierre95** · 17/06/2011, 10h44

Bonjour,

Je travaille sur une petite application qui doit récupérer sur un site internet des données météo sous forme codées.

Mon problème est le suivant:
Sur le site internet, je dois saisir le code de l'aéroport dont je désire les infos.
Un spécialiste pourrait-il avoir la gentillesse de m'expliquer comment, sans afficher la page web dans l'application:
- Faire passer le code de l'aéroport (4 lettres) vers la boîte de saisie du site web.
- Générer un clic sur un bouton situé sur ce site pour obtenir les infos.
- Récupérer la chaine texte du site codant les infos.

Je suis sous Delphi 2010.

Merci par avance de vos conseils.

Pierre

**ouiouioui** · 17/06/2011, 11h39

tu clique droit sur la page, source, la tu cherche le formulaire, tu récupère l'adresse dans l’attribut "action"
tu cherche le input tu récupère l'attribut name, il y a peut-être d'autre input a envoyé, les hidden par ex.

maintenant tu cherche indy post http sur le forum Delphi et tu devrais y arriver, dans la FAQ aussi c'est expliquer comment soumettre un formulaire POST et GET.

**Pierre95** · 17/06/2011, 11h45

Je regarde ça immédiatement

Grand merci à toi

Sympathie
Pierre

**Pierre95** · 20/06/2011, 08h02

Bonjour,

Après de longue heures à tenter de comprendre les composants Indy sur pas mal de forum et ne les ayant jamais utilisés jusqu'alors, je reviens vers vous pour plus de détails.

J'ai Une adresse url qui affiche un formulaire simple avec un champ texte et deux boutons 'SUBMIT' et 'CLEAR'.

Je tape un code de 4 lettres qui correspond à un aéroport, puis SUBMIT.
Une autre page s'ouvre contenant un message codé fournissant les données météo pour cet aéroport.

Je n'ai pas trouvé d'exemple de code faisant ça.

Merci de votre aide
Pierre

**Rayek** · 20/06/2011, 10h03

Une QR qui doit arriver dans la

[QR] Comment valider un formulaire contenant des données textuelles et fichiers avec la méthode POST ?

Il vous faut rajouter dans les uses de l'unité : IdMultipartFormData

Prenons comme exemple le formulaire ci dessous :

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 comment renseigner tous les champs avec Indy :

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;

Ci dessous un 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;

**Pierre95** · 20/06/2011, 10h44

Mille merci,

avec ceci, je devrais pouvoir m'en sortir, je vous tiens au courant

Cordialement
Pierre

**ouiouioui** · 20/06/2011, 10h47

il n'envoie pas de fichier, c'est plutôt sa :

http://delphi.developpez.com/faq/?pa...ndyvaliderpost

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Procedure TForm3.Button1Click(Sender: TObject);
Var
  Ts: TStringList;
Begin
  Ts := TStringList.Create;
  Try
    Memo1.Lines.Clear;
    Ts.Add('Param1=Valeur1');
    IdHttp1.Request.ContentType := 'application/x-www-form-urlencoded';
    Memo1.Lines.Text            := IdHTTP1.Post('http://localhost/myscript.php', Ts)
  Finally
    Ts.Free;
  End;
End;

**Pierre95** · 20/06/2011, 11h37

Voici le résultat:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 // Récupération données internet
  Ts := TStringList.Create;
  try
      Ts.Add(EditAirport.Text);// Code Aéroport (exemple: LFPG)
      IdHttp1.Request.ContentType := 'application/x-www-form-urlencoded';
      Memo1.Lines.Text := IdHTTP1.Post('http://weather.noaa.gov/mgetmetar.php',Ts)
  finally
      Ts.free;
  end;

Le mémo affiche:

Code :

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

<h1>Error: you did not provide a location indicator</h1>

Et voici le code du formulaire:

Code :

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

1
2
3
4
5
6
<FORM NAME="textbox" METHOD="post" ACTION="/mgetmetar.php">
 
<INPUT TYPE="TEXT" NAME="cccc" SIZE="20" ALIGN="MIDDLE"><br>
<INPUT TYPE="SUBMIT" NAME="Submit" VALUE="SUBMIT" ALIGN="MIDDLE"> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<INPUT TYPE="RESET" NAME="Clear" VALUE="CLEAR" ALIGN="MIDDLE"></form>

Qu'en pensez vous?
Merci
Pierre

**Rayek** · 20/06/2011, 12h28

Envoyé par ouiouioui

il n'envoie pas de fichier, c'est plutôt sa :

Ca permet de faire les deux, c'est un exemple générique

Envoyé par Pierre95

Voici le résultat:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 // Récupération données internet
  Ts := TStringList.Create;
  try
      Ts.Add(EditAirport.Text);// Code Aéroport (exemple: LFPG)
      IdHttp1.Request.ContentType := 'application/x-www-form-urlencoded';
      Memo1.Lines.Text := IdHTTP1.Post('http://weather.noaa.gov/mgetmetar.php',Ts)
  finally
      Ts.free;
  end;

Le mémo affiche:

Code :

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

<h1>Error: you did not provide a location indicator</h1>

Et voici le code du formulaire:

Code :

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

1
2
3
4
5
6
<FORM NAME="textbox" METHOD="post" ACTION="/mgetmetar.php">
 
<INPUT TYPE="TEXT" NAME="cccc" SIZE="20" ALIGN="MIDDLE"><br>
<INPUT TYPE="SUBMIT" NAME="Submit" VALUE="SUBMIT" ALIGN="MIDDLE"> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<INPUT TYPE="RESET" NAME="Clear" VALUE="CLEAR" ALIGN="MIDDLE"></form>

Qu'en pensez vous?
Merci
Pierre

Tu as mis quoi dans EditAirport.Text ?

**Pierre95** · 20/06/2011, 12h35

Le code Aéroport en 5 lettres (exemple LFPG)

**Rayek** · 20/06/2011, 12h43

Envoyé par Pierre95

Le code Aéroport en 5 lettres (exemple LFPG)

Soit tu mets dans l'edit : 'cccc=LFPG'
soit tu modifies ton code

Code :

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

1
2
 
 Ts.Add('cccc=' + EditAirport.Text);// Code Aéroport (exemple: LFPG)

Téléchargement d'infos sur le web.

Delphi

Vue hybride

Discussions similaires

Partager

Partager