|
|
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.
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] [
twain.zip]
Auteur : Yoann
Site internet : http://delphipage.free.fr/
|
|
|
