Модераторы: Snowy, Poseidon, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как скачать посредством сокетов картинку с HTML 
:(
    Опции темы
yuansw
Дата 7.12.2006, 11:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 7.12.2006

Репутация: нет
Всего: нет



Как скачать посредством сокетов картинку c HTML страницы?
Нужен конкретный пример
Например отсюда: http://www.beonline.ru/servlet/send/confir.../02I4a5yVcX.gif и отсюда тоже http://sms.mts.ru/pic.aspx
Имя файла может быть изначально неизвестно
PM MAIL   Вверх
Romikgy
Дата 7.12.2006, 11:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146



Цитата(yuansw @  7.12.2006,  10:10 Найти цитируемый пост)
Как скачать посредством сокетов картинку c HTML страницы?

а просто страницу скачивать умеешь?
дык также и картинки smile
Цитата(yuansw @  7.12.2006,  10:10 Найти цитируемый пост)
Нужен конкретный пример

тогда разделом ошибся , те надо в
Центр помощи


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
Matematik
Дата 7.12.2006, 11:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50



Скачивай в стрим (TMemoryStram или TFileStream)
Код

Stream := TMemoryStream.Create;
IdHTTP1.Get('http://...', Stream);
Stream.SaveToFile()

Если имя картинки не извесно, и оно написано в html, то качаешь страницу
Код

String := IdHTTP1.Get('http://...');

В строке String ищешь свою картинку (например, регулярным выражением TPerlRegEx или TRegExpr) и качаешь ее


PM MAIL WWW ICQ   Вверх
yuansw
Дата 7.12.2006, 11:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 7.12.2006

Репутация: нет
Всего: нет



Matematik,
А можно не через Indy, а через сокеты? 
PM MAIL   Вверх
Matematik
Дата 7.12.2006, 11:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50



Не хочешь через Indy, качай wininet, на форуме примеры есть. На сокетай не советую, писать долго и сложно
PM MAIL WWW ICQ   Вверх
yuansw
Дата 7.12.2006, 11:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 7.12.2006

Репутация: нет
Всего: нет




Я понимаю что долго и сложно, просто мне потом нужно перенести код в FreePascal. Нужно чтобы исполняемый файл был маленький smile
Matematik, 
PM MAIL   Вверх
Matematik
Дата 7.12.2006, 11:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 24
Всего: 50



С WinInet файл будет меньще. Представь, чтобы скачать файл с http wininet надо вызвать несколько функция, с сокетами придется хотябы частично разбираться с http протоколом.
PM MAIL WWW ICQ   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »


 




[ Время генерации скрипта: 0.0476 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.