PDA

Visualizza la versione completa : [DELPHI] Applicazione Web e visualizzazione valori dinamici (es. data)


lelevilla
13-03-2009, 15:51
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.... :bh:

alka
24-03-2009, 13:20
Precisamente, cos' che vedi sulla pagina?

Vedi l'etichetta, o vedi comunque la data ma questa non viene aggiornata?

Loading