Récupérer VideoHDR dans un Bitmap

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:

---

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:

---

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:

---

Image: TBitmap;

---

Par exemple, en VB, on fera:

Code:

---

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.

Bon, cette méthode semble fonctionner:

Code:

---

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.