Indy的“indymisc”下有一个“TIdIPWatch”组件，可以正确获得本地IP，即使有多块网卡，也可以正确获得真正本地IP。 一，引入单元文件“IdIPWatch”。 二，实际代码： procedureTMainForm.localI...
如果在同一电脑上运行多个IdHTTPServer实例，IdHTTPServer使用时候，一定要注意“DefaultPort”属性，其实真正绑定端口是这个属性决定的，所以希望IdHTTPServer绑定在那个端口上，应该把要绑...
useWinInet; //正确检测是否在线方法 ifInternetGetConnectedState(nil,0)then begin Self.Caption:='在线'; end else begin Self.Caption:='脱机'; end; 经测试，和QQ检测是否在线基本相同。...
服务器端为JAVA，编码UTF-8，返回数据编码UTF-8；数据交换格式JSON。 procedureTloginForm.loginBtnClick(Sender:TObject); var jo:ISuperObject;//JSON接口 req:IXMLHTTPRequest; url:WideString;//要访问的url params:string;...
方法一： WebBrowser1.Silent:=True; WebBrowser1.Navigate(URL); repeat Application.ProcessMessages; untilWebBrowser1.ReadyState=READYSTATE_COMPLETE; WebBrowser1.Navigate( 'javascript:document.getElementById("detailFormid").submit();'); re...
functionCompressStrToBase64(sStr:string):string; var M1:TMemoryStream; M0,M2:TStringStream; begin Result:=''; ifsStr=''then Exit; M0:=TStringStream.Create(sStr); M1:=TMemoryStream.Create; M2:=TStringStream.Create(''); try M0.Position:=0; M1...
朋友有个项目，通信协议使用HTTP，数据序列使用BIN（二进制）。他不知道要选用何种技术方案。 REST webservice是http+json，SOAP webservice是http+xml，好像都不适合。 于是想到了使用INDY的Tid...
1）服务端IIS网站上创建新的虚拟路径，给新创建的虚拟路径增加MIME类型：.bpl、.ini等。 2）设置update.ini文件版本号配置文件 [ver] config.ini=1 bplCommon.bpl=1 bplGoods.bpl=1 bplPower.bpl=1 bplPurchasi...
获取网页源代码的最简单办法，就是利用 WinInet 单元中的函数： uses WinInet; function GetWebPage(const Url: string):string; var Session, HttpFile:HINTERNET; szSizeBuffer:Pointer; dwLengthSizeBuffer:DWord; dwReserved:DW...
介绍 本代码实现了windows的ping的功能，通过使用icmp.dll里的IcmpSendEcho()函数，来发送Ping命令，具体代码： functionTPing.PingHost(IP:string;varRTT:DWORD;TTL:Byte=64;TimeOut:DWORD=4000):Integer; var //IPOptions...