无
无疯无禄
Unregistered / Unconfirmed
GUEST, unregistred user!
Function BmpToJpg(BmpFile, JpgFile: String):boolean;
Var
BMP:TBitMap;
JPG:TJpegImage;
begin
Bmp:=TBitMap.Create;
Jpg:=TJpegImage.Create;
Try
if FileExists(BmpFile) then
begin
BMP.LoadFromFile(BmpFile);//运行到这里的时候出现下面的出错提示
//bmp.pixelformat := pf8bit;
JPG.Assign(BMP);
JPG.CompressionQuality:=80; //压缩率为
JPG.JPegNeeded;
JPG.Compress;
JPG.SaveToFile(JpgFile);
end;
Finally
BMP.Destroy;
JPG.Destroy;
end;
end;
错在哪里？？本来在自己这台机子上不会错的，可是到了别的机子就错???
怎么解决？？
Access violation at address 77F643D1 in module 'GDI32.DLL'.Read of address 01340B58
Var
BMP:TBitMap;
JPG:TJpegImage;
begin
Bmp:=TBitMap.Create;
Jpg:=TJpegImage.Create;
Try
if FileExists(BmpFile) then
begin
BMP.LoadFromFile(BmpFile);//运行到这里的时候出现下面的出错提示
//bmp.pixelformat := pf8bit;
JPG.Assign(BMP);
JPG.CompressionQuality:=80; //压缩率为
JPG.JPegNeeded;
JPG.Compress;
JPG.SaveToFile(JpgFile);
end;
Finally
BMP.Destroy;
JPG.Destroy;
end;
end;
错在哪里？？本来在自己这台机子上不会错的，可是到了别的机子就错???
怎么解决？？
Access violation at address 77F643D1 in module 'GDI32.DLL'.Read of address 01340B58