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

[lyboy99]

如果提取下载文件名称呢
如http://www.sina.com.cn/sss/www.zip
或 ftp//www.163.com.com/sss/sss.rar

如何实现提取URL链接中的文件名呢,只要www.zip 或sss.rar的名称,
如果实现,请高手指点.谢谢

[miky]

你要讲清楚在哪各控件里提取啊

[lyboy99]

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

[lxhong1980]

up

[BlueDreaming]

笨方法:
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;

[miky]

var source,p; string;
source := 'http://www.sina.com.cn/sss/www.zip'
p := LastDelimiter('/', source);

p就是你要的东西

[lyboy99]

Thanks BlueDreaming(蓝色海岸)

[rockswj]

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