摘要: 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 翔飞 阅读(882) 评论(0) 推荐(0) 编辑
摘要: 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 翔飞 阅读(653) 评论(0) 推荐(0) 编辑
摘要: 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 翔飞 阅读(5735) 评论(0) 推荐(0) 编辑
摘要: 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 翔飞 阅读(351) 评论(0) 推荐(0) 编辑
摘要: 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 翔飞 阅读(277) 评论(0) 推荐(0) 编辑
摘要: 该控件可以将任意文件打包进.dfm(使用zlib压缩),可以用该控件编写只有一个exe的绿色软件,或者用于自己编写安装程序。 使用非常简单,设计期将该控件放入form, 指定FileName属性即可将该文件内容打包进dfm中。运行时可以调用FileRes1.ResToFile解压到指定的文件内或通过FileRes1.ResToStream解压到一个stream中(比如图片文件,接下去可以用Bitmap.LoadFromStream读入),这两个函数的Keep参数指定是否在操作的同时释放FileRes中占用的内存(如果只需要在程序运行时解压一次则建议使用Keep := False; 这样可以降低 阅读全文
posted @ 2011-10-09 15:25 翔飞 阅读(249) 评论(0) 推荐(0) 编辑
摘要: {取某字符串出现的位置(返回str字符串中含有str1从a开始第B次出现的位置)}FUNCTION FStr_Instr(str,str1: string;a,b: integer): integer;var i,j: integer; num: integer ; str_tmp: string ;begin Result := 0 ;// str_tmp := str ; str_tmp := copy(str,a,length(str)) ;// num := FStr_Num(str,str1) ; num := FStr_Num(str_tmp,str1) ; if length(s 阅读全文
posted @ 2011-10-08 14:12 翔飞 阅读(303) 评论(0) 推荐(0) 编辑
摘要: 以下列举了大量有用的建议,帮助大家进行低级程序设计,并提供了代码编写的一般性指导: (1) 类名首字母应该大写。字段、方法以及对象(句柄)的首字母应小写。对于所有标识符,其中包含的所有单词都应紧靠在一起,而且大写中间单词的首字母。例如: ThisIsAClassName thisIsMethodOrFieldName 若在定义中出现了常数初始化字符,则大写static final基本类型标识符中的所有字母。这样便可标志出它们属于编译期的常数。 Java包(Package)属于一种特殊情况:它们全都是小写字母,即便中间的单词亦是如此。对于域名扩展名称,如com,org,net或... 阅读全文
posted @ 2011-09-23 10:59 翔飞 阅读(141) 评论(0) 推荐(0) 编辑
摘要: GoogleCode SVN使用记录 GoogleCode使用的密码不是Gmail的密码,而是由GoogleCode随机生成的密码,不能指定,只有再次由系统随机生成。用户名为Gmail地址的@前面部分。 如果使用的邮箱不是Gmail,那么在验证的时候需要使用邮件地址为用户名,密码也得去GoogleCode自己的Profile下的settings查看。 要想以后能上传修改好的代码,在checkout的时候那个地址得用https。如果用http,那个随便你怎么弄,而且用户名密码都是对的依然提示什么地址不存在等各种错误。这个时候你删除之前的目录,重新svn checkout一遍,地址使用https就 阅读全文
posted @ 2011-08-29 01:15 翔飞 阅读(1012) 评论(0) 推荐(0) 编辑
摘要: http://tj.disk.ftn.qq.com/ftn_handler/df4b418fe864237996abdc532aa5516118a4459d89d21fd788a5159cb50ff2c0ce13773c29533d43bb0fb13e8ad8cd97a522607a8b1145af6c06bcc042a68f88/QQMailDisk.exe?k=753132335a09bb9b782f85371232524b0f080006565707061b075350001f505557091f0a55070549010150525204550653030100343c6435677c 阅读全文
posted @ 2011-08-27 16:48 翔飞 阅读(176) 评论(0) 推荐(0) 编辑