FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Obtener el código de una web
Hola.
Tengo una aplicación en la que necesito obtener el código fuente de una página web colgada en un servidor. He utilizado el componente TWebBrowser para acceder a esta página pero no he encontrado ninguna propiedad o método para obtener el código fuente. También lo he intentado con el TPageProducer, pero solo he logrado utilizar páginas locales sin salir a internet. Si alguien sabe de algún otro componente o como utilizar estos componentes para hacer esto agradecería que me lo hiciera saber. Saludos. |
#2
|
||||
|
||||
Puedes utilizar Sockets para hacer una peticion http al servidor, y el mismo te devolveria el contenido html de la pagina en cuestion.
Un pequeño ejemplo, utilizando ClientSocket: Host: 207.105.75.31 Port: 80 Active : True Código:
procedure TForm1.Button1Click(Sender: TObject); begin with cs.Socket do begin SendText('GET http://www.borland.com/products/index.html HTTP/1.1'+#13#10); SendText('Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/msword, application/vnd.ms-excel, */*'+#13#10); SendText('Accept-Language: es'+#13#10); SendText('Accept-Encoding: gzip, deflate'+#13#10); SendText('User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)'+#13#10); SendText('Host: www.borland.com'+#13#10); SendText(''+#13#10); end; end; Código:
memo1.Lines.Add(cs.Socket.ReceiveText);
__________________
Héctor Geraldino Software Engineer |
|
|
|