Menú
Principal
Servicios de Internet
Nuevas Tecnologias de Información
 
 
Objetivo
Desarrollar una aplicacion que sea capaz de obtener imagenes de servidores WEB utilizando el protocolo HTTP.

Material
1 computadora
Delphi 5.0
Windows 98

Desarrollo

En el desarrollo de esta aplicación se creara un formulario en el que se agregan

  • 1  TTabCntrol(5 pestañas)
  • 4  Memos
  • 1  Panel
  • 2 Edit's
  • 2 Label's
  • 1 TClientSocket
  • 1 Tbutton
  • 1 control TImage

Acomodamos los controles de manera que las Cajas de texto, las Etiquetas y el boton queden afuera del tabcontrol, y un memo en cada pestaña.

La forma en que nos conectaremos sera mandandole los comandos al servidor de web.
El metodo get es el que se usa para extraer los comandos.

El metodo GET tiene el siguiente formato:

GET / http/1.1

que quiere decir esto

GET es el comando

/ es el directorio y pagina que queremos obtener en este caso omitimos la pagina por que deseamos que no muestre la pagina de default

http/1.1 es el protocolo y la version que estamos solisitando.

la forma en que enviariamos el requerimiento seria:

procedure tform1.butto1_click(sender: TObject)
begin
  socket.SendText('GET /imagen.gif http/1.1');
  socket.SendText(#13 + #10);
  socket.SendText(#13 + #10);
end;

En el prociimiento anterior enviamos 2 retornos de carro por la especificacion del estandar del http, la pagina se obtendria en el evento onRead.

En el evento OnRead obtenemos la imagen y la guardamos en modo binario, cuando obtenemos las imagenes estas puedenser almacenas en una variable string, porque las variables string de delphi pueden manejar cadenas de caracter al igual que datos binarios.


Conclusiones
Esta practica tuve algo de problemas al guardar la imagen, que aunque delphi puede manejar cadenas y datos binarios en variables string a la hora de guardar no lo hacia de manera correcta, así que tuve que guardar byte por byte para que se corrigiera el problema.