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