Obtener URL original
 

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ú

Hola foro...

Se que varios han leido mi problema y no eh tenido respuestas que podria ser por dos cosas:

1.-Nunca tuvieron esta necesidad, razón por la cual no hay respuesta.
2.-Mi pregunta está mal planteada :(

Bueno, encontré la solución, mas facil que cazar un ratón...

Código Delphi [-]
procedure TWebModule1.WebModule1MecaAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
Var
  URL_original:string;
begin
    Response.Content:='Hola mundo...';
    Url_original:= Request.Referer;
    Response.Content:='Hola mundo... '+Url_Original;
End;

Your friend

StartKill
Lima-Perú

Me encantan estos problemas que se solucionan "solos". :D Enhorabuena.

Yo es que no lo había visto hasta ahora.