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

Soyez le premier à donner votre avis sur cette source.

Vue 41 340 fois - Téléchargée 2 789 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

Commenter la réponse de kacola

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.