本人今天上午开始学Delphi,什么都不懂,请各位大大指教
解决方案 »
- 导出excel 问题
- QREPORT分页合计问题
- 为什么我写的客户端无法正常访问外网的SQL SERVER服务器?
- 急~~~~~~~~~~关于从虚拟表里取数据的问题
- 请问delphi中是否有查看exe中资源的工具
- Win98+Delphi5+Access2000+ODBC 如何解决多表查询的表的别名问题?procedure TForm_Overdue_Reader.FormShow(Sender: TObject);
- fastreport下载
- 关于DevExpress VCL 12.2.6在XE4下安装的问题
- 这样子在上海一个月可以拿几K?
- 我做了一个报表,有COLUMHEADERBAND和TITLEBAND DETAILBAND
- Delphi7和Delphi2010用MD5加密怎么结果怎么不一样?
- dll调用,两种写法有什么区别吗?
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;
var jpg : tjpegimage;应该是这样的,
我来补充 在uses子句中要添加Jpeg单元
多谢勘误:
Bmp.Widht 应为 Bmp.Width
DIB_RGB_COLORS 应为 DIB_RGB_COLORS 前者长,后者短也谢谢楼上的补充,很有用(我是菜鸟)