FOTOS NO SISTEMA
pessoal, um client lojista me pediu para colocar fotos dos clintes no sistema, ja tenho uma idéia, criar uma pasta junto ao exe, para guardar as fotos, facilitando a leitura, a dúvida esta em como salvar estas fotos, ele ira usar uma webcam, eu teho duvida de grava pelo vb, no ato do cadastro pois ai o sistema se encarrega de codificar a foto, se for por ai, como fazer para o vb acionar a cam e capturar a imgagem ?? , ou ele grava direto colocando o na foto o código do cliente ?, tbem tem as fichas q tem as pessoas autorizadas para compra, neste caso, seria a foto do titular e a foto dos autorizados, preciso de idéias de como fazer a captura, o resto ja ta pronto.
Veja so amigo, eu tenho uma pasta IMAGENS em qualquer lugar que coloco essa pasta COMPARTILHADA, eu pessoalmente nao capturo nada da web cam pois nao trabalho com web, trabalho com imagens, e documentos, dentro do banco de dados tenho 1 tabela de clientes por exemplo.. la dentro eu coloco o codigo da imagem, esse codigo eu gero atraves do codigo do cliente + data + hora, fica mais ou menos assim 00000214012010122340, ou seja 000002 14/01/2010 12:23:40 so fazer a funcao mais ou menos assim : txtimagem.text = txtcodigo.text & format(date,[Ô]ddmmyyyy[Ô]) & format(time,[Ô]hh:mm:ss[Ô]), beleza apos identificar a id da imagem, eu separo a extensão da imagem em outro campo da tabela, exemplo EXTENSAO, ai la vai gravar qual formato da imagem.. JPG. GIF.. etc.. como aqui os documentos vem do scanner, salva no desktop, eu faço a copia dos arquivos para essa pasta compartilhada quando o cara pede para gravar.. mais ou menos assim.
Portanto com a imagem gravada na pasta voce pode visualizar nos forms a qualquer momento logico carregando a mesma.. se voce nao conseguir carregar a imagem, fala ai que te passo como.
FileCopy cmdAnexo.FileName, carquivos & [Ô]\[Ô] & txtLog.Text & Mid(cmdAnexo.FileName, InStrRev(cmdAnexo.FileName, [Ô].[Ô]), Len(cmdAnexo.FileName))
Portanto com a imagem gravada na pasta voce pode visualizar nos forms a qualquer momento logico carregando a mesma.. se voce nao conseguir carregar a imagem, fala ai que te passo como.
CARREGAR A FOTO PARA MOSTRAR é TRANQUILO, EU QUERIA UMA ROTINA PARA Q NA HORA Q FIZER O CADASTRO DO CLIENTE, ATRAVéS DO PRÓPRIO VB, JA CAPTURAR A IMGAM DA CAMERA, ASSIM JA CODIFICO ELA NA TABELA E SALVA NA PASTA DE IMAGENS.
Capturar imagem (como filme): Colocar em um TIMER:
Clipboard.Clear
SendMessage mCapHwnd, WM_CAP_GRAB_FRAME, 0, 0
SendMessage mCapHwnd, WM_CAP_EDIT_COPY, 0, 0
Image1.Stretch = True
Image1.Picture = Clipboard.GetData
Wpercent = 2
Image1.Width = 4800 / Wpercent
Image1.Height = 3600 / Wpercent
Desliga a camera (FORM TERMINATE):
SendMessage mCapHwnd, WM_CAP_DRIVER_DISCONNECT, 0, 0
Inicia a camera (No meu caso, se a foto não existir no BD):
mCapHwnd = capCreateCaptureWindow([Ô]My Own Capture Window[Ô], 0, 0, 0, 320, 240, Me.hwnd, 0)
SendMessage mCapHwnd, WM_CAP_DRIVER_CONNECT, 0, 0
Acho que só. Procure no fórum sobre CAPTURA DE IMAGEM que está esta aplicação onde peguei o código.
tecla, eu ja tinha visto este projetinho do macoratti, mas ele tem uns bugs, a imagem ficafora de focu ou de centro...e da uns erros
FUTURA
Quando a foto está fora de foco, é possÃvel que o foco da WEB-CAM esteja mal regulado.
Quanto a foto estar fora de centro, é necessário adaptar o tamanho da fota à área a ser exibida.
Excontrei o LINK no VBMania: http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=1931
Quando a foto está fora de foco, é possÃvel que o foco da WEB-CAM esteja mal regulado.
Quanto a foto estar fora de centro, é necessário adaptar o tamanho da fota à área a ser exibida.
Excontrei o LINK no VBMania: http://www.vbmania.com.br/pages/index.php?varModulo=Detalhe&varID=1931
Eder, eu ja havia pesquisado no fórum, achei este exemplo e testei, porém não consegui mudar as cordenadas, minha cam é embutida no notebook....mexi em alguns numeros nesta rotina, mas não mudou nada. ficando bem em frente a cam, ela capta apenas meu ombro esquerdo, eu tenh q ficar totalmente à direita ( ja fora da tela do note) pra focalizar meu rosto.....e ainda, dependendo do local do cliente, teria q ter um ajuste de foco na tela, pra ir aproximando........
Dentro do PICTUREBOX você deve colocar um IMAGE. A propriedade stretch vai permitir alterar o tamanho da imagem para as dimensões desejadas.
Image1.Stretch = True
Image1.Picture = Clipboard.GetData
Wpercent = 2 ====> VAI DIVIDIR A IMAGEM PELA METADE MANTENDO AS PROPORÇÕES
Image1.Width = 4800 / Wpercent
Image1.Height = 3600 / Wpercent
Image1.Stretch = True
Image1.Picture = Clipboard.GetData
Wpercent = 2 ====> VAI DIVIDIR A IMAGEM PELA METADE MANTENDO AS PROPORÇÕES
Image1.Width = 4800 / Wpercent
Image1.Height = 3600 / Wpercent
eder, agora deu certo, centralizou a imagem...só q a uma distancia de 50 cm, pega o rosto e o tronco todo, teria como ajustar pra focalizar mais no rosto tipo 3x4 ??
Tem.
Mas lembre-se que você vai ampliar a IMAGEM. Poderá perder resolução.
Eu não tentei pois minha necessidade faz a câmera estar bem próximo do cliente.
Mas lembre-se que você vai ampliar a IMAGEM. Poderá perder resolução.
Eu não tentei pois minha necessidade faz a câmera estar bem próximo do cliente.
Tópico encerrado , respostas não são mais permitidas