Delphipage - la reference en Delphi
Accueil - Astuces - Composants - Programmes - Tutoriaux - Livres - Liens
 Sources
- Astuces
- Composants
- Programmes
- Tutoriaux
 Rechercher
- Delphipage
- Ngscan
 Ressources
- Lexique Delphi
- Livres
- News
- Patchs Delphi
 Liens
- Borland France
- CodeGear
- Les meilleurs sites


Tutoriaux - TWAIN

Présentation 

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.


Exemple d'utilisation

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.

Uses MultiTWAIN;

procedure TForm1.Button1Click(Sender: TObject);
Var ImgTmp:TImage;
n:Integer;
TestDib:HBitmap;
begin
ImgTmp:=TImage.Create(Self);
if TWAIN_SelectImageSource(0)=1then //Affichage de la boite de dialogue de sélection de la source
begin
TWAIN_AcquireNative(0,0); //Acquérit l'image
n:=TWAIN_GetNumDibs; //Récupère le nombre d'image acquérit
if n>=1 then
begin
TestDib:=TWAIN_GetDib(0); //Handle de la source
CopyDibIntoImage(TestDib,ImgTmp); //Tansforme l'image DIB en Bitmap
TWAIN_FreeNative(TestDib); //Libère la mémoire
//Affiche dans "Image1" l'image "ImgTmp"
Image1.Picture.Bitmap.Width:=ImgTmp.Width;
Image1.Picture.Bitmap.Height:=ImgTmp.Height;
Image1.Picture:=ImgTmp.Picture;
end;
end;
end;

TWAIN    [ 14-12-2003 ]
 Acquérir une image grâce à la technologie TWAIN.
TÚlÚcharger :  [87 Ko] [Télécharger twain.zip]

Auteur : Yoann
Site internet :
http://delphipage.free.fr/
 

Tous droits réservés - Contacts
Haut de la page