大家来帮忙呀,看看这个问题怎么解决呢!

Question

如果提取下载文件名称呢
 如http://www.sina.com.cn/sss/www.zip
  或 ftp//www.163.com.com/sss/sss.rar如何实现提取URL链接中的文件名呢,只要www.zip 或sss.rar的名称,
如果实现,请高手指点.谢谢

Answer 1

http://www.sina.com.cn/sss/www.zip
                             -------->只要只提取名称

Answer 2

笨方法:
function GetFileName(const URL: string): string;
var I, no: Integer;
begin
   no := 1;
   for I := 1 to Length(URL) do
   begin
     if URL[i] = '/' then
       no := i;
   end;
   Result := copy(URL, no + 1, length(URL) - no);
end;

Answer 3

var source,p; string;
  source := 'http://www.sina.com.cn/sss/www.zip'
  p := LastDelimiter('/', source);p就是你要的东西

Answer 4

Thanks  BlueDreaming(蓝色海岸)

Answer 5

uses strutils;
s:='http://www.sina.com.cn/sss/www.zip' ;
  s:=RightStr(s,Length(s)-LastDelimiter('/',s));