var jp:TJpegImage;
jp := TJpegImage.Create;
try
with jp do
begin
Assign(Image1.Picture.Bitmap);
SaveToFile('c:\oneeye.jpg')
end;
finally
jp.Free;
end;
jp := TJpegImage.Create;
try
with jp do
begin
Assign(Image1.Picture.Bitmap);
SaveToFile('c:\oneeye.jpg')
end;
finally
jp.Free;
end;
解决方案 »
- 生★★,应wudi要求,散200分
- 如何使Edit1只能输入数字而不能输入别的字母或组合键啊?(问题够菜鸟级)
- delphi7如何实现与vc中的如此功能???
- 如何返回sqlserver的数据库名称列表
- 在没有安装sql server2000上运行delphi写的程序错误
- 初学者 问实数计算及转换的方法
- 两个客户端程序对同一行进行操作的问题。
- 请教如何建立access多重索引表啊???
- List Index out of bounds(3)?
- 关于IE
- 键的屏蔽
- 一个TFORM上有几十个TLabel控件、一个TButton控件,怎样才可以让单击TButton控件时让所有的TLabel控件全部隐藏起来?
不过,上面的方法也是不行的。这种方式转换的JPG是真彩色的。不能用这个方式转换。
用ACDSEE就可以转换