服务器端为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...
本文章介绍了DelphiXE7写的一个httppost的小测试程序，该程序是通过TIdHTTP组件进行post功能的测试，具体就不介绍了，代码很简单，下面是主要的代码 unitUnit1; interface uses Winapi.Windows,Winap...
代码如下： //Unitto getthelocalnetworkconnectionlist //andenable/disablecorrespondnetworkconnection // //Author:jhzhang@iflytek.com //History:2009/1/16Create // unituNetworkConnection; interface usesWindows,Messages,SysUtils,Variants,C...
在Form的Onkeyup事件中，参数Key,为按键值： vkMenu：菜单键 vkHardwareBack：back键 更详细的键定义在System.UITypes单元。 procedureTForm1.FormKeyUp(Sender:TObject;varKey:Word; varKeyChar:Char;Shift:TShiftState); beg...