Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.07.2008, 00:47   #1
Crazyman
Пользователь
 
Регистрация: 24.01.2008
Сообщений: 36
По умолчанию Как получить имя файла

Мне надо получить имя файла скачиваемого.
Я использую wininet.
Я ввожу ссылку www.yousite.com/file.php?id=1 и мне нуно получить имя файла, который находиться по этой ссылке file.php?id=1
Crazyman вне форума Ответить с цитированием
Старый 08.07.2008, 02:07   #2
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

компонент Tidhttp
свойство followredirect (или близкое по написанию) выставить в true
использовать метод Get
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 09.07.2008, 00:15   #3
Crazyman
Пользователь
 
Регистрация: 24.01.2008
Сообщений: 36
По умолчанию

Цитата:
Сообщение от Квэнди Посмотреть сообщение
компонент Tidhttp
свойство followredirect (или близкое по написанию) выставить в true
использовать метод Get
И вот это все даст мне имя файла ? И второе я использую winapi у меня нет формы на который мне можно положить компонент Tidhttp.
Crazyman вне форума Ответить с цитированием
Старый 09.07.2008, 01:45   #4
Квэнди
Старожил
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Сообщений: 3,859
По умолчанию

а его обязательно надо "класть" ?
GET-м берете эту ссылку, она вас перенаправит на скачку файла.
обрабатываете событие onwork, ожидая в принятых данных название файла) каким образом распознать когда будет имя файла можно посмотреть в RFC
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума Ответить с цитированием
Старый 11.07.2008, 00:47   #5
Crazyman
Пользователь
 
Регистрация: 24.01.2008
Сообщений: 36
По умолчанию

Ответ вообщем такой


Header := 'Accept: */*';
hURL := InternetOpenURL(hSession,PChar(from ),pchar(Header),length(Header),INTE RNET_FLAG_NO_CACHE_WRITE+INTERNET_F LAG_NO_AUTO_REDIRECT, INTERNET_FLAG_RAW_DATA);
if hURL = nil then
exit;
dwIndex := 0;
dwBufLen:= 1024;
FTResult:=HttpQueryInfo(hURL,HTTP_Q UERY_LOCATION, @HeaderBuf, dwBufLen, dwIndex);
if FTResult then
tofilepoluchaetsya:=string(HeaderBu f));
//HeaderBuf - выводит ссылку на это файл
{
Типа если вы введли
from :=www.mysite.com/file.php?id=1
to HeaderBuf будет равен "www.mysite.com/file.rar"
}
Crazyman вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как отсечь имя файла и получить путь только к нему? Dux Общие вопросы Delphi 8 25.05.2008 20:24
Как получить график из файла с расширением .crd feldmaster Помощь студентам 1 22.04.2008 23:19
Два XL файла, данные 1-го файла являются частью другого в формуле 2-го Кот Microsoft Office Excel 2 14.08.2007 16:56
прочитать из тестового файла определенную инфу и вынести её в мемо memo1 oleg kutkov Общие вопросы Delphi 3 11.06.2007 10:20