Текущий архив: 2006.09.10;
Скачать: CL | DM;

Вниз

TImage +загрузка из массива   Найти похожие ветки 

← →
444   (2006-08-16 13:53) [0]

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

---

← →
Джо ©   (2006-08-16 13:55) [1]

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

TImage.Picture.Graphic.LoadFromStream();

---

← →
444   (2006-08-16 14:32) [2]

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

---

← →
Джо ©   (2006-08-16 14:46) [3]

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;


---

← →
Palladin ©   (2006-08-17 11:10) [4]

Можно и MemStream.SetPointer

---

Страницы: 1 вся ветка

Текущий архив: 2006.09.10;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.047 c