H hlfysj Unregistered / Unconfirmed GUEST, unregistred user! 2008-10-08 #1 我有一批图片,想通过windows的画图板程序 读入->另存一下,想做一个功能,能在后台调用 windows的画图板程序,载入图片,另存,整个过程不出现界面,都是自动完成的,这个要怎么操作画图板呢,请高手指教。
我有一批图片,想通过windows的画图板程序 读入->另存一下,想做一个功能,能在后台调用 windows的画图板程序,载入图片,另存,整个过程不出现界面,都是自动完成的,这个要怎么操作画图板呢,请高手指教。
S satori Unregistered / Unconfirmed GUEST, unregistred user! 2008-10-08 #2 不理解你的想法 什么叫做 通过windows的画图板程序 读入->另存一下 是不是要修改文件格式另存?
H hlfysj Unregistered / Unconfirmed GUEST, unregistred user! 2008-10-08 #4 我主程序中的浏览控件是用的 ImageEn,还有柯达的那个imgedit,delphi自带的image, 但是都打不开我的这些文件,是jpeg格式的,报错。可能是体积比较大,我的那些文件有的在3M多, 我通过windows的画图板程序可以正常浏览,另存了以后,体积确实变小了,也能通过 imageEn, imgedit,image浏览了,我不知道是不是体积的问题。
我主程序中的浏览控件是用的 ImageEn,还有柯达的那个imgedit,delphi自带的image, 但是都打不开我的这些文件,是jpeg格式的,报错。可能是体积比较大,我的那些文件有的在3M多, 我通过windows的画图板程序可以正常浏览,另存了以后,体积确实变小了,也能通过 imageEn, imgedit,image浏览了,我不知道是不是体积的问题。
S satori Unregistered / Unconfirmed GUEST, unregistred user! 2008-10-08 #5 你的问题可能是 那个文件只不过是JPG的扩展名,但其不是jpg压缩格式。你修改扩展名为bmp看看,如果不行的话 1.你用 ACDSEE 打开,然后批量转换格式 2.要自己写的话用GDI+ 里的 TGPImage读取,然后保存为
你的问题可能是 那个文件只不过是JPG的扩展名,但其不是jpg压缩格式。你修改扩展名为bmp看看,如果不行的话 1.你用 ACDSEE 打开,然后批量转换格式 2.要自己写的话用GDI+ 里的 TGPImage读取,然后保存为
H hlfysj Unregistered / Unconfirmed GUEST, unregistred user! 2008-10-08 #6 下面是我写的代码,压缩以后,生成的新文件大小就为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;
下面是我写的代码,压缩以后,生成的新文件大小就为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;
S satori Unregistered / Unconfirmed GUEST, unregistred user! 2008-10-08 #7 你用 ImageEn.IO.LoadFromFile 来看看
S satori Unregistered / Unconfirmed GUEST, unregistred user! 2008-10-08 #8 如果不可以的话,去下个GDI+ 的 pas (盒子上有) 然后用TGPImage打开,另存为