Ho appena realizzato la seguente applicazione web:
unit Esempio1;
interface
uses
SysUtils, Classes, HTTPApp, HTTPProd, windows, Dialogs;
type
TWebModule1 = class(TWebModule)
PageProducer1: TPageProducer;
procedure PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings;
var ReplaceText: String);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WebModule1: TWebModule1;
implementation
{$R *.dfm}
procedure TWebModule1.PageProducer1HTMLTag(Sender: TObject; Tag: TTag;
const TagString: String; TagParams: TStrings; var ReplaceText: String);
begin
if TagString = 'Data' then
begin
ReplaceText := DateToStr(Now);
end;
end;
end.
nel frattempo ho creato una pagina HTML in locale dove il tag "Data" dovrebbe essere rimpiazzato con la data odierna. Il mio problema pero è la cosa non funziona in quanto mi contina ad esse visualizzata la pagina con il tag Data non aggiornato con la data odierna.....qualcuno mi sa dare una mano....