Webcam

Signaler
Messages postés
2
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
13 février 2013
-
Messages postés
2
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
13 février 2013
-
Bonjour à tous, mon code pour afficher 2 webcam dans 2 images fonctionne bien sur w7, mais sur w8, je n'ai pas d'image et lorsque je ne mets pas la ligne :
if (Clipboard.HasFormat(CF_BITMAP)) then begin
j'ai le message : Format de presse papier non supporte. Je ne sais pas comment récupérer le presse papier dans un format autre que bmp...
merci de votre aide !

procedure TForm1.Button15Click(Sender: TObject);
begin
bmp:=tbitmap.Create;
bmp.Height:=480;
bmp.Width:=640;
//Handle du periph d ela cam
hcam:=capCreateCaptureWindowA('',0,0,0,320,240,handle,0);
//Connection a la cam
sendmessage(hcam,1034,0,0);
//Handle du periph d ela cam
hcam2:=capCreateCaptureWindowA('',0,0,0,320,240,handle,0);
//Connection a la cam
sendmessage(hcam2,1034,0,0);

timer1.Enabled:=true;
button15.Visible:=false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
d,f :integer;
begin
//Capture d'image de la cam
sendmessage(hcam,1084,0,0);
//Copie dna sle presse papier de l'image
sendmessage(hcam,1054,0,0);
if (Clipboard.HasFormat(CF_BITMAP)) then begin
image1.Picture.LoadFromClipboardFormat(cf_bitmap,clipboard.GetAsHandle(cf_bitmap),0);
end;
//Capture d'image de la cam
sendmessage(hcam2,1084,0,0);
//Copie dna sle presse papier de l'image
sendmessage(hcam2,1054,0,0);
if (Clipboard.HasFormat(CF_BITMAP)) then begin
image3.Picture.LoadFromClipboardFormat(cf_bitmap,clipboard.GetAsHandle(cf_bitmap),0);
end;

1 réponse

Messages postés
2
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
13 février 2013

Petite erreur de ma part, w8 à bien Clipboard.HasFormat en CF_BITMAP (j'ai mis une ligne de teste), mais j'ai à chaque fois cela plante avec le message :
'Format de presse papier non supporte'
a l'aide !