Из массиа в байт в TJpegImage

Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду

Eugie
Сообщения: 708
Зарегистрирован: 17 фев 2004, 23:59
Откуда: SPb

Evan, попробуй так:

Код: Выделить всё

var 
      Stream : TMemoryStream; 
      J :        : TJpegImage; 
begin 
  Stream := TMemoryStream.create; 
  Stream.size = FullSize; 
  Stream.WriteBuff(buff, sizebuff); 
  Stream.Position := 0; // !!! reset position
  J := TjpegImage.create; 
  J.LoadFromStream(Stream); 
  Stream.free; 
end;
Evan
Сообщения: 13
Зарегистрирован: 11 июл 2006, 03:42

Пасибо Euqie. То что надо
Ответить