WEBCAM À MANIVELLE

Commentaire de f0xi le 19/06/2007 13:31:48 administrateur CS

ça a l'air pas mal, mais n'ayant pas de webcam pour verifier .... :)


petite optim :


procedure TForm1.Capture1Frame(Sender: TObject; HndPreview: Cardinal; lpVHdr: PVIDEOHDR);
var
  Pointeur, P2: PTabByte;
  iia,iib, i, j, a, b, c: integer;
begin
  Pointeur := Pointer(lpVHdr^.lpData);
  P2 := Bitmap.ScanLine[239];
  a  := Capture1.Width;
  b  := Capture1.Height;

  if sepia.Checked then
    for i := 0 to a - 1 do
      for j := 0 to b - 1 do
      begin
        iia := (j * a + i) * 3;
        Pointeur^[iia + 2] := Pointeur^[iia + 2];
        Pointeur^[iia + 1] := Pointeur^[iia + 2];
        Pointeur^[iia + 0] := TabSepia[Pointeur^[iia + 2]];
      end;
  if rayures.Checked then
    for i := 0 to tbRayures.Position do
      if Rayure[i] <> nil then
        with Rayure[i] do
        begin
          for j := 0 to Capture1.Height - 1 do
          begin
            iia := (j * a + Position) * 3;
            Pointeur^[iia] := Pointeur^[iia] shr 1;
            Pointeur^[iia + 1] := Pointeur^[iia] shr 1;
            Pointeur^[iia + 2] := Pointeur^[iia] shr 1;
          end;
          Position := Position + Random( (Stabilite shl 1) + 1) - Stabilite;
          if (position < 0) or (position >= a) then
            Duree := 1;
          dec(Duree);
          if Duree = 0 then
          begin
            Rayure[i].Free;
            Rayure[i] := nil;
          end;
        end;

  if poussieres.Checked then
    for i := 0 to tbPoussiere.Position do
    begin
      c := Random(a * b);
      iia := c * 3;
      Pointeur^[iia]     := 255;
      Pointeur^[iia + 1] := 255;
      Pointeur^[iia + 2] := 255;
    end;

  if Cadre.Checked then
    for i := 0 to a - 1 do
      for j := 0 to b - 1 do
      begin
        c := P2^[(j * a + i) * 3];
        iia := (j * a + i) * 3;
        Pointeur^[iia]     := min(Pointeur^[iia] + c, 255);
        Pointeur^[iia + 1] := min(Pointeur^[iia + 1] + c, 255);
        Pointeur^[iia + 2] := min(Pointeur^[iia + 2] + c, 255);
      end;

  if sauts.Checked and (saut > 0) then
  begin
    for i := 0 to a-1 do
      for j := b-1 downto saut do
      begin
        iia := (j * a + i) * 3;
        iib := ((j-saut) * a + i) * 3;
        Pointeur^[iia]     := Pointeur^[iib];
        Pointeur^[iia + 1] := Pointeur^[iib + 1];
        Pointeur^[iia + 2] := Pointeur^[iib + 2];
      end;
    Saut := 0;
  end;
end;

Commentaire de Renfield le 19/06/2007 15:00:49 administrateur CS

joli...

http://groups.google.fr/group/microsoft.public.win32.programmer.directx.video/browse_thread/thread/804d12a82f91845b/1235096fe6b63e9c?lnk=st&q=change+avi+frame+rate&rnum=1&hl=fr#1235096fe6b63e9c

Commentaire de Kenavo le 19/06/2007 16:33:12

Merci à Renfield pour le lien, je vais pouvoir modifier la vitesse de lecture du film.
Un peu de boulot pour adapter les structures, mais ça doit être jouable.

@Cirec : Scanline une fois par image ! C'est pas trop, non ? Et j'utilise bien le PByte
(Le PByte est le type d'origine dans la structure retournée par la fonction callback OnFrame ou OnVideoStream, j'ai donc fait avec).
Mais je vais relire avec attention tes commentaires sur la source de l'ami Mauricio.  

Ken@vo

Commentaire de WhiteHippo le 20/06/2007 21:59:04

Hello Kenavo

Testé avec 3 webcams dfférentes, une seule concluante, la plus vieille en 320x240... (Les 2 autres ne disposant pas d'un mode RVB 24 ;) Programme et effet plutôt réussi.

P.S. J'ai pas le temps de déboggué le programme, mais j'ai un problème lorsque je configure le TCapture et la webcam en 640x480. J'ai bien une image qui apparait, signe que normallement ok, mais j'obtiens une exception EInvalidGraphicOperation 'Indice ligne hors limites' sur l'affectation de P2 dans Capture1Frame (Affectation du Scanline).

Cordialement.

Commentaire de WhiteHippo le 21/06/2007 13:30:31

Kenavo,

"Si tu active la ligne (Capture1.SelectFormat dans OnActivate) tu as accès aux paramètres de format de la vidéo.
",:
  C'est ce que j'ai fait :)

N.B. Capture1.SelectDisplay provoque également une exception 'Microsoft WDM Image Capture (Win32):Pas de dialogue "Display" pour ce périphérique!'

"Ça m'étonne que tes webcams ne disposent pas du mode RVB !" :
  Celle qui dispose du plus de mode est ma vieille Logitech VCAM-U1 (RGB24,RGB32,YUY2,RGB555 16 bits,I420,YVU9,UYVY). Avec ma Philips SPC900NC/00 juste les modes I420, IYUV (le même quoi ;) et YUY2. Ceci explique peut être les taux qu'elle arrive à atteindre de 60fps, voire 90fps sous certaines conditions. Avec l'autre pas de modes RGB non plus. Mais j'ai des doutes sur celle là quand au driver. Je referais un essai en le réinstallant.

Cordialement.

Commentaire de WhiteHippo le 21/06/2007 19:35:27

Pour information, et pour ceux qui ne connaissent pas le mode I420 (=IYUV) et/ou les autres formats de pixels, un très bon site (en anglais) fait référence : www.fourcc.org

Cordialement.

Commentaire de Kenavo le 24/06/2007 01:41:38

Nostalgie ? Un peu ! Faut quand même être un peu nostalgique pour pratiquer encore le Pascal !
N'empêche que les mariés de cet après midi, pour lesquels j'avais écrit ce code, ont trouvé ces images "transmutées" des plus "jolies"
Va comprendre ces jeunes qui trouvent le vieux rassurant !.....
Et j'espère que WhiteHippo et ses webcam ont trouvé leur bonheur dans la dernière version