[Delphi]*easy network programming with damn cool indy~PART ONE

-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