Obter foto do cliente

[marcos.gurupi]

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

[Toledo]

Marcos, tente o seguinte:

Código: Selecionar todos

dllcall(hdll,DC_CALL_STD,"TWAIN_SelectImageSource",oForm3:Handle)
dllcall(hdll,DC_CALL_STD,"TWAIN_AcquireToFilename",oForm3:Handle,file0)

Abraços,

[marcos.gurupi]

Caro toledo, deu certo. Eh isso mesmo, contudo no windows 7 n aparece a opcao de webcan, somente aparece o scanner. Alguem sabe me dizer o q ocore?