Muy buenas al foro.
Una manito con esto: Estoy con Delphi 2007 y necesito hacer lo siguiente:
1.- Tengo un pequeño aplicativo (web server) que solo muestra el clasico mensaje "Hola mundo"
Para ello he usado un
WebModule y eh añadido un
WebActionItems y en el evento
OnAction tengo el siguinte código
procedure TWebModule1.WebModule1MecaAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
Response.Content:='Hola mundo...';
end;
.. está excelente, funciona...
2.- Pero, siempre hay un pero y una necesidad
,... expongo. Digamos que hay una pagina "X" que esta mostrando datos y en ese momento la url esta asi:
(me refiero en la parte superior del browser)
http://vilcanota.com/index.php?geo=877 ó
http://geomandril.com/fotos/muestra.htm?picope=222gt_
Y como como parte del contenido de la pagina "x" hay un enlace que llama mi "Hola mundo"
<a href="http://molecula\project1.dll" target="_blank">Entra aquí</a>
Necesito que mi aplicativo (server/pagina) obtenga la cadena completa del URL origen, "completa"
http://vilcanota.com/index.php?geo=877 ó
http://geomandril.com/fotos/muestra.htm?picope=222gt_ segun sea el caso.
Saludos cordiales.
Your friend
StartKill
Lima-Perú