Sample Twain Delphi
Sample Twain Delphi
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
Thanks
Zanona
Re: Sample Twain Delphi
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
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
Re: Sample Twain Delphi
Have any prediction? Must define which component!
Re: Sample Twain Delphi
Hello,
Sorry for the delay. Here a simple snippet, le me know if you need something more particular.
Regards,
Loïc
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;
Loïc
Who is online
Users browsing this forum: No registered users and 1 guest