CAPTURAR IMAGEM DA WEB CAM E GRAVAR EM UM ARQUIVO

REIS 16/07/2011 15:23:16
#379350
Estou eu cadastrando produtos, quero mostrar o produto para a web cam e gravar a imgem deste em arquivo e no bd junto ao odigo de barras deste produto.

Conto com o conhecimento de vcs.

Obrigado...
TECLA 29/07/2011 21:15:11
#380342
No link abaixo, tem um exemplo que exibe a imagem da webcam no objeto PICTURE em tempo real.
Para salvar a imagem em arquivo, é só usar a função SavePicture.

Exemplo:
Dim bmpPath, jpgPath As String
Dim oBmp As New FREEIMAGE_ACTIVEXLib.Image
Dim ergBmp As Integer

jpgPath = App.Path & [Ô]\JPG_File.jpg[Ô]
bmpPath = App.Path & [Ô]    empBMP.bmp[Ô]

SavePicture(Picture1.Picture, bmpPath)


http://www.macoratti.net/07/08/vb_wbc1.htm
EDERMIR 29/07/2011 21:41:35
#380345
Tenho a função assim:

                    SavePicture Image1.Picture, Wfoto
                    Set mystream = New ADODB.Stream
                    mystream.Type = adTypeBinary
                    mystream.Open
                    mystream.LoadFromFile Wfoto
                    .AddNew
                    SQL_RS([Ô]CPF[Ô]) = fCNPJ(Trim(Text1(0).Text), 1)
                    SQL_RS([Ô]FOTO[Ô]) = mystream.Read
                    .Update
                    Set mystream = Nothing
Tópico encerrado , respostas não são mais permitidas
Voltar