VPF::XE7 и загрузка картинки в потоке

Adm123

Дата 27.2.2015, 15:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Доброго всем дня!
Помогите решить проблему..!

Есть файл картинки в и-нете (jpg). Есть TImage. Как отобразить картинку в TImage-е в потоке? Ни в какую чего-то не выходит...

Код


type TLoadImg=class(TThread)
  protected
  procedure Execute: override;
end;

procedure TLoadImg.Execute;
var
idhttp: TIdHTTP;
ms: TMemoryStream;
timg: TBitmap;
begin
  idhttp:= TIdHttp.Create(nil);
  ms:= TMemoryStream.Create;
  idhttp.Get('http://domain.com/image.jpg', ms);
  ms.Position:= 0;
  timg:= TBitmap.CreateFromStream(ms);
  Image1.Bitmap.Assign(timg);
  idhttp.free;
  ms.free;
  timg.free;
end;

procedure Btn1.Click(sender: TObject);
begin
  LoadImg:= TLoadImg.Create(true);
  LoadImg.FreeOnTerminate:= true;
  LoadImg.Start;
end;

Не работает сия конструкция... Если в БаттонКлик написать код потока - работает. А так - не хочет. Подскажите, как быть..?

Заранее извиняюсь за возможные опечатки - код писал, а не копировал. В программе синтаксических ошибок нет.

Это сообщение отредактировал(а) Adm123 - 27.2.2015, 15:52

Illusion Dolphin

Дата 27.2.2015, 16:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Цитата

image.jpg

Цитата

TBitmap.CreateFromStream

Битмап и jpep это разные форматы. Надо сделать TJpegImage считать его из потока и потом его преобразовывать в TBitmap.

P.S. Image1.Bitmap.Assign(timg); - Что-то мне подсказывает, что это потоко-небезопасно.

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Adm123

Дата 27.2.2015, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

Насчет потокобезопасности буду разбираться, я пока не силен в этом...
А вот

timg: TGpegImage

никак написать не получается. Не хочет он в uses воспринимать vcl.imaging.jpeg почему-то...

да и в основном-то потоке работает, проверено...

Illusion Dolphin

Дата 27.2.2015, 17:14 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

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

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

Цитата

timg: TGpegImage

Может буква не та?

--------------------

Alexeis

Дата 28.2.2015, 15:11 (ссылка)

(нет голосов)

Загрузка ...

Амеба

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

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

Создать TJpegImage в потоке и загрузить в него картинку вполне возможно. Вопрос потокобезопасности возникает при одновременном доступе из 2х потоков. А вот назначать загруженную картинку объекту TImage лучше в главном потоке, поскольку TImage связан с окном на котором он лежит, а окно создано в главном потоке. Но назначение картинки операция быстрая. Обычно в этом случае присваивается внутренний контент с увеличением счетчика ссылок. После этого можно уничтожить TJpegImage. Эта операция не уничтожить изображение в TImage, просто уменьшится внутренний счетчик ссылок.

--------------------

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

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

гениальность идеи состоит в том, что ее невозможно придумать

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