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

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

delphi TZoCInetChecker——一个检测网络连接的类

delphiTZoCInetChecker——一个检测网络连接的类本文给出一个封装了WinInet调用的类,用以异步检测某个Url是否能打开,从而实现网络是否连通的检测,代码以ObjectPascal写就。关键词:InternetOpen,InternetSetStat…
类别:网络 标签: 作者:admin 日期:2013-10-15 23.06.55

Delphi XE2 将域名转IP

DelphiXE2模拟键盘按键//在用友U6V3.2-【产品采购】打开计算器procedureT****1.SpeedButton1Click(Sender:T****);Varc:Hwnd;b:Byte;beginc:=FindWindow(nil,'用友U6V3.2-[产品采购]');//选择程序SetForegrou…
类别:网络 标签: 作者:admin 日期:2013-04-05 20.02.39

Delphi XE2 IDHTTP 获取UTF-8编码中文网页

DelphiXE2IDHTTP获取UTF-8编码中文网页procedureTForm1.SpeedButton1Click(Sender:TObject);<brstyle="widows:2;text-transform:none;background-color:#ffffff;text-indent...
类别:网络 标签: 作者:admin 日期:2013-04-05 20.00.48

Delphi 获取局域网内的机器名

unitmain;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ImgList,ExtCtrls,ComCtrls;typeTNetResourceArray=^TnetResource;TForm1=class(TForm)TreeView1:TTreeView;Im…
类别:网络 标签: 作者:admin 日期:2013-03-25 16.12.57

Delphi EmbeddedWB 遍历Frames并执行子frame的js脚本

varwDoc:IHTMLDocument2;wc:IHTMLWindow2;Dispatch:IDispatch;begin//遍历emWb:TEmbeddedWB的FramesifemWb<>nilthenbeginwDoc:=((emWb.DocumentasIHTMLDocument2));ifAssigned(wDoc)then&nb...
类别:网络 标签: 作者:admin 日期:2013-03-25 15.55.29