[Genry]

Можно узнать имя из адреса к файлу на диск. Вот так:

Код:

1 2 3 4 5

var S: string; begin S:=ExtractFileName('D:\red.jpg'); end;

А как узнать из URL адреса? Например: http://mysite.ru/red.jpg

[ART]

Смотрите сначала в FAQ!!!

[M.A.D.M.A.N.]

Код:

1 2 3 4 5 6 7 8 9 10

function ExtractUrlName(UrlName:String):String; var Index:Word; begin   for Index:=Length(UrlName) downto 1 Do     if UrlName[Index]='/' Then       begin         Result:=Copy(UrlName,Index+1,Length(UrlName));         Exit;       end; end;

Пойдет?