http server con con Tidhttpserver

[[seoane]]

Antes de nada supongo que la direccion seria de la forma siguiente:

http://urlservidor:8080/?telefono=123456789&nombre=pepito

Fijate en el "?" esto parte la URL en 2, lo que queda a la izquierda es la direccion del documento y lo que queda a la derecha son los parametros uqe se le pasan. Aclarado esto, el componenete TIdHttpServer en su evento OnCommandGet tiene como parametro ARequestInfo y este a su ves tiene la propiedad Params que contiene cada uno de los pares Nombre=Valor.

Un ejemplito

Código Delphi [-]
procedure TForm1.IdHTTPServer1CommandGet(AThread: TIdPeerThread;
  ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo);
begin
 // Esto es una burrada, no se debe mostar mensajes en este evento, pero solo es para ver como funciona
  ShowMessage(ARequestInfo.Params.Values['telefono']);
end;

Ahora usando, por ejemplo, la URL http://localhost/?Telefono=981284871 nos mostraria un mensaje con el telefono