How Can use UniPlatform?

[maher]

How Can use UniPlatform?

Before the MainModule Created

 

Thanx

[Farshad Mohajeri]

What you want to exactly do with it?

[maher]

Thanks for the quick reply

 

I want get the Platform or (Client Info)   when creating the MainModule .

 

The aim is to define different  variables for each Platform!,  before show the login form!!!!

[Farshad Mohajeri]

uniPlatform is valid in OnCreate module of UniMainModule.

[maher]

uniPlatform : [ ]

What are the values ​​that it should contain?

[Farshad Mohajeri]

TUniPlatform = (upDesktop, upMobile, upPhone, upTablet);

TUniPlatforms = set of TUniPlatform;

[Farshad Mohajeri]

procedure TUniMainModule.UniGUIMainModuleCreate(Sender: TObject);

var

  U : TUniPlatforms;

begin

  U := UniSession.UniPlatform;

end;

[maher]

Alsalam alykom.

 

I implemented  the your sample , I get an error : 

 

"E2010 Incompatible types: 'MainModule.TUniPlatforms' and 'uniGUIApplication.TUniPlatforms' "

 

 

On The Line :  " U := UniSession.UniPlatform;

 

 

Can you give a full sample 

 

 

Thanx

 

 

 

 

 

 

 

 

[Farshad Mohajeri]

Please add uses UniGUITypes to the uses list.

[maher]

Thanx

It's working now 

[asapltda]

Thanx

It's working now 

 

Hi, could show how use the data to identify the type of device (in pascal code) thanks

 

[Farshad Mohajeri]

if upMobile in UniSession.UniPlatform then

begin

  if upPhone in UniSession.UniPlatform then

  begin



  end

  else if upTablet in UniSession.UniPlatform then

  begin    



  end;  

end

else if upDesktop in UniSession.UniPlatform then  

begin 

end;