Jump to content

How I can get server time


apicito

Recommended Posts

  • 2 months later...
  • 3 months later...

hi ,  Anybody can help me solve  this problem?

 

thank for your kindness.

 

You want to know the server time on the client side?

 

There are several ways, one of them:

 

1. Declare a variable.

     In MainForm.Scripts add the line: 

var uniGUIServerTime;

2. Now you can assign it a value:    

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniSession.AddJS('uniGUIServerTime = "' + DateTimeToStr(Now) + '";');
end;

3. Now on the client side you can use this variable

 

Best regards.

Link to comment
Share on other sites

hi, delphi developer

 

Thank you very much for your answer.

 

i have some problem.

 

step 1.  In MainForm.Scripts add the line: 

                var uniGUIServerTime;

                  

                    ok

 

step 2.

procedure TMainForm.UniFormCreate(Sender: TObject);

begin
  UniSession.AddJS('uniGUIServerTime = "' + DateTimeToStr(Now) + '";');
end;

 

                     ok

 

step 3.   use  unit   uniGUIApplication;

 

step 4 .  i make event  onbuttonclick;

 

procedure TMainForm.UniBitBtn1Click(Sender: TObject);

begin
  UniLabel1.Caption :=  UniSession.uniGUIServerTime;
end;

 

  error message  [dcc32 Error] Main.pas(40): E2003 Undeclared identifier: 'uniGUIServerTime'

 

Thank you very much for your help.

Link to comment
Share on other sites

Hi vitisan.
 

var uniGUIServerTime; - It is not delphi variable, it is a variable javascript!

You must use this:

1. 

procedure TMainForm.UniBitBtn1Click(Sender: TObject);
begin
  UniLabel1.Caption :=  DateTimeToStr(Now);
end;

or
 
2.
procedure TMainForm.UniBitBtn1Click(Sender: TObject);
begin
  UniSession.AddJS(UniLabel1.JSName + '.setText(uniGUIServerTime)');
end;

or

 
3.
procedure TMainForm.UniBitBtn1Click(Sender: TObject);
begin
  UniSession.AddJS(UniLabel1.JSName + '.setText(' + DateTimeToStr(Now) + ')');
end;

Best regards.

Link to comment
Share on other sites

You want to know the server time on the client side?

 

There are several ways, one of them:

 

1. Declare a variable.

     In MainForm.Scripts add the line: 

var uniGUIServerTime;

2. Now you can assign it a value:    

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  UniSession.AddJS('uniGUIServerTime = "' + DateTimeToStr(Now) + '";');
end;

3. Now on the client side you can use this variable

 

Best regards.

 

 

 

I have difficulty understanding the issue here.

 

The answer to original question seems to be as easy as:

UniLabel1.Caption := DateTimeToStr(Now);

 

I thought that the question was about the variable on the client side ...

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...