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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Загрузка изображения в TImage из сети 
:(
    Опции темы
NisSun
Дата 8.5.2007, 21:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 2
Регистрация: 20.11.2006
Где: П-Камчатский

Репутация: нет
Всего: нет
Доброго всем времени суток.
Меня интересует такой вопрос. Возможно ли стандартными способами загрузить изображение из Интернет в TImage?
PM MAIL   Вверх
Snowy
Дата 8.5.2007, 21:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484
Код

uses IdHttp, jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
  http: TIdHttp;
  ms:   TMemoryStream;
  jpeg: TJpegImage;
begin
  http := TIdHTTP.Create(nil);
  ms := TMemoryStream.Create;
  jpeg := TJpegImage.Create;
  try
    http.Get('http://i136.photobucket.com/albums/q195/combatfather/post-19-1177146510.jpg', ms);
    ms.Position := 0;
    jpeg.LoadFromStream(ms);
    Image1.Picture.Graphic := jpeg;
  finally
    jpeg.Free; ms.Free; http.Free;
  end;
end;
PM MAIL   Вверх
TruePozer
Дата 9.5.2009, 06:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Snowy, я извеняюсь конечно, но можно этот же пример только не для JPG, а для GIF?
Сам пробовал... Чёт не выходит(
PM MAIL   Вверх
Alexeis
Дата 9.5.2009, 12:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 2
Всего: 459
Цитата(TruePozer @  9.5.2009,  05:04 Найти цитируемый пост)
Сам пробовал... Чёт не выходит( 

  В Delphi 2007 получиться, ток ИМХО все эти фигли мигли с промежуточным жпегом не нужны, просто сразу 
  Image1.Picture.LoadFromStream(ms);

Он сам умеет распознавать изображения по расширению. Если Gif зарегистрирован, то будет работать. Аналогично достаточно модуль jpeg подключить и расширение будет зарегистрировано. 

Это сообщение отредактировал(а) Alexeis - 9.5.2009, 15:34


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
TruePozer
Дата 9.5.2009, 14:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Так сделать я догадался, просто у меня Delphi 7 и Image1.Picture.LoadFromStream(ms); не канает, говорит Undeclared identifier: 'LoadFromStream'...
PM MAIL   Вверх
Alexeis
Дата 9.5.2009, 15:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 2
Всего: 459
Цитата(TruePozer @  9.5.2009,  13:58 Найти цитируемый пост)
Так сделать я догадался, просто у меня Delphi 7 и Image1.Picture.LoadFromStream(ms); не канает, говорит Undeclared identifier: 'LoadFromStream'... 

  А ну да точно, он так не может, ведь тип файла он определяет по расширению. Значит придется таки явно создавать объект. Реализаций GifImage полно, хотя бы из RxLib


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
TruePozer
Дата 9.5.2009, 15:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
А, ну ок, спс!)
PM MAIL   Вверх
Keeper89
Дата 9.5.2009, 15:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 6
Всего: 58
TruePozer, смотрите прикрепление с использованием TGifImage, справка к классу прилагается.

Это сообщение отредактировал(а) Keeper89 - 9.5.2009, 15:46

Присоединённый файл ( Кол-во скачиваний: 60 )
Присоединённый файл  Project1.rar 529,44 Kb


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
TruePozer
Дата 9.5.2009, 16:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Keeper89, спасибо  smile 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Сети"
Snowy
Poseidon
MetalFan

Запрещено:

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

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

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

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Snowy, Poseidon, MetalFan.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Сети | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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