UniGUI获取客户端Client信息

Posted 2020-08-21 空水瓶

需要uses UniGUIApplication

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;