解析FTP地址代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】解析FTP地址

作者:秀清 / 发布于2015/5/13/ 1326


	procedure TForm1.FTPAnalysis(S:string;var UserName,Password,IP,FileName:String;var DirList:TStringList);
	var
	i,j:integer;
	strAuthorization,strAddr,strDirFile:string;
	//授权信息
	begin
	UserName:= 'anonymous';
	Password:= 'test@test.com';
	IP := '';
	strAddr := Copy(S,7,length(S)-6);
	//取得ftp://之后的部分
	//S 格式必须是类似ftp://rec:ooo@192.168.76.11/20050418/abcdef.vox，
	//或ftp://192.168.76.11/......
	i := Pos('@',S);
	if(i>0) then
	begin
	 strAuthorization := Copy(S,7,i-7);
	 //只取帐号密码字段
	 j:=Pos(':',strAuthorization);
	 if(j<1)then
	 exit;
	 UserName := Copy(strAuthorization,1,j-1);
	 PassWord := Copy(strAuthorization,j+1,length(strAuthorization)-j);
	end;
	i := Pos('@',strAddr);
	j:=Pos('/',strAddr);
	if(j>0) then
	 IP := Copy(strAddr,i+1,j-i-1);//获得IP地址
	strDirFile := Copy(strAddr,j+1,length(strAddr)-j);
	DirList.Delimiter := '/';
	DirList.DelimitedText := strDirFile;//获得目录列表
	FileName := DirList[DirList.count-1];//最后部分为文件名
	DirList.Delete(DirList.Count-1);
	end;

试试其它关键字

　解析FTP地址　

同语言下

可能有用的

秀清贡献的其它代码(25)