procedure TForm1.Button1Click(Sender: TObject);var
jp: TJPEGImage; //Requires the "jpeg" unit added to "uses" clause.
begin
jp := TJPEGImage.Create;
try
with jp do
begin
Assign(Image1.Picture.Bitmap);
SaveToFile('c:\oneeye.jpg')
end;
finally
jp.Free;
end;
end;
jp: TJPEGImage; //Requires the "jpeg" unit added to "uses" clause.
begin
jp := TJPEGImage.Create;
try
with jp do
begin
Assign(Image1.Picture.Bitmap);
SaveToFile('c:\oneeye.jpg')
end;
finally
jp.Free;
end;
end;
解决方案 »
- delphi关于进程无法结束问题
- 如何处理web service接口返回的类型,真的很急
- delphi里有没有反悔功能?
- 菜鸟问题,如何阻止form1运行?请大人来看看!!
- ~~~如何把界面做的美观?
- 大家过年好!第一天上班就碰到难题,请大家帮忙!
- 在IIS建虚拟目录运行时报“OLE error 80005008”?原因何在??
- 高分求教,高手请指点
- IntraWeb中iwgrid的cell字体的改变(iwgrid.cell.clickable=true时)
- 串口通讯中怎么根据给出的协议解析数据呢??在线等待回答
- 怎样实现通过Delphi程序在Oracle数据库中创建表空间和用户啊?
- 请教,关于dbgrid的小问题
定义了var graphic1:tjpegimage;
程序中写成graphic1:=tjpegimage.create;
graphic1:=dbimage1.picture.graphic;
编译时系统提示:[Error] Incompatible types: 'TJPEGImage' and 'TGraphic'.
请问该如何解决?