Capturar Imagem De Uma Webcam

[Dinho1070]

Estou precisando saber como faço para capturar imagens de uma câmera digital ou de uma WebCam em Delphi 7.0, sou iniciante e estou desenvolvendo um sistema no meu trabalho que necessita disto, alguém pode me ajudar ?

Desde já agradeço,

Claudio Oliveira.

[jacsonsoares]

Olá Dinho!

Eu desenvolvi um aplicativo com o componente(tem exemplo) "vcap_d6.dpk" para pegar a imagem da webcam e usei o componente dataware "EDBImage" para exibir a imagem diretamente do banco(firebird).

Ficou muito rápido e muito pratico.

Funciona muito bem!

Se não conseguir baixar os componente me manda um email que lhe envio:

jacsonmsoares@ibest.com.br

Espero ter ajudado.

Att, Jacson Soares.

[fritter]

Ola amigo,

Pode enviar pra mim tambem ?

email: fabioritter@yahoo.com.br

Desde já agradeço,

Fabio

[Churc]

opa se puder me enviar também

n tenho nada do tipo :D

cebasso@gmail.com

bjos nas irmas

[Guest --Mauro --]

Caro colega,

Se puder me enviar o exemplo ou o componente para captura de imagem da web cam, agradeço muito.

PS. Uso Delphi 7

maurotavares@gmail.com

[Jhonas]

Utilizei o DSPack para capturar imagens da WebCam em meu sistema. muito bom com exemplos

http://www.progdigy.com/modules.php?name=DSPack

Outros

http://www.viscomsoft.com/demo/videocaplivesetup.exe

Aqui tem uma vcl para o delphi e é open source:

http://www.mitov.com/html/download_videolab.html

Se quiser algo mais simples

http://tscap32.sourceforge.net/ ou

para o delphi 7

http://www.delphi32.com/vcl/5334/download,xid,5334.asp

abraço

[Renan Garcez]

Desenterrando este tópico..

estou precisando capturar a foto da pessoa pela web cam (tipo o q fazem nas academia) e salvar no BD.

O DSPack eu não consigo instalar, da erro... uso o Delphi5

alguém pode me ajudar?

[Jhonas]

O DSPack eu não consigo instalar, da erro... uso o Delphi5

Faça uma busca no forum

http://scriptbrasil.com.br/forum/index.php...highlite=DSPack

abraço

[wgandrade]

Caro Claudio

Aqui apresento uma solução minha, testada e funcionando perfeitamente em Delphi 7 e Delphi 2009.

Comentei em português e inglês, para quem quiser optar.

Espero que te atenda.

Wellington Gomes de Andrade - Eng.

{------------------------------------------------------------------------------
  Procedure "cap_foto_webcam"
  Captura e salva em arquivo bitmap um só frame (foto) da webcam
  Capture and save only one frame (photo) to bitmap file 
  Autor:  Wellington Gomes de Andrade - Eng.
  Em:     18/12/2010
  Empresa: Automata Tecnologia - www.automataa.com.br
           email: wellauto@hotmail.com 
  -----------------------------------------------------------------------------}
procedure TFCaptura.cap_foto_webcam;
var
  hWnd: THandle;
  bmp: TBitmap;
  formatoBmp: word;
  ADado: THandle;
  APalette: HPALETTE;
begin
  bmp:=TBitmap.Create;

  try
    { Cria o formato bitmap para o clipboard }
    { Create bitmap format to clipboard }
    bmp.SaveToClipboardFormat(formatoBmp,ADado,APalette);
    ClipBoard.SetAsHandle(formatoBmp,ADado);

    { Limpa o objeto TImage }
    { Clear TImage object }
    Image1.Picture.Assign(nil);
    Image1.Refresh;

    { Registro do formato Bitmap }
    { Register bitmap format }
    Image1.Picture.RegisterClipboardFormat(CF_BITMAP,TBitmap);

    { Handle da criação da janela de captura}
    { Creation window Handle}
    hWnd:=capCreateCaptureWindow('ImagemWebCam',  //Janela(window) de captura
                                 WS_CHILD,        //Child (Form)
                                 0,0,             //Esq(Left), cima(top)
                                 640,480,         //Larg(width),Altu(height)
                                 FCaptura.Handle, //Form(parent) Handle
                                 0);              //ID janela (window)
    if hWnd <> 0 then begin
      { Se janela foi criada com sucesso, conectá-la }
      { If window created, connect to }
      if capDriverConnect(hWnd,0) then begin
        { Se conexão com janela foi efetuada }
        { If connected successfully }
        try
          if capGrabFrame(hWnd) then begin
            { Se capturou um frame }
            { If frame captured }
            if capEditCopy(hWnd) then begin
              { Se salvou o frame capturado para o clipboard }
              { If clipboard saved frame}
              bmp.LoadFromClipboardFormat(CF_BITMAP,
                    ClipBoard.GetAsHandle(CF_BITMAP),0);
              bmp.SaveToFile('d:\fotos\imgwebcam.bmp');
            end;
          end;
        finally
          capDriverDisconnect(hWnd);
        end;
      end;
    end;
    with Image1 do begin
      Width:=440;
      Height:=330;
      Stretch:=true;
      Picture.LoadFromFile('d:\fotos\imgwebcam.bmp');
    end;
  finally
    bmp.Free;
    ClipBoard.Clear;
  end;
end;

Editado Dezembro 19, 2010 por kuroi
Adicionar tag CODE

[Artur Dionisio]

Olá

jacsonsoares

Favor, manda pro meu e-mail por favor: artur.almeida@gmail.com

Desde já, grato...