How to get the browser name and it's version?

[David]

Hi all,

   How can I get the name and version of the browser?

   uniSession.Browser will be brIE,brFireFox,...etc.But could not known the version.

 

Thanks

[Semper]

var ClientInfo : TUniClientInfoRec;

      BrowserType: string;

      BrowserVersion: string;

begin

     ClientInfo:=UniApplication.ClientInfoRec;

     BrowserType:=ClientInfo.BrowserType;

    BrowserVersion:= ClientInfo.BrowserVersion;

end;

[David]

Thanks Semper!

 

[Alessandro]

[sOLVED]

I had put the code in the Main Module.

I wrote the code in the MainForm and is now ok.

Thank you.

-----------------------------------------------------------------------------

 

Hello everyone.

I follow the example above, but I can not build the my project.

I opened the ClientInfo Demo and perfect works.

I did the entire procedure in my project, but not working.

I forgot to declare somewhere some unit?

 

XE5, uniGUI Version:0.95.0 build 1046

 

Code:

procedure TMainForm.UniFormActivate(Sender: TObject);

var C : TUniClientInfoRec;

begin

  UniLabel7.Caption:=UniApplication.RemoteAddress;

  C:=UniApplication.ClientInfoRec; <----- PROBLEM: undeclared idenifier.

  UniLabel6.Caption:=C.BrowserType;

  UniLabel4.Caption:=IntToStr(C.BrowserVersion);

  UniLabel5.Caption:=C.OSType;

end;

 

Thanks.