白天想晚上,晚上想白天

上班时候好想回家睡觉,所以是白天想晚上;回到家后又睡不着,所以是晚上想白天。

可能是人长大了吧,想的事情多了,每天都想造子弹,为了生活,为了房子,所以要努力工作,努力赚钱。现实就是这样,有钱了什么事都办,买房找老婆都不在话下,如果没钱的话,恐怕没有人愿意跟你过,没有经济基础说什么都是假的。趁年轻多学点东西,多赚钱钱才是第一位,事业才是第一位,事业成功了,爱情自然就丰收了,不是吗?

Posted in 我的生活 at May 31, 2007. by 傻猫 .    Views: 2732    No Comments

在delphi中用indy实现FTP上传 下载的例子

以前总认为FTP程序实现很困难,但后来在网上查看了相关的帖子后发现原来用delphi实现FTP上传与下载竟如此容易,确实对我鼓舞很大。
         由于delphi本身自带了indy控件,因此用这些控件实现网络编程即快又容易。尽管如此,我还是极大地鼓励自己查看FTP底层是如何实现的,但就目前而言,indy控件还是一个非常不错的选择。
       针对indy的强大,我还是决定将这段代码帖出来,主要是方便自己日后复习、查询。

Unit1;

interface

uses
  Windows, Message 3 _en>在delphi中用indy实>eerfap4t="s, 3 _en>"28ltdCtrap4IdB 4Id 4IdTCPenection, 3 _en> e="R 3 _en>1: TOpenDia/a>;nbsp;    4procedure Button1 ck(S_toer: TObject);nbsp;    4procedure Button2 ck(S_toer: TObject);nbsp;    4procedure Button3 ck(S_toer: TObject);nbsp;    4procedure Id1Status(AS_toer: TObject年oniv>AStatus: TIdStatus;nbsp;    nbsp; &oniv>AStatusT }:8ltrm/a);nbsp; & priv的nbsp;    4{ Priv的 de i10.ions } 3 _en> a(" 3 _en>:= '192.168" co99'; //服务址 3 _en>:= 'cc'; //服务户 3 _en>:= '1'; //服务密, Messanbsp;& Id1.enect() 由于 //连接ftp, Messanbsp;& xml"1.T }>:= Id1.RetrmeveCurrrntDir;//得晈始一> bsp; & Id1.Ch Dir('" '); //进入" F一> bsp; & //Id1.h Dir('..'); //是 级一> bsp; & Id1.Lis (tr); //得" 一> 戰假痥span表 bsp; & Memo1.Ler"s.Assign(tr); 3 _en> procedure Tt="1.Button2 ck(S_toer: TObject);nbsp;&a(" 3 _en>:TIdLis Ip:/s;nbsp; & }>: TIdLis Ip:/; 3 _en>: ; Win>; 3 _en>:8ltrm/a;nbsp;&be>:= Id1.DirectLis m/a.Ip:/s[0].Fn>N me;nbsp; &4Id1.Transfername>:= ftBinary; //指艀以进制spanbsp;& 或此sspaftASCII 3 _en>:= Id1.DirectLis m/a; //得当个一> 戥span一> n表 bsp;   &t>:= tt.Ip:/s[i]; //得r />&sspadelp信息 3 _en>:=t.T } 由于 //日r />&sspa信息内 3 _en>:= t.Fn>N me;nbsp;   &show rerfa(t.Owr">N me+'nbsp;& '+t.GroupN me+'nbsp;& '+t.Fn>N me+'nbsp; & '+t.LerkedIp:/N me);nbsp;    4 teId1.DirectLis m/a.Ip:/s[i].Ip:/name>= ml"Fn> pann //人愥询spa 3 _en> procedure Tt="1.Button3 ck(S_toer: TObject);nbsp;&a(" 3 _en>: strm/a;nbsp;&be>1.Exe :=eOpenDia/a>1.Fn>N me;nbsp;   &Id1.Ptex'f:\测试档此.rar','测试档此.rar');//  procedure Tt="1.Id1Status(AS_toer: TObject年oniv>AStatus: TIdStatus;nbsp; &oniv>AStatusT }:8ltrm/a);nbsp;&be>ed: show rerfa('  _to. 3 _ "+t:egory/SamoolLife/ conon"dn.net/qqp_528/Commenttype6/e6/e9/783149.asp1 is/hello conon"dn.net/qqp_528/Commenttype6/e6/e9/783149.asp1> <

i> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '",indy控圄事择会
i> -l ="EN-US">bug
i> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"懶习房给需他子些 点帮助和提示
i> -l ="EN-US">!
i> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"懶n在只 clas删除孿自复至件 i> -l ="EN-US">cods, ass=" i> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"/p>

写都稍微思考r /> <䮶弌indye

ass=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">usutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">nbsp;&o:/o:/utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">; Windows, utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">nbsp;&o:/o:/utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">ge/utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye在delphi中用indy实>eerfap4t="s,/utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye"28ltdCtrap4IdB 4Id 4IdTCPenection,IdLis /utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">nbsp;&o:/o:/utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">e="R>utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2lutar sizorm3">li> -l ="EN-US"> -ad-formmso-lsscerun: ye<示e

ass=" putaroog想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yea(">utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeiinkk rntation>utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">nbsp;&o:/o:/utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">{$R *.dfm}>utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">nbsp;&o:/o:/utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">nbsp;&o:/o:/utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">nbsp;&o:/o:/utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">nbsp;&o:/o:/utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">nbsp;&o:/o:/utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">nbsp;&o:/o:/utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2lutar sizorm3">li> -l ="EN-US">{, ass=" i> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '" clas整/>&一> 绹遍历假现F一> glss=" putaroog想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2lutar sizorm3">li> -l ="EN-US">li> -ad-formmso-lsscerun: yeCh Dir(Root), ass=" i> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"O根一> glss=" putaroog想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2lutar sizorm3">li> -l ="EN-US">li> -ad-formmso-lsscerun: ye -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"/p> 1;<建此一> glss=" i> -l ="EN-US">+ Remot Diroglss=" putaroog想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2lutar sizorm3">li> -l ="EN-US">li> -ad-formmso-lsscerun: ye -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"/p> 1; i> -l ="EN-US">lis , ass=" i> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"^戰假一> noglss=" putaroog想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2lutar sizorm3">li> -l ="EN-US">li> -ad-formmso-lsscerun: ye -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '">循环判断, ass=" i> -l ="EN-US">/ass=" i> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"进入, ass=" i> -l ="EN-US">Remot Diroglss=" i> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"一> n部 >utaroog想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2lutar sizorm3">li> -l ="EN-US">li> -ad-formmso-lsscerun: ye -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"人愥一> 继续归圐则, ass=" i> -l ="EN-US">xt)/ass=" i> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"该spa此一> 绽, ass=" i> -l ="EN-US">xt)/ass=" i> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"田假痥span返 级一> glss=" putaroog想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2lutar sizorm3">li> -l ="EN-US">li> -ad-formmso-lsscerun: ye -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '< i> -l ="EN-US">Lis /ass=" i> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"再旾信息继续循环oglss=" putaroog想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yenbsp;&o:/o:/utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">procedure _DownloadDir(a("td>: TIdtp;Remot Dir,LtDalDir>: strm/a);utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">label Fn>s />utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">a(">utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye: ; Win>;utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">be>li> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: ye+ Remot Dir);utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: ye:=td.DirectLis m/a.Couar>;utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye= 0 tannutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye:=e0 to DirCouar>- 1 doutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: ye&l} gt;td.DirectLis m/a.Couar>tannutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: ye= d.DirectLis m/a.Couar>;utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye= ml"Direct tannutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeN me,LtDalDir>+ Remot Dir'\'), utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: yeN me,LtDalDir>+ Remot Dir'\' +, utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeN me,true);, utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye:= IntToltr(ltrToInt(t="1.lb_num.Ca工)1);, utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: ye= DirCouar>- 1 tannutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">_to />utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">nbsp;&li> -l ="EN-US">{, ass=" i> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"删除整/>&/ass=" i> -l ="EN-US">ftp, ass=" i> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"一> 绌,面spaspa ass=" i> -l ="EN-US">/ass=" >utaroog想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2lutar sizorm3">li> -l ="EN-US">li> -ad-formmso-lsscerun: ye -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"玈除根一> 习般&/ass=" i> -l ="EN-US">Remot Diroglss=" i> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"ﮞ/ass=" i> -l ="EN-US">RootDir, ass=" i> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"d i> -l ="EN-US">}ass=" >utaroog想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">procedure _Delet AllFn>s(a("td>: TIdtp;Remot Dir,RootDir : strm/a);, utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">label Fn>s;n utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">a(">utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: ye: strm/a;n utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">be>li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: ye= 0 tann Exi";n utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">Fn>s :n utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: ye:=td.DirectLis m/a.Couar>;utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye DirCouar>= 0 doutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: ye:=td.RetrmeveCurrrntDir;n utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: ye:=td.DirectLis m/a.Couar>;utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye:=e0 to DirCouar>- 1 doutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeN me>= RootDir pann Exi";n utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye:=e0 to DirCouar>- 1 doutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: ye= 0 tann Brek />utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye= ml"Direct tannutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: yes(d,d.DirectLis m/a[i].Fn>N me,RootDir);, utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: yeN me);, utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye:= IntToltr(ltrToInt(t="1.lb_num.Ca工)1);, utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: yes />utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">_to />utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">nbsp;& -l ="EN-US">procedure Tt="1.Btt_DownLoadDir ck(S_toer: TObject);n>utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">be>li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">_to />utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">nbsp;& -l ="EN-US">procedure Tt="1.Btt_Delet Dir ck(S_toer: TObject);n>utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">be>li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: yeli> -ad-formmso-lsscerun: ye -l ="EN-US">li> -ad-formmso-lsscerun: yes(Id1,'1002.1002.1002','1002.1002.1002'); utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> -ad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">li> lad-formmso-lsscerun: yeutarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">_to />utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">nbsp;&_to. utarooglss=" p想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2li> -l ="EN-US">nbsp;& -l ="EN-US">nbsp;&li> -ad-formFONT-FAMILY: 宋体; mso-= fiioutarsfamily: ' vars New Ro '; mso-h sioutarsfamily: ' vars New Ro '"运行环境ass="li> -l ="EN-US">{})ype0 advancm/csmlver,因7.0罋is6.0ass="l>utaroog想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2lutar sizorm3">li> -l ="EN-US">utaroog想samool.cMsoNt="toolad-formMARGIN: 0cm 0cm 0pad2lutar sizorm3">li> -l ="EN-US"> "+t:s/hello conon"dn.net/s dhgx/Commenttype4/04/07/15221.asp1ass="l>utaroog l.c>ed ; egory/SamoolLife/samool.com/ctpeg/span>软>
  • 2>
  • 3>
  • »>
  • 赞助商>

    " lad-formdisplay:inline-block;width:250px;height:250px" lttpa-ad-clirnt="ca-pub-8073927669897848" lttpa-ad-slot="5705858453">

    歀新发布

    其它

    home a>nbsp; &|nbsp; &oa href="s/hellosamool.com/feed/">rntries (rss) a>nbsp; &|nbsp; &oa href="s/hellosamool.com/feed/commrnts/">commrnts (rss) a>nbsp; &|nbsp; &oa href="#hade">top ↑> 傻猫网络日志 a>.el.wered by Typecho a> ))) ICP:蜀ICP备05pe9250号.

  • 在delphi中用indy实5FTP上我开始吸毒了>

    以前总认为FTP程序实现突/p> 歀近烟瘾比较大终买學包南海习天 <没了乹知道怎么了歀近经常失眠睡着绥像整/>&span神了很多乶弉至少睡觉6-7/>& 现在每/>&艀歀多睡3-4小时早很早知 <醒了习旦醒 1;< <难入睡绝 "看熟悉span脑屏幕每每情自玜燃r 支又r 支香烟看盒F里span头 潑我span瘾确i进步了e

    Posted in 我的生活 aSamoolLife/">我span活> at May 31, ype7. by 傻猫 . nbsp;  Views: 2773 nbsp; 

    在delphi中用indy实2FTP上25岁生日快乐>

    以前总认为FTP程序实现公司给偶买生日蛋糕谢谢谢谢刘总谢谢李总谢谢雷总谢谢CCTV谢谢MTVe 3 _ 3 _ 3 _ 3 _ 3 _<>

    Posted in 我的生活 aSamoolLife/">我span活> at May 25, ype7. by 傻猫 . nbsp;  Views: 2751 nbsp; 
    在delphi中用indy实38FTP上《星际争霸2》 官方截图>

    以前总认为FTP程序实现这䀋 至暴雪官方游戏截图界面s卶 繠起 看看e 3 _ 3 _ 3 _ 3 _ 3 _ 3 _ 3 _ 3 _ 3 _ 3 _<>

    Posted in 我的生活 aSamoolFun/">休闲娱乐> at May 24, ype7. by 傻猫 . nbsp;  Views: 2539 nbsp; 
    在delphi中用indy实37FTP上我抱金砖?>

    以前总认为FTP程序实现展出那天歀郁闷孺蒋哥由于断n把打歺芯片给烧烂了在活动现场做了少學性杯( <䀊照片在杯F 缉 看热闹孺多 整/>&活动现场我们星空/a>码成了角缯面峨玱朋那就s地清静了哈哈e

    那MM玁一杯F由于"打歺出问题了所 没玁本 "照片已经打出 习张起彑还一老妞那老妞看照片很好看结果连家span片起走 真郁闷e

    星期班1;我把杯F给MM( "知道是JJ带过去艀起在“源记串串”吃r西缏能䉀熟spa原因缥话很少感 忧郁r 样我呢话s多像滔滔江水r 样我什么"候成唱戏孺

    吃r西本 "去新卶公园结果门口守车早班了无语了e三次见面"大家s 说熟悉了少缥像再生所 聊话题也比较多她问题太多我讲自己故事很厉害可 几年说现在真spa写本书远远余她名字错叫海鸥让我s/p>想起r <歌“问r 声那彩云问r 声那海鸥”e女大r 抱金鸡女大金满罐女大抱金砖;女大四福寿至女大赛老母女大六F 够女大笑嘻嘻 女大八准发家 女大九样样有 女大十样样值e

    俗话说“女大抱金砖”对于这 话我在百度找湶 解 大r抱金砖实际生活写n女大r 佑会n顾懂事能为你省心省钱相于抱大金砖e

    金砖都喜欢 更何大金砖呢天降金砖砸我 我䀎还䉀呢>

    nbsp;&<>

    Posted in 我的生活 aSamoolLife/">我span活> at May 24, ype7. by 傻猫 . nbsp;  Views: 5191 nbsp; 
    在delphi中用indy实35FTP上我span其实简单>

    以前总认为FTP程序实现我span其实简单一n我可鼓励我关心我让我每天都能感受你pan就OKe

    我像艘进皀轮佑在乘风破浪航行皽歀容易失去方向我魀要r 拥有指南针孺她"常地给我提供建议当"偏离航道spa时候她及时spa提醒当"懈怠pa时候她给我鼓励让我振作e

    我更像架战斗歺只要肯给我r 动力" <飞pa更快更高"喜欢飞翔pa感"喜欢冲刺spa感你pa鼓励 <䀈无穷无尽能量"渴望飞翔"更渴望无尽能量e

    在我spa世界里nspa空间很小只一位置只能容 r 当r 这/>&置pa时候任何都别想挤进来这 <䀈spanr 真诚又简单spa爱e

    l.c>ed ; egory/SamoolLife/samool.com/ctpeg/SamoolLife/">我span活> at May 22, ype7. by 傻猫 . nbsp;  Views: 4103 nbsp; 
    1>