webcam

Question

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;

thibout · Answer

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 !

Webcam

1 réponse

Votre réponse

Discussions similaires