Developing.ru

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

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;