TJPEGImage和TImage创建对象的不同? 为什么TJPEGImage里只有create方法,好像只是一个记录的类型,却为什么可以进行create来创建对象. 而TImage就可以进行TImage.create(self)这种差别有什么用意没有? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 TImage是个控件,可以把它看一个盛放图形的容器。TJpegImage是一个图形类,专用来处理jpeg文件。它们的关系是TImage -->TPicture-->TGraphic \--->TBitmap \--->TJpegImage 给一个抓图存为jpg的例子:var Jpeg1: TJpegImage; I: Integer; CPic:Tbitmap; CCanvas:TCanvas; Dc:HDc;Begin CPic:=TBitmap.Create; CCanvas:=TCanvas.Create; CPic.Width:=screen.Width; Cpic.Height :=screen.Height; Dc:=GetDc(0); CCanvas.Handle :=Dc; CPic.Canvas.CopyRect(Rect(0,0,Screen.Width,Screen.Height),CCanvas,Rect(0,0,Screen.Width,Screen.Height)); CCanvas.Free; ReleaseDC(0,Dc); Jpeg1 := TJpegImage.Create; Jpeg1.Assign(CPic); Jpeg1.savetofile('c:\1.jpg');end; 如何用Socket发送流?请提供思路。 对于国内共享软件市场饱和的思考 高手请进 百分求教开发环境中如何快速转到VCL源码中类或者数据类型的定义 TreeView问题 找不到字段的错误,求救!!!! 哪有在delphi下开发DirectX的教程? delphi里query查询语句的问题 请问如何获取网卡的序列号?急! 做报表!!!!!!!!! 100分请高手留步!!关于socket传送数据! 如何使得StringGrid的一个CELL获得输入焦点?如何判断一个CELL是否获得了输入焦点?回答有分。
TJpegImage是一个图形类,专用来处理jpeg文件。
它们的关系是
TImage -->TPicture-->TGraphic
\--->TBitmap
\--->TJpegImage
var
Jpeg1: TJpegImage;
I: Integer;
CPic:Tbitmap;
CCanvas:TCanvas;
Dc:HDc;
Begin
CPic:=TBitmap.Create;
CCanvas:=TCanvas.Create;
CPic.Width:=screen.Width;
Cpic.Height :=screen.Height;
Dc:=GetDc(0);
CCanvas.Handle :=Dc;
CPic.Canvas.CopyRect(Rect(0,0,Screen.Width,Screen.Height),CCanvas,Rect(0,0,Screen.Width,Screen.Height));
CCanvas.Free;
ReleaseDC(0,Dc);
Jpeg1 := TJpegImage.Create;
Jpeg1.Assign(CPic);
Jpeg1.savetofile('c:\1.jpg');
end;