DelphiXE10.3.3
ImageEn8.7
The business scenario:
After continuous scanning images will be automatically saved to the specified folder images,
The question now:
Deposit to the local image is 4 k file, the file open is blank
The code is as follows:

 

Procedure TForm1. Button1Click (Sender: TObject); 
Var I: Integer; 
Path: the String; 
The begin 
ImageEnMView1. SetModernStyling (True, 180, 150); 
Try 
Screen. The Cursor:=crHourglass; 
ImageEnMView1. Benefiting. Acquire; 

For I:=0 to ImageEnMView1. Do ImageCount - 1 
The begin 
Path:='D: \ 123 \' + IntToStr (I) + 'JPG'; 
ImageEnMView1. Benefiting. Params [I] SaveToFile (Path); 
ShowMessage (' [' + Path + '] '); 
end; 

The finally 
Screen. The Cursor:=crDefault; 
end; 

Could you tell me where is write wrong?