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

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