Discussion :

[Maglight]

J'utilise une webcam et j'arrive à faire apparaitre mon image dans une zone panel.
Je voudrai afficher l'image dans mon panel auquel j'aurai donné comme dimension 320x240 or je n'y arrive pas.
Lorsque je dimensionne mon panel à 320x240, je ne vois que 1/4 de l'image car celle-ci fait 640x480 (je vois la partie en haut à gauche).
Help...
(je veux en réalité que l'image affiché soit de la dimension de mon panel quelque soit celle-ci).
J'utilise un vieux projet basé sur "DelphiVid Ver 1.05"

Merci de votre aide.

Mon code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var Status: PCapStatus;
begin
   if Handlecap <> 0 then
   begin
      ShowMessage('Erreur Connexion');
      exit;
   end;
   HandleCap := capCreateCaptureWindow('Fenetre video', WS_CHILD or WS_VISIBLE, 0, 0, Width, Height, Panel1.Handle, 0);
   SendMessage(HandleCap, WM_CAP_DRIVER_CONNECT, 0, 0);
   if Handlecap <> 0 then
   begin
      Getmem(Status, Sizeof(TCapStatus));
      SendMessage(HandleCap, WM_CAP_START+  54, Sizeof(TCapStatus), LongInt(Status));
      SendMessage(HandleCap, WM_CAP_START+  50, 1, 0);
      SendMessage(Handlecap, WM_CAP_START+  52, 1, 0);
      Panel1.Width := STATUS.uiImageWidth;
      Panel1.height := STATUS.uiImageHeight;
      Freemem(Status);
   end;
end;

[ouiouioui]

et si tu dimensionne ton panel puis la tu lui donne les dimensions de ton panel sa fait quoi?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

HandleCap := capCreateCaptureWindow('Fenetre video', WS_CHILD or WS_VISIBLE, 0, 0, Width, Height, Panel1.Handle, 0)

moi j'utilise TVideoCapture
et l'image se redimensionne toute seule selon la taille de la fenêtre