11 2011 档案

idhttp读取网页，代码完整，Xe2有错
摘要：procedureInitHttp(varId_HTTP:TIdHTTP);beginId_HTTP.ConnectTimeout:=10000;Id_HTTP.ReadTimeout:=10000;Id_HTTP.Request.Accept:='image/gif,image/x-xbitmap,image/jpeg,image/pjpeg,application/x-shockwave-flash,*/*';Id_HTTP.Request.AcceptLanguage:='zh-cn';Id_HTTP.Request.ContentType:='a 阅读全文
posted @ 2011-11-29 20:38 翔飞 阅读(887) 评论(0) 推荐(0) 编辑
用Wininet来下载文件
摘要：WinInet functions were used in windows to help developers develop network application more conveniently, but there is no Delphi code example on the internet, so I give some code here, help it useful for you.Please first look at the following code:type TNTDownLoadProgressCallBack = reference to proc. 阅读全文
posted @ 2011-11-24 14:07 翔飞 阅读(664) 评论(0) 推荐(0) 编辑
delphi中VirtualStringTree树使用方法之终结篇！2011-07-01 14:06VirtualStringTree 的用法详解：
摘要：delphi中VirtualStringTree树使用方法之终结篇！2011-07-01 14:06VirtualStringTree 的用法详解：作者：张志宝go淘宝例子：创建了一个树名为VirtualStringTree1，第一列显示数据库字段ID的值，标题为编号；第二列显示字段Name的值，标题为名字。一、【TVirtualStringTree常用属性】 BorderStyle :设置边框选项 bsSingle设置单边框 为TVirtualStringTree添加列及列标题： Header--Columns : 设置列 点击“…”，在弹出界面点击add new按钮，就增加一列，在其te. 阅读全文
posted @ 2011-11-15 21:20 翔飞 阅读(6001) 评论(0) 推荐(0) 编辑
使用TStringList存储对象和字符串
摘要：http://www.cnblogs.com/del/archive/2008/04/26/1172589.htmlvar List: TStringList; obj: TObject;procedure TForm1.BitBtn1Click(Sender: TObject);var i:Integer;begin List := TStringList.Create; List.AddObject('btn', Pointer(IdThreadComponent1)); {这样也可以} List.AddObject('xxx', IdThreadCompo 阅读全文
posted @ 2011-11-13 20:46 翔飞 阅读(356) 评论(0) 推荐(0) 编辑
用THotKey控件设置全局热键
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ComCtrls;type TForm1 = class(TForm) BitBtn1: TBitBtn; HotKey1: THotKey; procedure BitBtn1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private procedure wm 阅读全文
posted @ 2011-11-08 11:58 翔飞 阅读(281) 评论(0) 推荐(0) 编辑