|
En el desarrollo de esta aplicación se creara un formulario
en el que se agregan
1 TTabCntrol(4 pestañas)
4 Memos
1 Panel
2 Edit's
2 Label's
1 TClientSocket
1 Tbutton
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 / 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.
|
