(2015-09-28 22:19:06)
标签: 

杂谈

分类: uniGUI
群友写的解决uniGUI试用版限制修改SessionTimeOut,思路很精巧,贴过来分享,感谢朋友的奉献。当然,如果真正用uniGUI实做项目,买份正版是正道!
var    UniServerOption, newUniServerOption : TUniServerOptions;    n : Integer; begin    UniServerOption := UniServerModule.Options;    pAddr := @UniServerModule.Options;    newUniServerOption := [soShowLicenseInfo, soAutoPlatformSwitch, soDisableBrowserCompatibilityMessage, soRestartSessionOnTimeout, soAllowSessionRecording];    n := Byte((@newUniServerOption)^);    PInteger(pAddr)^ := n;    UniServerOption := UniServerModule.Options; end;
对于在ide中修改无效的属性是因为代码中只有getxxx而没有了setxxx 可按上面的方法自行脑补