Obter foto do cliente
Enviado: 03 Dez 2014 10:49
Caros, tenho a funcao de obter foto do cliente via webcan, ateh entaum estava funcionando direitinho. Acontece que neste determinado cliente no terminal onde se faz o cadastro existe tb um scanner, quando invoco a funcao de obterimagem() a funcao abre a tela do scaner e nao da webcan. Alguem sabe como faco para escolher entre webcan e o scanner ?
Código: Selecionar todos
Function ObterImagem(codcli)
Local Form_Main
Local oFontBtn
Local oFont := Nil
Local nColor
local file0:=xendcomp+"Imagens\"+strzero(codcli,6)+".bmp"
local hdll
If File(File0)
If MsgYesNo("Imagem/Foto ja existe. Substituir Imagem/Foto ?")
IF FErase(File0)<0
MsgStop("Nao foi possivel deletar a Imagem/Foto anterior")
Return .F.
Endif
Else
Return .F.
Endif
Endif
hdll:=loadlibrary("EZTW32.DLL")
dllcall(hdll,DC_CALL_STD,"TWAIN_AcquireToFilename",oForm3:Handle,file0)
freelibrary(hdll)
vFoto:=File0:=xendcomp+"Imagens\"+strzero(codcli,6)+".bmp"
If File(vFoto)
oFoto:Hide()
@ 882,410 IMAGE oFoto SHOW vFoto OF oForm3 SIZE 116,120
oFoto:Show()
Else
oFoto:Hide()
Endif
return nil