03 2012 档案

RTC学习记录
摘要：1: 要让客户端在网络断开后自动连接到服务器需: A:RTCHttpClient的ReconnectOn 属性需要设置 B:RTCHttpClient的AutoConnect属性必须为False (这个属性为True时,当没有建立连接时而Call远程函数,会自动连接)2: 注意: 所有的RTCHttpServer和RTCHttpClient组件的事件都必须类似这样写代码(如):procedure TForm1.RtcHttpServer1ListenStart(Sender: TRtcConnection);begin if not Sender.inMainThread then S... 阅读全文

posted @ 2012-03-16 00:27 Handll 阅读(871) 评论(0) 推荐(0)

获取操作系统类型/版本以及是否是64位的函数
摘要：//以下代码均来自网络function GetWindowsVersionString: AnsiString;var VI: TOSVersionInfoA;begin VI.dwOSVersionInfoSize := SizeOf(TOSVersionInfoA); if GetVersionExA(VI) then with VI do Result := Trim( Format( '%d.%d build %d %s', [dwMajorVersion, dwMinorVersion, dwBuildNumber, szCSDVersion] ) ) else Re 阅读全文

posted @ 2012-03-10 00:18 Handll 阅读(703) 评论(0) 推荐(0)