DelphiXE10.3.3
ImageEn8.7
業務場景：
連續掃描圖片后 自動將圖片保存到指定檔案夾。
目前的問題：
存到本地的圖片都是4K大小的檔案，檔案打開都是空白的
代碼如下：
procedure TForm1.Button1Click(Sender: TObject);
var i :Integer;
Path :String;
begin
ImageEnMView1.SetModernStyling( True, 180, 150 );
try
Screen.Cursor := crHourglass;
ImageEnMView1.MIO.Acquire;
for i := 0 to ImageEnMView1.ImageCount-1 do
begin
Path:='D:\123\'+ IntToStr(i)+ '.jpg';
ImageEnMView1.MIO.Params[i].SaveToFile(Path);
ShowMessage('【 ' + Path + ' 】');
end;
finally
Screen.Cursor := crDefault;
end;
請問是哪里寫的不對呢？
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/271731.html
標籤：數據庫相關