| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

TImage +загрузка из массива

444 ©   (2006-08-16 13:53:00) 

Как в TImage загрузить изображение из массива: "array of byte"?
Ничего не придумал, даже ничего похожего на LoadFromStream в TImage не нашел.

---

Palladin   (2006-08-17 11:10:00) [1]

Можно и MemStream.SetPointer

---

Джо   (2006-08-16 14:46:00) [2]

type
 TByteArray = array of Byte;

procedure TForm1.Button1Click(Sender: TObject);
var
 Bytes: TByteArray;
 MemStream: TMemoryStream;
 Jpg: TJPEGImage;
begin
   // В Bytes пусть хранится "массив байтов".

   MemStream := TMemoryStream.Create;
   try
     MemStream.Write(Bytes[0],Length(Bytes));
     MemStream.Position := 0;

     Jpg := TJPEGImage.Create;
     try
       Jpg.LoadFromStream(MemStream);
       Image1.Picture.Assign(Jpg);
     finally
       Jpg.Free;
     end;

   finally
     MemStream.Free;
   end;

end;


---

444   (2006-08-16 14:32:00) [3]

Да, спасибо, но я не очень продвинулся, как-же всё же запихать в TImage jpg картинку из "массива байт".

---

Джо   (2006-08-16 13:55:00) [4]

> даже ничего похожего на LoadFromStream в TImage не нашел.

TImage.Picture.Graphic.LoadFromStream();

---

Наверх