Получить имя файла из ссылки(в конце ссылки нет имени файла)

[W0LF]

Ну сохранять ненужно ж файл, что бы получить Response, можно просто вызвать Head. Ведь если картинка 90 МБ, а нужно узнать её размер или имя, вы ж не будите скачивать её...

var
  CD: string;
begin
 idHTTP1.Head('http://www.iconsearch.ru/download.php?icon_id=546&size=5');
 CD := idHTTP1.Response.RawHeaders.Text;
 ShowMessage(Copy(CD, Pos('="', CD)+Length('="'), Pos('"'+#13#10, CD)-Pos('="', CD)+Length('="')-4));
 // Да, код не из самых красивых
end;

Или со сторонней функцией:

procedure TForm1.Button1Click(Sender: TObject);

  function CCopy(S, C1, C2: string): string;
  begin
    if C1 <> '' then
      Delete(S, 1, Pos(C1, S) + Length(C1) - 1);
    if C2 <> '' then
      Delete(S, Pos(C2, S), Length(S));
    Result := S;
  end;

var
  CD: string;
begin
 idHTTP1.Head('http://www.iconsearch.ru/download.php?icon_id=546&size=5');
 CD := idHTTP1.Response.RawHeaders.Text;
 ShowMessage(CCopy(CD, '="', '"'));
end;

[Человек_Борща]

Благодарен за столь полезную помощь! ++++