Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Извлечение имени файла из интернет-ссылки [D6, D7, WinXP]

Страницы: < 1 2
KonstantinXaker(KX) © (2005-05-22 15:48:00)
Здорово!
Есть ссылка " http://www.mota.ru/space/img/space_087.jpg"
Каким образом мне извлечь название самого рисунка "space_087.jpg" с помощью Delphi?
P.S.: И не обязательно рисунка, а также любых файлов!

KonstantinXaker(KX) (2005-05-27 22:02:00) [21]
XProger ©
у меня этот код не пашет!

XProger (2005-05-27 00:28:00) [22]
Алексей_К, намного шустрее будет
for i := Length(url) downto 1 do if url[i] = '/' then begin Name := Copy(url, i + 1, Length(url)); break; end;

KonstantinXaker(KX) (2005-05-26 17:09:00) [23]
Alex Konshin ©
Класная шутка, нечего сказать :-))

Alex Konshin (2005-05-26 03:26:00) [24]
Ну все, держитесь, сейчас хакер весь интернет похакает.
:)

KonstantinXaker(KX) (2005-05-26 03:13:00) [25]
Огромное спасибо! Всё работает!!!

Алексей_К (2005-05-25 22:55:00) [26]
Попробуй это:

function ExtrFnm(const FileName: string): string;
var tmp:String;
begin
tmp:=FileName;
while pos('/',tmp)>0 do
delete(tmp,1,pos('/',tmp));
result:=tmp;
end;

KonstantinXaker(KX) (2005-05-25 20:59:00) [27]
ExtractFileName для интернет-ссылок не работает...

Anatoly Podgoretsky (2005-05-25 20:19:00) [28]
ExtractFileName попробовать

KonstantinXaker(KX) (2005-05-25 20:13:00) [29]
Каким образом искать я могу сформулировать, а вот как на Delphi написать - вот в этом вопрос!

tesseract (2005-05-25 10:29:00) [30]
Посмотри на строку и найди символ стоящий перед именем файла.

Страницы: < 1 2

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »