Hi,
even if I specify 200 dpi as scan resolution inside the WIA scanner interface, the acquired image got 300 dpi.
I used the following code:
procedure TForm23.Button2Click(Sender: TObject);
begin
if ImageEnMView1.MIO.SelectAcquireSource([ieaTwain, ieaWIA, ieaDCIM]) then
ImageEnMView1.MIO.Acquire(True);
end;
procedure TForm23.iemViewAcquireBitmap(Sender: TObject; ABitmap: TIEBitmap;
DpiX, DpiY: Integer; var Handled: Boolean);
begin
ABitmap.Write('c:\...\test.jpg');
Handled := True;
end;
Also setting a resolution of 200 dpi by code generates a 300 dpi image:
procedure TForm23.Button2Click(Sender: TObject);
begin
if ImageEnMView1.MIO.SelectAcquireSource([ieaTwain, ieaWIA, ieaDCIM]) then
begin
ImageEnMView1.MIO.AcquireParams.XResolution := 200;
ImageEnMView1.MIO.AcquireParams.YResolution := 200;
ImageEnMView1.MIO.Acquire(True);
end;
end;
procedure TForm23.iemViewAcquireBitmap(Sender: TObject; ABitmap: TIEBitmap;
DpiX, DpiY: Integer; var Handled: Boolean);
begin
ABitmap.Write('c:\...\test.jpg');
Handled := True;
end;
Any ideas?
PS: Please correct the "TImageEnMIO.Acquire" entry in the manual. Instead of the current text:
"If AppendAtEnd = False, and an image is selected, then new images will be inserted after the current selection. Otherwise, they are appended after the last image"
it should be:
"If AppendAtEnd = False, and an image is selected, then new images will be inserted before the current selection. Otherwise, they are appended after the last image".
Thank you,
Ale
Search
