JPG. Assign (BMP);
Jpg.Com pressionQuality:=100;
Jpg.Com press;


At the time of compression will be scan line index out of range
Some pictures error, some pictures don't quote,

Someone met?
To solve the

CodePudding user response:

No one know
Top up, a great god

CodePudding user response:

 
Var 
ABMP: Vcl. Graphics. TBitmap; 
DestRC SourceRC: TRect; 
AJPEGImage: TJPEGImage; 
The begin 
ABMP:=the Vcl. Graphics. TBitmap. The Create (); 
AJPEGImage:=TJPEGImage. Create; 
AJPEGImage.Com pressionQuality:=100; 
AJPEGImage.Com press; 
Try 
ABMP. LoadFromFile (' c: \ 1. BMP); 
AJPEGImage. Assign (ABMP); 


AJPEGImage. SaveToFile (' c: \ 1. JPG); 
The finally 
ABMP. Free; 
AJPEGImage. Free; 
end; 
end; 

The original image format, may not be BMP image format
You try to draw with the Windows open and try save BMP