IdTCPClient : Récupérer fichier HTTP ?

Version imprimable

Bonjour,

Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 procedure TForm1.Button1Click(Sender: TObject); var sLigne : string; begin IdTCPClient1.Host := 'google.fr'; IdTCPClient1.Port := 80; try IdTCPClient1.Connect; IdTCPClient1.IOHandler.WriteLn('GET / HTTP/1.1'#13#10); repeat sLigne := IdTCPClient1.IOHandler.ReadLn; Memo1.Lines.Add(sLigne); until sLigne = ''; except on E : Exception do begin MessageDlg(E.Message, mtError, [mbOK], 0); end; end; end;
Il me donne le resultat suivant :

Citation:

HTTP/1.1 302 Found
Location: http://www.google.fr/
Cache-Control: private
Set-Cookie: PREF=ID=65066b3f703fb3ad:TM=1160779425:LM=1160779425:S=BQFp8wOrDIo6it0F; expires=Sun, 17-Jan-2038 19:14:07 GMT; path=/; domain=.google.com
Content-Type: text/html
Server: GWS/2.1
Content-Length: 218
Date: Fri, 13 Oct 2006 22:43:45 GMT

Je souhaiterai récupérer le code source de la page ou du fichier, comment dois-je faire ?

Merci d'avance,
Mathieu

Yop !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//The following function will extract the HTML from a WebBrowser, 
//including the header block as well as the body of the HTML:
 
function GetBrowserHtml(const webBrowser: TWebBrowser): String;
var
  strStream: TStringStream;
  adapter: IStream;
  browserStream: IPersistStreamInit;
begin
  strStream := TStringStream.Create('');
  try
    browserStream := webBrowser.Document as IPersistStreamInit;
    adapter := TStreamAdapter.Create(strStream,soReference);
    browserStream.Save(adapter,true);
    result := strStream.DataString;
  finally
  end;
  strStream.Free();
end;

Tout cela vient de là.
Mes 2 cts,
--
jp

14/10/2006, 01h03
MaTHieU_

Bonjour,

Merci pour ta réponse mais elle ne me convient pas ^^

En effet, je cherche à récupérer des fichiers via le protocole HTTP et le TIdTCPClient afin de développer par la suite, un serveur proxy HTTP/HTTPS puis SOCKS et enfin FTP. C'est également pourquoi je ne veux pas utiliser TIdHTTP.

Merci pour votre aide,
Mathieu
14/10/2006, 18h55
Sub0

Selon moi, il faut effectuer une requête en GET ou POST pour obtenir en réponse la source de la page.
J'ai trouvé ces liens à propos du protocol http :
http://tools.ietf.org/html/rfc2965
http://mathieu-lemoine.developpez.co...iels/web/http/

Ton projet semble intéressant. Je travaille actuellement sur un programme similaire; Upload et download http (+ ssl) et accès aux bases de données via scripts PHP. Par contre, j'utilise ICS qui est open source contrairement à Indy.

http://www.developpez.com/delphi/faq/?page=indy
15/10/2006, 00h00
MaTHieU_

Bonsoir,

Merci pour ce complément d'informations.
Justement, j'étais un peu hésitant entre Indy ou ICS, je vais peut être me rediriger vers ICS.

Merci,
Mathieu
15/10/2006, 01h11
Sub0

Pour le moment, j'utilise principalement THttpCli pour tous mes projets Web. L'upload Http avec Delphi me permet de me passer du FTP. Les commandes disponibles dans le protocol Http couvrent la plupart de mes besoins avec seulement 3 unités (version d'ICS compatible avec Kylix), je l'utilise dynamiquement pour distribuer mes projets sans imposer aux développeurs son installation dans la palette. Ce composant est basé sur les sockets, cela me permet de repartir de zéro si nécessaire et réaliser des connections directes client/serveur. L'intégration du SSL est normalement déjà prévue, je travaille dessus actuellement. De plus, F.Piette est francophone et propose un support par news de qualité; C'est très appréciable. ;)
15/10/2006, 01h30
MaTHieU_

Bonsoir,

En effet, tous ces points sont positifs !

Merci pour tes conseils,
Mathieu