Discussion :

[ulysse66x]

bonjour,

j'utilise la méthode suivante pour récupere les sources de site internet

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
 
procedure TForm1.Button1Click(Sender: TObject);
var
  IdHTTP1:Tidhttp;
  begin
IdHTTP1:=Tidhttp.Create(nil);
  Try 
    Try
      memo1.text:=IdHTTP1.Get('http://www.google.com');
    except
      ShowMessage('Fichier indisponible');
      Exit; 
    End; 
  Finally
    IdHTTP1.Free;
  end; 
end;

cela marche parfaitement pour certain site mais pour des sites ou il y a redirection ou ouverture de popup il y a un bug error 302 (Pb de redirection)

en fait c'est parceque cette méthode n'arrive pas a suivre les parametres de redirection!!

savez comment je peux faire pour récuperer ou suivre les parametres de redirection envoyé par le site appelé ??
serait ce un réglage du composant IDhttp ???

je vous remercie d'avance pour vos réponse!!

[Smortex]

Heu, ... Dans la doc de Delphi, je vois que le IdHttp a la propriété :

Code :

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

property HandleRedirects: Boolean;

Ca ne fonctionne pas ?

Bon dev'

[ulysse66x]

hélas non !!

je suis allé dans l'aide (en anglais hélas) des composants indy et j'y comprends pas tout mais vu qu'il existe un évenement onredirect j'essaie quelque truc qui n'ont pas l'air de fonctionner

Code :

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

1
2
 
edit1.Text:=idhttp1.Response.????????;

response qui doit théoriquement quelque part me donner l'url de redirection masi je trouve pas!!!!!

HEEEEELP

please!!

[ulysse66x]

je crois avoir trouvé la réponse comme un grand !!!!


pour ceux que ca interresse !!!

Code :

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

1
2
3
4
5
 
Try
      memo1.Text:=idhttp1.Get(edit1.text);
    except
          edit1.Text:=idhttp1.response.Location;

puis relancement de la procedure a partir du nouvel edit (ou est stocké l'url)


merci qand meme !!!!!!

comme quoi qane on cherche un peu des fois ... mea culpa