-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
本文地址：http://com.8s8s.com/it/it22778.htm