Obtener URL original

[StartKill]

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ú