高分请教windows的画图板操作(100分)

  • 主题发起人 主题发起人 hlfysj
  • 开始时间 开始时间
H

hlfysj

Unregistered / Unconfirmed
GUEST, unregistred user!
我有一批图片,想通过windows的画图板程序 读入->另存一下,想做一个功能,能在后台调用 windows的画图板程序,载入图片,另存,整个过程不出现界面,都是自动完成的,这个要怎么操作画图板呢,请高手指教。
 
不理解你的想法
什么叫做 通过windows的画图板程序 读入->另存一下
是不是要修改文件格式另存?
 
我主程序中的浏览控件是用的 ImageEn,还有柯达的那个imgedit,delphi自带的image,
但是都打不开我的这些文件,是jpeg格式的,报错。可能是体积比较大,我的那些文件有的在3M多,
我通过windows的画图板程序可以正常浏览,另存了以后,体积确实变小了,也能通过 imageEn, imgedit,image浏览了,我不知道是不是体积的问题。
 
你的问题可能是 那个文件只不过是JPG的扩展名,但其不是jpg压缩格式。你修改扩展名为bmp看看,如果不行的话

1.你用 ACDSEE 打开,然后批量转换格式
2.要自己写的话用GDI+ 里的 TGPImage读取,然后保存为
 
下面是我写的代码,压缩以后,生成的新文件大小就为0了,去掉 Jpg.Compress 文件存出来没有变化。。。

function TForm1.JpegCompress(FileName: string;
Quality: TJPEGQualityRange): string;
var
Jpg: TJPEGImage;
begin
Jpg := TJPEGImage.Create;
try
Jpg.LoadFromFile(FileName);
Jpg.CompressionQuality := Quality;
Jpg.Compress;
Jpg.SaveToFile(FileName);
finally
Jpg.Free;
end;
end;
 
你用 ImageEn.IO.LoadFromFile 来看看
 
如果不可以的话,去下个GDI+ 的 pas (盒子上有)
然后用TGPImage打开,另存为
 
DOS下Type 一下文件就知道是什么格式了!
 
后退
顶部