Discussion :

[sinfoni]

Bonjour,

Question simple, réponses simples trouvée en C, VB, etc. pas en delphi.

Je fais une capture d'image depuis la WebCam en utilisant

Code :

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

capSetCallbackOnFrame(hcam, Longint(@FrameCallBackProc));

Parfait. Mais je veux maintenant tout simplement récupérer mon image en BitMap depuis la structure VideoHDR. Comment faire ?

En clair, partant de le structure suivante:

Code :

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

1
2
3
4
5
6
7
 
type
    TVIDEOHDR               = record
        lpData              : PBYTE;                // pointer to locked data buffer
        dwBufferLength      : DWORD;                // Length of data buffer
        dwBytesUsed         : DWORD;                // Bytes actually used
        dwTimeCaptured      : DWORD;                // Milliseconds from start of

comment je mets mes pixels dans la structure suivante:

Code :

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

Image: TBitmap;

Par exemple, en VB, on fera:

Code :

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

1
2
3
4
5
Public Function FrameCallbackTarget(ByVal hwnd As IntPtr, ByRef lpVHdr As VIDEOHDR) As IntPtr
Dim oBMP As New Bitmap(640, 480, 640 * 3,
Imaging.PixelFormat.Format24bppRgb, New System.IntPtr(lpVHdr.lpData))
PictureBox2.Image = oBMP
End Function

Et en delphi ???

Merci.

[sinfoni]

Bon, cette méthode semble fonctionner:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
// Note: Ce code est pour du BitMap 24 Bits.
// Longueur et Largeur sont des constantes prédéfinies
// et utilisées pour la capture
 
 
//Types utilisés
TypeRGB       = Record
                        Bleu, Vert, Rouge : Byte;
                  End;
  TypeTRGBArray = Array [0..Largeur] Of TypeRGB; // Largeur de l'image
  TypePRGBArray = ^TypeTRGBArray;
 
 
 
 
// Procédure appelée à chaque capture
function FrameCallBackProc(HndPreview: HWND; lp: PVideoHdr): LongInt;
  stdcall;
var
  PBitmap: ^Byte;           // Permet de parcourir le lp^.lpData du VideoHDR (l'image)
  Scan : TypePRGBArray;  // Pointeur pour accéder à scanline (qui est en lecture seule)
  var x, y : integer;
    CapturedImage: TBitmap;
begin
 
   CapturedImage := TBitmap.Create;
   CapturedImage.SetSize(Largeur, Hauteur);
   CapturedImage.PixelFormat := pf24bit;
 
   pBitmap := Pointer(lp^.lpData); // On se place au début de l'image qui contient la liste des valeurs BLEU/VERT/ROUGEµ
   for y := hauteur - 1 downto 0  do begin // Sinon, image inversée
       Scan := CapturedImage.Scanline[y]; //Scan est un pointeur !
       for x := 0 to largeur - 1 do begin
           Scan[x].Bleu := pBitmap^; //En affectant Scan, c'est ScanLine qui est en fait modifié
           inc(pBitmap);
           Scan[x].Vert := pBitmap^;
           inc(pBitmap);
           Scan[x].Rouge := pBitmap^;
           inc(pBitmap);
       end;
   end;
   wc.Image1.Picture.Bitmap := CapturedImage; // Affichage à l'écran... etc.
   CapturedImage.free;
end;

Si vous avez des commentaires... je suis preneur.

Sinfoni.