Free Spider redirect
lazarus / 38-Networking and Web Programming

----------------------------------------------------------------------
xinyiman · 2012-02-24 13:48

With Free Spider how do I do a redirect to itself?

----------------------------------------------------------------------
xinyiman · 2012-03-09 09:02

Solved with this function

Code: [Select]procedure TDataModule1.Redirect(var Response:
TSpiderResponse; Url: string);
begin
     Response.Add('<HTML>');
     Response.Add('<HEAD>');
     Response.Add('<TITLE>Redirect...</TITLE>');
     Response.Add('<META HTTP-EQUIV="REFRESH" CONTENT="0; URL=' + Url
+ '">');
     Response.Add('</HEAD>');
     Response.Add('<BODY>');
     Response.Add('Redirect...');
     Response.Add('</BODY>');
     Response.Add('</HTML>');
end;

----------------------------------------------------------------------
motaz · 2012-06-16 20:24

I think you need to add
Code: [Select]Response.Clear;
At the first line in that procedure, to make sure that there is no
text before HTML header.

----------------------------------------------------------------------
motaz · 2012-06-17 05:56

I've added this method (SendRedirect) to TSpiderResponse class, you
can call it like;

Code: [Select]  Response.SendRedirect('http://code.sd/freespider/',
'Wait.. redirecting to code.sd');

method code:

Code: [Select]procedure TSpiderResponse.SendRedirect(AUrl: string;
RedirectionHint: string = 'Redirecting..');
begin
  with fContent do
  begin
    Clear;
    Add('<HTML>');
    Add('<HEAD>');
    Add('<META HTTP-EQUIV="REFRESH" CONTENT="0; URL=' + AUrl + '">');
    Add('</HEAD>');
    Add('<BODY>');
    Add(RedirectionHint);
    Add('</BODY>');
    Add('</HTML>');
  end;
end;



I have uploaded the modifications in github:
https://github.com/motaz/freespider

If there is no remarks about this, I'll upload FreeSpider new version
1.2.7 in the site

----------------------------------------------------------------------
motaz · 2012-06-17 19:18

Version 1.2.7 has been released with addition of SendRedirect method
in Response class.
http://code.sd/freespider/

----------------------------------------------------------------------
xinyiman · 2012-06-18 05:57

Thank you

----------------------------------------------------------------------
motaz · 2012-06-18 16:57

I have put your name in a comment before the new method.
I don't know your real name, so that I put xinyiman

----------------------------------------------------------------------
xinyiman · 2012-06-19 06:03

Ok, my name is: Sammarco Francesco

----------------------------------------------------------------------
motaz · 2012-06-19 14:14

Ok, updated. It will appear in the next version