Delphi 技巧
文章平均质量分 53
PuCooV
这个作者很懒,什么都没留下…
展开
-
编程实现网页表单数据的自动提交
相关的资料:MSHTML是微软公司的一个COM组件,该组件封装了HTML语言中的所有元素及其属性,通过其提供的标准接口,可以访问指定网页的所有元素.MSHTML对象模型是由一些对象和集合组成的.处于根部的是HTML,描述了打开页面的1个窗口,包括一系列集合和对象。如Frames集合,History,Location,Navigator,Document,Vi—sum,Event对象等.其中描述呈现原创 2005-08-13 10:33:00 · 1904 阅读 · 0 评论 -
Delphi文件操作所涉及的一些函数 附例子
//判断文件是否存在 FileExists//判断文件夹是否存在 DirectoryExists//删除文件 DeleteFile; Windows.DeleteFile//删除文件夹 RemoveDir; RemoveDirectory//获取当前文件夹 GetCurrentDir//设置当前文件夹 SetCurrentDir; ChDir; SetCurrentDirectory//获取指定驱转载 2008-11-10 13:05:00 · 1799 阅读 · 0 评论 -
用Delphi动态改变页面内容
使用TWebBrowser组件可以直接显示网页的内容, 因此在用delphi开发程序时,我们可以使用TWebBrowser来展示一些数据,获得更美观专业的效果,提高应用程序的挡次。 通常的做法时,做一些静态的页面,TWebBrowser装载这些页面后,再通过delphi填写数据。故需要用到的技术就是如何通过delphi读取或者控制TWebBrowser中内容。其实TWebBr转载 2008-06-18 10:50:00 · 1031 阅读 · 0 评论 -
检测一个URL是否有效
//可用来检测网络连接是否正确,InternetCheckConnection函数检查不准确,有些情况无法检测到,而以下CheckUrl函数则不会。//uses wininet;function CheckUrl(url: string): Boolean; var hSession, hfile, hRequest: hInternet; dwindex, dwcodelen: dword;原创 2006-02-05 12:42:00 · 2930 阅读 · 1 评论 -
如何判断网页打开失败
先用InternetCheckConnection判断下uses wininet;if not InternetCheckConnection(pchar(edit1.text), 1, 0) then showmessage(无法打开页面 );原创 2006-02-04 23:25:00 · 1557 阅读 · 0 评论 -
如何在WebBrowser打开的网页链接后直接在WebBrowser打开而不是新弹出一个IE窗口来打开
问题:如何在WebBrowser打开的网页链接后直接在WebBrowser打开而不是新弹出一个IE窗口来打开??? 来自:龙之天涯, 时间:2005-6-3 15:59:41, ID:3093392这个问题很难么??来的兄弟也帮忙顶一下. 来自:jinwe, 时间:2005-6-3 18:40:09, ID:3093609引用一个别人的回答:解决办法:控制打开新的页面在你的程序中,而不是原创 2006-02-04 18:55:00 · 11608 阅读 · 1 评论 -
获取网页的标题
Uses OleCtrls, SHDocVw,mshtml var doc:IHTMLDocument2;ElementGroup:IhtmlElementCollection;HtmlItem:IHTMLElement;begindoc:=WebBrowser1.Document as IHTMLDocument2;ElementGroup:=Doc.all.tags(TI原创 2006-02-04 17:06:00 · 1259 阅读 · 0 评论 -
一个多线程刷页面的程序
//方法就是用5个线程不停的get页面,本来想用access但是发现5个线程常常有的会挂起,于是选择了用文本文件存储待刷的页面地址.主要控件就是IdHTTP这个控件,我在本站前面的文章中已经描述了他的基本用法.这个例子虽然简单,但是稍加改动就可以增加动态IP功能,并做成论坛发贴机之类的东东. unit main; interface uses Windows, Messages, SysUti原创 2006-02-04 16:12:00 · 1726 阅读 · 0 评论 -
DELPHI字符串分割函数
function SplitString(Source, Deli: string ): TStringList;stdcall; var EndOfCurrentString: byte; StringList:TStringList; begin StringList:=TStringList.Create; while Pos(Deli, Source)>0 do begin EndOfCu原创 2006-02-02 01:55:00 · 1890 阅读 · 0 评论 -
为指定的父窗口枚举子窗口、按钮
版权声明:可以任意转载,转载时请务必以超链接形式标明文章原始出处http://xinyistudio.vicp.net/和作者信息及本声明 很早就写过类似spy++和查看密码窗口的东西,一直想给这个小东西再加点特别的。前段时间对软件安装注册发生了兴趣,有些软件如果你不输入正确注册码,那该死的“下一步”按钮就一直disable。这次我就让spy++彻底spy到底,把那个注册用的按钮置亮,让我原创 2006-01-25 14:34:00 · 7479 阅读 · 2 评论 -
资源文件的创建和使用
几乎每个Windows应用程序都使用图标、图片、光标等资源。资源是程序的一部分,但是它是不可执行代码。下面我们就详细介绍资源文件在Delphi5中建立和使用方法。1.把资源放到Exe文件的优点由于定位资源比在磁盘中定位文件花费时间少,所以应用程序执行会更快。多种资源可以放在一个文件中,减少了图标、图片、光标等文件数量。保存资源文件时不要和工程名相同,因为Delphi创建工程时会自动创建一个和工程名原创 2005-11-18 17:14:00 · 1254 阅读 · 0 评论 -
从TWebBrowser得到网页源码及Html
下面先介绍一种极其简单的得到TWebBrowser正在访问的网页源码的方法。一般方法是利用TWebBrowser控件中的Document对象提供的IPersistStreamInit接口来实现,具体就是:先检查WebBrowser.Document对象是否有效,无效则退出;然后取得IPersistStreamInit接口,接着取得HTML源码的大小,分配全局堆内存块,建立流,再将HTML文本写到流原创 2005-08-13 11:07:00 · 2044 阅读 · 0 评论 -
提取网页中所有链接
提取连接地址:var doc:IHTMLDocument2; all:IHTMLElementCollection; len,i:integer; item:OleVariant; begin doc:=WebBrowser1 .Document as IHTMLDocument2; all:=doc.Get_links; //doc.Links亦可 len:=all.le原创 2005-08-13 10:59:00 · 2139 阅读 · 0 评论 -
webbrowser中打开新窗体
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool); var NewApp: TForm1; begin NewApp := TForm1.Cre原创 2008-12-04 20:21:00 · 1244 阅读 · 1 评论