Entrer infos de pages web par code

Version imprimable

22/08/2008, 15h56
bruce-willis

Entrer infos de pages web par code

Bonjour,

Il s'agit de remplir à partir les Edit de Delphi les champs d'une page web par exemple une page d'inscription ou saisie de mot de passe, voire même recherche sur Google
C'est à dire GET/POST !!!
Supposons que je me connecte à partir d'un composant Socket, que vais-je faire s'il y a des cookies !!!
28/08/2008, 18h45
Reisubar

Tu peux regarder du côté du composant TIdHTTP, si tu peux te contenter de "forger" des requêtes simulant la soumission des formulaires, etc.
16/03/2009, 14h30
bruce-willis

Comment faire pour les cookies si le serveur en utilise?
23/03/2009, 13h12
randriano

Moi aussi je cherche à soumettre un formulaire simple avec TIdHTTP par méthode POST

Citation:

Envoyé par Reisubar

Tu peux regarder du côté du composant TIdHTTP, si tu peux te contenter de "forger" des requêtes simulant la soumission des formulaires, etc.

Comment forger le TStringList de la fonction Post()? A partir de quoi fait-on les couples NOM = VALEUR, c'est quoi les NOMS (le name des balises INPUT, LABEL)?
26/03/2009, 16h35
hepha1970

Bonjour,

peut-être cette methode http://www.developpez.net/forums/d44...bleme-syntaxe/

@ Bientôt

:salut:

je pense que sa va vous aidez....

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
 
  loginurl:='SiteA';
  Params := TStringList.Create;
  try
    cookies:=tstringlist.Create;
 
      html:=idhttp1.Get(loginurl);// Premier(s) cookie(s)
 
      count:=IdCookieManager1.CookieCollection.count;
      for i:=1 to count do
      begin
        cookies.Add(IdCookieManager1.CookieCollection.Items[i-1].CookieText);
        showmessage(IdCookieManager1.CookieCollection.Items[i-1].CookieText);
      end;
      html:=idhttp1.Get(loginUrl); // pour avoir VIEWSTATE
 
      poz:=pos('name="__VIEWSTATE" value="',html);
      delete(html,1,poz+25);
      viewstate:=copy(html,1,pos('"',html)-1);
      showmessage(IntToStr(poz));
      showmessage(viewstate);
      Params.Values['__VIEWSTATE'] := viewstate;
      Params.Values['TxtUsername'] := 'tarowras';
      Params.Values['TxtPassword'] := '12345';
      Params.Values['BtnLogin'] := 'Login';
 
      setCookies;
      IdHTTP1.HandleRedirects:=false;
      try
        HTML := IdHTTP1.Post(loginurl, Params);
 
      except on e: EIdHTTPProtocolException do
         begin
           if e.ReplyErrorCode<>302 then
             raise e;
 
           count:=IdCookieManager1.CookieCollection.count;  // Pour le UserID et Password
           for i:=1 to count do
           begin
             cookies.Add(IdCookieManager1.CookieCollection.Items[i-1].CookieText);
             showmessage('Etape 2 : '+IdCookieManager1.CookieCollection.Items[i-1].CookieText);
           end;
 
           setcookies;
           html:=idhttp1.Get(IdHTTP1.Response.Location);// follow redirect
            memo1.Lines.add(IdHTTP1.Get('SiteB'));
         end;
      end;
 
      Params.Free;
 
end;

voila A+ ;)

18/04/2009, 21h24
bruce-willis

Envoyer des infos par POST est-il possible? J'en doute car j'avais soumis une réponse d'un forum et cela a échoué car lors de la redirection, IdHTTP utilise encore POST avec la même donnée

Mon autre question concerne les espaces et caractères accentués dans le texte à envoyer? Qui transforme ces textes comme ça: idhttp?
18/04/2009, 22h31
Andnotor

Citation:

Envoyé par bruce-willis

Envoyer des infos par POST est-il possible? J'en doute car j'avais soumis une réponse d'un forum et cela a échoué car lors de la redirection, IdHTTP utilise encore POST avec la même donnée

Ce qui me paraît assez normal !
Admettons que pour maintenance je redirige temporairement mon site sur un serveur mirroir. Mon script ne c'est pas subitement transformé pour gérer des GET à la place de POST. Imaginons aussi que j'y passe un nom d'utilisateur et un mot de passe, ils deviendraient alors visibles dans la barre d'adresse...

Et j'ai même utilisé ce principe pour me logué sur plusieurs serveurs avec une seule fenêtre d'authentification ;).

Citation:

Envoyé par bruce-willis

Mon autre question concerne les espaces et caractères accentués dans le texte à envoyer? Qui transforme ces textes comme ça: idhttp?

idHTTP avec des widestring en POST (D2009). Je met à jour un serveur MySQL mutualisé à travers des scripts php. (Je dois pouvoir travailler en chinois ;))
20/04/2009, 14h07
randriano

Citation:

Envoyé par bruce-willis

Mon autre question concerne les espaces et caractères accentués dans le texte à envoyer? Qui transforme ces textes comme ça: idhttp?

La réponse est un peu dans la faq: http://delphi.developpez.com/faq/?pa...indysimulerget en utilisant la fonction IdHTTP.URL.PathEncode() mais le problème lorsque j'ai testé c'est

1) Cela ne change pas les espaces en + mais en %20

2) Il y a l'exception EConvertError 'Invalid Argument to date encode' lors du IdHTTP.Get()
20/04/2009, 15h00
Andnotor

Citation:

Envoyé par randriano

1) Cela ne change pas les espaces en + mais en %20

C'est la façon standard de coder les caractères invalides d'une URL. La valeur numérique du caractère (hexa) précédé d'un %.

Citation:

Envoyé par randriano

2) Il y a l'exception EConvertError 'Invalid Argument to date encode' lors du IdHTTP.Get()

Là, tu t'attends à ce que ton script te renvoi une chaîne représentant une date. Malheureusement, le format ne correspond pas à tes paramètres régionaux et StrToDate échoue ! Le GET lui à parfaitement fonctionné ;)

Voici mon code ayant cette exception

Code:

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
var
  Fs : TFileStream;
begin
      Fs := TFileStream.Create('search_result.htm',fmCreate);
      with IdHTTP1 do
      begin
          Request.BasicAuthentication := True; //Auth. BASIC
          Get(Format('http://www.google.com/search?hl=fr&q=%s&btnG=Recherche+Google&lr=',[URL.PathEncode(SearchEdit.Text)]),Fs);
      end;
end;

Comme vous le voyez, j'aimerais seulement pouvoir effectuer une recherche google par IdHTTP, les mot-clés tapés dans un TEdit SearchEdit

20/04/2009, 16h04
Andnotor

Ben j'ai fais un essai et ça fonctionne :koi:

PS: Il te manque un Fs.Free.
21/04/2009, 13h54
randriano

Citation:

Envoyé par Andnotor

Ben j'ai fais un essai et ça fonctionne :koi:

PS: Il te manque un Fs.Free.

Le Fs.Free ok!

Mais l'exception! Je l'ai toujours mais seulement sous Delphi, j'ai pas bien précisé avant, j'irai même jusqu'à penser que c'est un bug car il n'y a pas le messagebox qui s'affiche après alors que je n'utilise pas try ... except ... ni décocher son affichage dans les options