Twain : numériser un document depuis un scanner ou un appareil photo numérique

Soyez le premier à donner votre avis sur cette source.

Vue 42 217 fois - Téléchargée 3 010 fois

Description

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/

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Leprogramme ne marche pas sur delphi 7
Messages postés
14
Date d'inscription
jeudi 28 juin 2007
Statut
Membre
Dernière intervention
31 août 2009

Bonjour,
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.
Messages postés
3
Date d'inscription
samedi 24 février 2007
Statut
Membre
Dernière intervention
10 janvier 2011

Je suis comme stephane j'aimerais passer une resolution
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'.
Messages postés
1
Date d'inscription
vendredi 2 juin 2006
Statut
Membre
Dernière intervention
31 octobre 2007

Merci beaucoup !!!

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 !
Messages postés
30
Date d'inscription
jeudi 27 mai 2004
Statut
Membre
Dernière intervention
10 janvier 2008

Bonjour,
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.
Afficher les 9 commentaires

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.