TWAIN définit un standard utilisé par les développeurs de logiciels et par les fabricants de matériels pour développer des applications ou du matériel compatibles.
Le standard est défini par l'organisation TWAIN. Ces représentants provienent de fabricants majeurs de produits logiciel et matériel.
Grâce à la technologie TWAIN, vous pouvez acquérir les images d'un scanner, d'un appareil photo numérique ou d'une webcam.
Dans cette exemple qui illustre TWAIN, nous utiliserons l'unité MultiTWAIN (77 Ko) qui est freeware contrairement à beaucoup de composants. Un exemple est déjà fournit avec mais il est assez compliqué à comprendre. J'ai donc refait un exemple pour acquérir une image issue d'une source (appareil photo , webcam, scanner) que vous sélectionnez.
Ajouter un composant TButton et TImage.
Source / Exemple :
Uses MultiTWAIN;
procedure TForm1.Button1Click(Sender: TObject);
Var ImgTmp:TImage;
n:Integer;
TestDib:HBitmap;
begin
ImgTmp:=TImage.Create(Self);
TWAIN_SelectImageSource(0);
TWAIN_AcquireNative(0,0);
n:=TWAIN_GetNumDibs;
if n>=1 then
begin
TestDib:=TWAIN_GetDib(0);
CopyDibIntoImage(TestDib,ImgTmp);
TWAIN_FreeNative(TestDib);
Image1.Picture.Bitmap.Width:=ImgTmp.Width;
Image1.Picture.Bitmap.Height:=ImgTmp.Height;
Image1.Picture:=ImgTmp.Picture;
end;
end;
Conclusion :
Plus d'information sur :
http://delphipage.free.fr/
6 mars 2019 à 21:00
3 juil. 2008 à 11:46
Merci beaucoup pour ce code,
J'aimerais savoir, si il y a des fonctions Twain pour lire le nom du scanner ou son numéro de série.
Merci de votre aide.
11 févr. 2008 à 15:19
Comment faut faire ?
Par contre je n'arrive pas à récupérer la résolution ou à la passer en utilisant les outils 'TWAIN_GetCurrentResolution' et 'TWAIN_SetCurrentResolution'.
31 oct. 2007 à 17:58
Depuis 2 jours que je travaillais pour comprendre où j'avais une erreur...
Pour infos: si vous avez un message d'erreur Unable to open Source Manager, et que la DLL TWAIN_32 est bien dans c:\windows, vérifier la valeur de renvoi de getwindowsdirectory, pour moi, c'était c:\documents and settings\rjanot\windows...
Merci encore !
9 mai 2007 à 13:09
Merci beaucoup pour votre code, il marche impec chez moi.
Mais j'ai besoin de votre aide:
Je souhaite scanner avec toujours les mêmes paramètres :
* Chargeur de document ( et pas plateau)
* A5
* 300 dpi
* Noir et blanc
* luminosité -10
Est-il possible de ne pas faire apparaître la boîte de dialogue et d'utiliser directement tous ces paramètres ?
Merci de votre aide.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.