Redirect

Quando si effettua programmazione orientata al web con le CGI Free Spider si necessita a volte di voler fare un redirect, ad esempio per una gestione di login capita di doverlo fare nella fase di convalida del dato! Bene fare ciò è abbastanza facile, basta inserire questa procedura nel vostro codice, unico vincolo è che il vostro TDataModule si chiama TDataModule1 (diversamente cambiatelo nel codice sottostante con il vostro nome).

Codice: [Seleziona]

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;


Per richiamare questa procedura ad esempio per fare un redirect a www.lazaruspascal.it basta  scrivere così

Codice: [Seleziona]

Redirect(Response,'http://www.lazaruspascal.it/');


Per far funzionare correttamente il codice togliete gli spazi dopo il carattere < e prima del carattere >. Ho dovuto aggiungerli per non creare problemi al sito!

Facile vero?!

SMF 2.0.8 | SMF © 2011, Simple Machines
Privacy Policy
SMFAds for Free Forums
TinyPortal © 2005-2012

Go back to article