引言:
今天在s8s8上看到一个帖子,http://www.s8s8.net/forums/index.php?showtopic=13495人气极旺,大家用不同的语言和脚本来下载一个网站上的MM照片,有shell脚本的,c语言的,C++的,vbs的,php的,perl的,还有java的和C#的,可谓...
摘要:
简单介绍一下vcl消息传递
vcl除了封装了windows消息外,还有自己自定义的一些消息。windows的消息以wm_ 开头,可以参考delphi help里带的windows sdk 或msdn, 在messages.pas文件中也可以看得到. vcl的一些内部消息,一般是以cm_ cn_ cb_ 等开头的,在controls.pas文件中也可以看得到,具体的使用可以查看delph......
摘要:
怎样编写自己的vcl控件
用过delphi的朋友们,大概对delphi的最喜欢delphi的不是他的强类型的pascal语法,而是强大的vcl控件,本人就是一位vcl控件的爱好者。
vcl控件的开源,给我们带来了享之不尽的好处。不像以前的ole控件以及activex,你完全可以重写delphhi标准控件,而且网上这方面的资源很多。
关于如何编写vcl控件,和多delphi的书籍里都......
用Delphi实现整个网站图片的极速下载上一页 ... procedure button1click(sender: tobject); procedure button2click(sender: tobject); 【程序编程相关:
Delphi的下一个版本:Diamond】 【推荐阅读:
传说中的DELPHI9--Diamond】 private 【扩展信息:
MediaPlayer9 ActiveX】 { private declarations } rgetmm:tthread; procedure getmmthread(mmurl,destpath,subj:string); public { public declarations } end;
var
form1: tform1;
implementation
{$r *.dfm}
//下载过程
procedure tform1.button1click(sender: tobject); var i,j:integer; subi,subj,cururl,destpath:string; strm:tmemorystream; begin memo1.lines.clear; //建立目录 if not directoryexists(girlpic) then mkdir(girlpic); try strm :=tmemorystream.create; for i:=1 to offi do begin for j:=1 to offj do begin if (i<10) then subi:=00+inttostr(i) else if (i>9) and (i<100) then subi:=0+inttostr(i) else subi:=inttostr(i); ...
下一页 摘要:
format是一个很常用,却又似乎很烦的方法,本人试图对这个方法的帮助进行一些翻译,让它有一个完整的概貌,以供大家查询之用:
首先看它的声明:function format(const format: string; const args: array of const): string; overload;事实上format方法有两个种形式,另外一种是三个参数的,主要区别在于它是线程安全的,......