delphi 解析下载链接的文件名

你只要这个 1009000235400064.mp3？

写了个函数 ，调用就行。相信你自己也可以写个类似的。

function GetFileName(sURL: string): string;

var

I: Integer;

begin

Result := '';

if sURL = '' then

  Exit;

I := Pos('?', sURL);

if I = 0 then

  Exit;

Delete(sURL, I, Length(sURL));

sURL := StringReplace(sURL, '/', '\', [rfReplaceAll]);

Result := ExtractFileName(sURL);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Caption := GetFileName(Edit1.Text);

end;