Sample Twain Delphi

[zanona]

Hello, is there any example of using the Delphi component that allows communicate with scanner, which can set brightness, contrast and the like ... (Twain)?

Thanks

Zanona

[Cedric]

Hello zanona,

Right now we don't have any but we'll come back to you with something.
We are under heavy workload for the time being so it may take few days, thanks for your patience.

Best regards,
Cedric
GdPicture Team

[zanona]

Have any prediction? Must define which component!

[Loïc]

Hello,

Sorry for the delay. Here a simple snippet, le me know if you need something more particular.

Code: Select all

procedure TForm1.Button6Click(Sender: TObject);
var
   GdPictureImaging1: _GdPictureImaging;
   ImageID: Integer;

begin
    GdPictureImaging1 := CreateComObject(CLASS_GdPictureImaging) as _GdPictureImaging;
    GdPictureImaging1.TwainSelectSource_2(handle);
    if GdPictureImaging1.TwainOpenDefaultSource_2(handle) then
    begin
       GdPictureImaging1.TwainSetBrightness(500);
       GdPictureImaging1.TwainSetContrast(500);
       ImageID := GdPictureImaging1.TwainAcquireToGdPictureImage(handle);
       if ImageID <> 0 then
       begin
          GdPictureImaging1.SaveAsPDF(ImageId, 'c:\test.pdf', False, 'title', 'author', 'subject', 'keywords', 'creator');
          GdPictureImaging1.ReleaseGdPictureImage(ImageID);
       end;
    end;

    GdPictureImaging1.Dispose();
    GdPictureImaging1 := nil;
end;

Regards,

Loïc