Discussion :

[bruce-willis]

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

[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.

[bruce-willis]

Comment faire pour les cookies si le serveur en utilise?

[randriano]

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

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)?

[hepha1970]

Bonjour,

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

@ Bientôt

[shell13010]

je pense que sa va vous aidez....

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

[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?

[Andnotor]

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 .

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 )

[randriano]

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()

[Andnotor]

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 %.

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é

[randriano]

Voici mon code ayant cette exception

Code :

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

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

[Andnotor]

Ben j'ai fais un essai et ça fonctionne

PS: Il te manque un Fs.Free.

[randriano]

Ben j'ai fais un essai et ça fonctionne

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