Nombre de archivo de un link

[JuanOrtega]

hola , estaba pensando en hacer un programa en delphi para bajar archivos , el problema es que no se como sacar el nombre de archivo de un link.
un ejemplo seria

httx://localhost/archivos/tengo.zip

La idea seria poder reconocer el archivo final de el link que seria tengo.zip para despues guardar ese nombre en una variable string

[ecfisa]

Hola Lepuke.


function GetLinkFileName(const Link: string): string;
var
TS: TStrings;
begin
TS:= TStringList.Create;
try
TS.Delimiter:= '/';
TS.DelimitedText:= Link;
Result:= TS[TS.Count-1];
finally
TS.Free;
end;
end;


Llamadas de ejemplo:

var
s: string;
begin
s:= 'httx://localhost/archivos/tengo.zip';
s:= GetLinkFileName(s);
ShowMessage(GetLinkFileName('http://www.terawiki.clubdelphi.com/archivos/Delphi/Manuales/La_Cara_Oculta_De_Delphi_4.pdf.zip'));
...
end;


Saludos.