Visualizzazione dei risultati da 1 a 2 su 2
  1. #1

    Delphi e Web

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

  2. #2
    Moderatore di Programmazione L'avatar di alka
    Registrato dal
    Oct 2001
    residenza
    Reggio Emilia
    Messaggi
    24,288
    Precisamente, cos'è che vedi sulla pagina?

    Vedi l'etichetta, o vedi comunque la data ma questa non viene aggiornata?
    MARCO BREVEGLIERI
    Software and Web Developer, Teacher and Consultant

    Home | Blog | Delphi Podcast | Twitch | Altro...

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.