SaveDialog und URLDownloadToFile

[memphis]

hallo

Zitat von General2004:

Was machst du aber hier???

Zitat:

http://www.delphipraxis.net/download.php?id=1811

müsse eigentlich folgendermaßen zu lösen sein:

Delphi-Quellcode:

function ExtractFilenameUrl(url:string):string;
var i,j:integer;
begin
  I := LastDelimiter('/', url);
  j := LastDelimiter('?', url);
  if j>i then
    Result := Copy(url, I + 1, j-i-1)
  else
    Result := Copy(url, I + 1, MaxInt);
end;

MfG
Luki