adminysh

[网络类] delphi 从URL地址中获得文件名

function GetFileNameFromURL(url: string): string;  

var ts : TStrings;  

begin  

  //从url取得文件名  

  ts := TStringList.create;  

  try  

    ts.Delimiter :='/';  

    ts.DelimitedText := url;  

    if ts.Count > 0 then  

      Result := ts[ts.Count - 1];  

  finally  

    ts.Free;  

  end;  

end;  

#1楼
发帖时间:2014-4-21   |   查看数:0   |   回复数:0
游客组