function GetFileNameFromURL(const aURL: string): string;  
var ts : TStrings;  
begin  
  //从url取得文件名  
  ts := TStringList.create;  
  try  
    ts.Delimiter :='/';  
    ts.DelimitedText := aURL;  
    if ts.Count > 0 then  
      Result := ts[ts.Count - 1];  
  finally  
    ts.Free;  
  end;  
end;