Скачать: CL | DM;

Как узнать имя файла по указанному урлу ?   Найти похожие ветки 

← →
Фёдор Мегатронов   (2004-08-28 20:29) [0]

Я передаю функции полный путь, а она мне возвращает имя файла на сервере. именно имя файла, без всяких там пхп запросов и прочей дребедени.

есть ли такое ?

---

← →
SergP ©   (2004-08-30 09:27) [1]

> Я передаю функции полный путь, а она мне возвращает имя
> файла на сервере. именно имя файла,


Это как? Типа передаешь функции например "http://vasya.ru/pupkin.htm", а она тебе возвращает "pupkin.htm", что-ли?
Если да, то есть такая функция ExtractFileName(FileName:string):string
правда она с обычными путями работает а с урлами нет. Т.е. чтобы рботала нужно в урле предварительно заменить слеши на обратные.


> без всяких там пхп запросов и прочей дребедени.


А что такое пхп запрос?

---

← →
Дмитрий Ботвин   (2004-08-30 14:54) [2]

Функция ExtractFileName не будет работать с url-ами даже если
слэши заменить на обратные, надо еще и сам url привести
к виду: \\<имя1>\<Имя2>\Имя_файла.*

---

← →
Дмитрий Ботвин   (2004-09-03 08:27) [3]

Можно ещё вот так:

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.037 c