有了BitmapBuf和BitmapInfo等，有什么方法转为jpeg格式的内存流？

Question

本人今天上午开始学Delphi，什么都不懂，请各位大大指教

Answer 1

刚开始就学流～～～ 有点BUG的

Answer 2

  var Bmp : TBitmap; 
      Jpg : TJpegObject;
  begin
    Bmp := TBitmap.Create;
    Bmp.Widht := BITMAPINFO.bmiHeader.biWidth;
    Bmp.height :=  BITMAPINFO.bmiHeader.biHieght;
    StretchDIBits(Bmp.Canvas.Handle,0,0,Bmp.Width,Bmp.Height,0,0,Bmp.Widht,
                  Bmp.height,BitmapBuf,BITMAPINFO,DIB＿RGB＿COLORS,SRCCOPY);
    Jpg := TJpegObject.Create;
    Jpg.Assign(Bmp);
    Jpg.SaveToFile('a.jpg');
    Bmp.Free;
    Jpg.Free;
  end;

Answer 3

sorry.写错一个地方了
var jpg : tjpegimage;应该是这样的，

Answer 4

我来补充 在uses子句中要添加Jpeg单元

Answer 5

多谢勘误：
Bmp.Widht  应为 Bmp.Width
DIB＿RGB＿COLORS 应为 DIB_RGB_COLORS 前者长，后者短也谢谢楼上的补充，很有用（我是菜鸟）