Gravação de Foto via webcam

[marvazoler 0]

Ola boa tarde, preciso cadastrar dados basicos de funcionario com a foto dele com webcam, estou usando

delphi x paradox.

 

Obs: É para imprimir cracha!! so esta faltando a foto, o codigo de abertura da webcam eu tenho e funciona, mas

como eu faço para a imagem aparecer na tela de cadastro?

 

Desde ja agradeço!!

 

[Chrnos 30]

Um modo é você salvar a foto tirada em um arquivo (jpeg por exemplo) e depois abrir ele num componente image durante o cadastro.... não sei se tem outra opção.

[marvazoler 0]

Que componente fazer abrir onde o arquivo esta?

E como carregar no componente img?

[Ilano 0]

Marvazoler,

 

Você pode usar o componente TCamera é free e é muito bom para esse tipo de trabalho.

Veja nesse link como usá-lo e esse link para baixá-lo.

 

Espero ter ajudado.

[marvazoler 0]

Vou gravar o caimnho, mesmo!!, nao quero ter problemas com o peso do banco no futoro!!

 

Qual componente?

E como mostrar a foto como quickreport?

[Ilano 0]

marvazoler,

 

Faça o seguinte:

Coloque um QRImage na band e no evento AfterPrint dessa band coloque o código

If FileExists(DMDados.Query.FieldByName('Cliente_EnderecoImagem').AsString) Then

QRImage1.Picture.LoadFromFile(DMDados.Query.FieldByName('Cliente_EnderecoImagem').AsString);

Else

QRImage1.Picture:=Nil;

 

 

Espero ter ajudado.

[marvazoler 0]

Amigo

Ilano

 

 

Seguinte, usei seu script e deu erro, eu estou gravando no ibexpert o caminho da imagem, mas quando chamo o relatório da a seguinte mensagem:

 

Unknown picture file extension(.jpg)

 

O que pode ser?

 

Estou usando quirckreport do delphi7

[08rafael 0]

llano, obrigado pela resposta. O código funcionou corretamente e agora posso gravar fotos graças à webcam