Извлечь имя файла из строки URL

Delphi , Интернет и Сети , URL

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

function ExtractUrlFileName(const AUrl: string): string;
  var
    i: Integer;
  begin
    i := LastDelimiter('/', AUrl);
   Result := Copy(AUrl, i + 1, Length(AUrl) - (i));
  end;

  procedure TForm1.Button1Click(Sender: TObject);
  var
    s: string;
  begin
    s := ExtractUrlFileName('http://www.delphimania.de/index.php');
    ShowMessage(s);  //index.php  
end

Статья Извлечь имя файла из строки URL раздела Интернет и Сети URL может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2011-06-11 16:15:27 :: re:Извлечь имя файла из строки URL

пользователь: RedCAT.

Указанная выше функция будет работать далеко не во всех случаях. Например при URL типа http://example.com она возвратит example.com, хотя это совсем не имя файла. Также она не учитывает наличия параметров в URL, например, если передать ей адрес вида http://example.com/request.php?id=2&auth=0, то она возвратит не только имя файла - request.php?id=2&auth=0

Вот более полная версия функции извлекающей имя файла из URL:

function ExtractUrlFileName(const AUrl: string): string;
var
i, lastSlashPos, endOfFilename: Integer;
begin
Result := '';
lastSlashPos := 0;
endOfFilename := 0;
i := 1;
while i < = Length(AUrl) do begin
if AUrl[i] = '/' then
lastSlashPos := i;
else if AUrl[i] = '?' then begin
endOfFilename := i - 1;
Break;
end else endOfFilename := i;

if AUrl[i] = ':' then
Inc(i, 3);
else Inc(i);
end;
if lastSlashPos < endOfFilename then
Result := Copy(AUrl, lastSlashPos+1, endOfFilename - lastSlashPos);
end;

:: Главная :: URL ::