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....