RSS订阅 | 匿名投稿
您的位置:网站首页 > 网络

Delphi 快速检测是否联网

useWinInet;//正确检测是否在线方法ifInternetGetConnectedState(nil,0)thenbeginSelf.Caption:='在线';endelsebeginSelf.Caption:='脱机';end;经测试,和QQ检测是否在线基本相同。
类别:网络 标签: 作者:admin 日期:2015-04-27 20.16.41

Delphi中使用IXMLHTTPRequest如何用POST方式提交带参

说明:服务器端为JAVA,编码UTF-8,返回数据编码UTF-8;数据交换格式JSON。procedureTloginForm.loginBtnClick(Sender:TObject);varjo:ISuperObject;//JSON接口req:IXMLHTTPRequest;url:WideString;//要访问的urlpar…
类别:网络 标签: 作者:admin 日期:2015-04-27 20.13.10

delphi 网页数据抓取

方法一:WebBrowser1.Silent:=True;WebBrowser1.Navigate(URL);repeatApplication.ProcessMessages;untilWebBrowser1.ReadyState=READYSTATE_COMPLETE;WebBrowser1.Navigate('javascript:document.getElementById("d…
类别:网络 标签: 作者:admin 日期:2015-04-27 20.08.25

Delphi webservices传base64字串

functionCompressStrToBase64(sStr:string):string;varM1:TMemoryStream;M0,M2:TStringStream;beginResult:='';ifsStr=''thenExit;M0:=TStringStream.Create(sStr);M1:=TMemoryStream.Create;M2:=TStrin...
类别:网络 标签: 作者:admin 日期:2015-04-27 20.03.54

Delphi IdHttpServer实现webservice

朋友有个项目,通信协议使用HTTP,数据序列使用BIN(二进制)。他不知道要选用何种技术方案。RESTwebservice是http+json,SOAPwebservice是http+xml,好像都不适合。<pstyle="margin:10pxauto;padding:0px;color:#33…
类别:网络 标签: 作者:admin 日期:2015-04-27 19.47.22

Delphi 通用程序自动更新升级

1)服务端IIS网站上创建新的虚拟路径,给新创建的虚拟路径增加MIME类型:.bpl、.ini等。2)设置update.ini文件版本号配置文件[ver]config.ini=1bplCommon.bpl=1bplGoods.bpl=1bplPower.bpl=1bplPurchasing.bpl=1prjM…
类别:网络 标签: 作者:admin 日期:2015-04-27 19.40.07

Delphi 获取网页源代码的最简单办法

获取网页源代码的最简单办法,就是利用WinInet单元中的函数:usesWinInet;functionGetWebPage(constUrl:string):string;varSession,HttpFile:HINTERNET;szSizeBuffer:Pointer;dwLengthSizeBuffer:DWord;dwReserved:D…
类别:网络 标签: 作者:admin 日期:2015-04-25 22.35.06

Delphi XE6 实现Ping的功能

介绍本代码实现了windows的ping的功能,通过使用icmp.dll里的IcmpSendEcho()函数,来发送Ping命令,具体代码:functionTPing.PingHost(IP:string;varRTT:DWORD;TTL:Byte=64;TimeOut:DWORD=4000):Integer;var//IPOpti…
类别:网络 标签: 作者:admin 日期:2015-04-16 15.41.22

Delphi XE7写的一个http post的小测试程序

本文章介绍了DelphiXE7写的一个httppost的小测试程序,该程序是通过TIdHTTP组件进行post功能的测试,具体就不介绍了,代码很简单,下面是主要的代码unitUnit1;interfaceusesWinapi.Windows,Winapi.Messages,System.S…
类别:网络 标签: 作者:admin 日期:2015-04-16 14.55.27

Delphi 禁用本地网络连接/启用本地网络连接

代码如下://Unittogetthelocalnetworkconnectionlist//andenable/disablecorrespondnetworkconnection////Author:jhzhang@iflytek.com//History:2009/1/16Create//unituNetworkConnection;interfaceusesWindows,Mes…
类别:网络 标签: 作者:admin 日期:2014-08-15 07.54.53

delphi判断电脑连接到 Internet 了吗?

procedureCheckConnection;vardwFlags:DWORD;beginifInternetGetConnectedState(@dwFlags,0)thenbeginif(dwFlagsandINTERNET_CONNECTION_MODEM)=INTERNET_CONNECTION_MODEMthenShowMessage('Connectedthroughmodem')…
类别:网络 标签: 作者:admin 日期:2014-08-13 23.40.06

Delphi XE5 实现获取本地的IP地址

介绍
类别:网络 标签: 作者:admin 日期:2014-08-02 15.36.43

Delphi提取网页中的图片

无意中,在csdn论坛中看到关于“提取网页中的图片资源”的帖子,特摘抄之。<astyle="font:bold12px/24pxHelvetica,Tahoma,Arial,sans-serif;text-align:left;color:rgb(51,90,164);text-transform:none;text-indent:…
类别:网络 标签: 作者:admin 日期:2014-04-16 22.27.30

Delphi中提取网页源代码

1.用idhttpconstURL='http://www.qq.com';beginmemo1.lines.text:=idhttp1.get(URL);end;2.用webbrowser//只获取到内的源码constURL='http://www.qq.com';beginwebbrowser1.Navigate(URL);whileWebB…
类别:网络 标签: 作者:admin 日期:2014-04-16 21.46.26

delphi 提取网页源文件纯文本函数

functionGetHtmltxt(aHtml:string):string;functionDelStrbyTag(aHtml,aFtTag,aEndTag:string):string;//除去制点tag之间的数据varaFt,aBk:integer;TempStr,BackStr:string;beginTempStr:=aHtml;BackStr:='';whileTe…
类别:网络 标签: 作者:admin 日期:2014-04-16 21.40.42

使用idhttp抓取百度和google会出错

由程序发出来的包是这样的GET/s?lm=0&si=&rn=10&ie=gb2312&ct=0&wd=qwqw&pn=00&ver=0&cl=3HTTP/1.1Content-Type:text/htmlHost:www.baidu.comAccept:text/html,*/*User-Agent:Mozil…
类别:网络 标签:idhttp 作者:admin 日期:2014-04-02 15.58.33

Delphi 用WinInet 单元实现 POST提交数据

由于贪方便,用idhttp控件实现POST部分。结果发现频繁提交的时候总产生10054等N多不可控错误。遂想换其它方法。百度找了下。基本都是靠webbrowser、idhttp等控件提交的。于是,摸索着用wininet.dll的api自己实现了一…
类别:网络 标签: 作者:admin 日期:2014-01-23 21.50.52

delphi HttpResponseStrings

functionHttpResponseStrings(code:integer):RawByteString;begincasecodeof100:Result:='100Continue';101:Result:='101SwitchingProtocols';102:Result:='Processing';//WebDAV200:Result:='HTTP/1.1200OK';201:Re…
类别:网络 标签: 作者:admin 日期:2013-12-08 08.22.45

DelphiXE4开发一个40KB的浏览器

用DelphiXE4开发一个40KB的浏览器.
类别:网络 标签: 作者:admin 日期:2013-11-20 20.20.57

delphi取得网页源码内容

取得网页的源码内容的函数以及调用方法供大家参考:programgeturl;useswininet,windows;//取网页内容functionStrPas(constStr:PChar):string;beginResult:=Str;end;functionGetWebPage(constUrl:string):string;varSe…
类别:网络 标签: 作者:admin 日期:2013-11-12 08.56.01