其他语言

本类阅读TOP10

·基于Solaris 开发环境的整体构思
·使用AutoMake轻松生成Makefile
·BCB数据库图像保存技术
·GNU中的Makefile
·射频芯片nRF401天线设计的分析
·iframe 的自适应高度
·BCB之Socket通信
·软件企业如何实施CMM
·入门系列--OpenGL最简单的入门
·WIN95中日志钩子(JournalRecord Hook)的使用

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
[Delphi]*easy network programming with damn cool indy~PART ONE

作者:未知 来源:月光软件站 加入时间:2005-5-13 月光软件站

-My Daily One---------------------------------------------------------------------------------------------------------------------------
Recently I find that it's cool to use my own FTP, So I wanna build my own programme.i think it's easy to build a desktop programme in Delphi than in others,and i like Delphi too.i've never use Delphi to build a network programme, but today i wanna have a try, first i find out an e-book about the indy conponents in Delphi,with this book i found it's easy to use it,for example.as every guys know that a client must first connect to the server that begin to download files how to connect to? in fact you only need  fill 4 parameters for the idFTP. blows are my codes:
----------------------------------------------------------------------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
ls:TStrings;
begin
ls:=TStringList.Create;
idFTP1.Host:='218.193.119.127';
idFTP1.Username:='1';
idFTP1.Password:='1';
idFTP1.Port:=21;
idFTP1.Connect(true);
idFTP1.List(ls);
Filelistbox1.Items.Assign(ls);
ls.Free;
end;
----------------------------------------------------------------------------------------------------------------------------------------------
you see? i use a instance of TStringList named "ls" to save my server part filenames and assign it to a FileListBox,so now all strings i get are on the FileListBox's items,but there is another problem, you can see Strings are this kind:"drwx------1 user group        0Dec 01 08:59 fuckable" ,"-rwx-----1 user group        12345 Jan 12 09:56 disfuckable.swf"cause this server is on my PC too,so i know what this two damn string say,the one begin with "drwx"means there is a directory named fuckable,the other means a damn "disfuckable.swf" it's a file, know how to get the real file name from these damn strings? so blows are my codes
----------------------------------------------------------------------------------------------------------------------------------------------
Function TForm1.getFileName(temp:String):String;
begin
while pos((' '),temp)>0 do
temp := copy(temp, pos(' ', temp) + 1, length(temp) - pos(' ', temp));
 
result:=temp;
end;
----------------------------------------------------------------------------------------------------------------------------------------------
i write a function called getFileName to get the real file name,it works in this mode:do not stop to get the substring from the position of the blank to the end untill on blank there,this codes are cool, but in windows we can make a filename contain a damn fuckable blank,Ooh~no way~i'll kill u,but now I don't know how to deal with it.

                                          

                                                        I'M A HAKKA NAMED WILLIAM YUAN                                                                  




相关文章

相关软件