uniGUI之uniapplication.ClientInfoRec获取Client信息(25)

procedure TMainForm.UniFormActivate(Sender: TObject);
var
  C : TUniClientInfoRec;
begin
  UniLabel7.Caption:=UniApplication.RemoteAddress;

  C:=UniApplication.ClientInfoRec;

  UniLabel6.Caption:=C.BrowserType;
  UniLabel4.Caption:=IntToStr(C.BrowserVersion);
  UniLabel5.Caption:=C.OSType;

end;

 

================================================================================================================

uses  Main;

procedure TUniMainModule.UniGUIMainModuleHandleRequest(ASession: TObject;
  var Handled: Boolean);
begin
 main.MainForm.unilabel1.Caption:=  unisession.uniapplication.RemoteAddress;

 main.MainForm.unilabel2.Caption:= unisession.uniapplication.ClientInfoRec.BrowserType;
 main.MainForm.unilabel3.Caption:= unisession.uniapplication.ClientInfoRec.BrowserVersion.ToString;
 main.MainForm.unilabel4.Caption:= unisession.uniapplication.ClientInfoRec.OSType;
end;

 

uses uniGUIApplication;
  if upDesktop in UniApplication.UniPlatform then
ShowMessage('This is an Desktop device!');


 If (UniApplication.UniPlatform  <> [upDesktop])
  AND (UniApplication.UniPlatform  <> [upMobile])
  AND (UniApplication.UniPlatform  <> [upPhone])
  AND (UniApplication.UniPlatform  <> [upTablet])
  AND (UniApplication.UniPlatform  <> [upAndroid])
  AND (UniApplication.UniPlatform  <> [upiPhone])
  AND (UniApplication.UniPlatform  <> [upiPad])
  AND (UniApplication.UniPlatform  <> [upiPod])
  AND (UniApplication.UniPlatform  <> [upiOS])

 

 总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少，总说我字少