Win10Pro and Tscan

[Silvio.Falconi]

On Win10Pro Tscan not see the cam ( webcam) as twain



to see if there are devices I use this function

Code: Select all  Expand view

For i := 0 To 9
        If capGetDriverDescription(i, @cDriverName, 128, @cDriverVersion, 128)
          aadd(adevices,cDriverName)
        EndIf
     Next

capGetDriverDescription

Code: Select all  Expand view

HB_FUNC( CAPGETDRIVERDESCRIPTION )
{
 TCHAR lpszName[128];
 int iName = hb_parni(3);
 TCHAR lpszVer[128];
 int iVer = hb_parni(5);
 BOOL bRet;

 bRet = capGetDriverDescription( (WORD) hb_parnl(1), lpszName, iName, lpszVer, iVer );

 hb_storc( lpszName, 2 );
 hb_storc( lpszVer, 4 );

 hb_retl( bRet );
}

#pragma ENDDUMP

at init let me say there are window Image device as you can see here:




When Open tscan it make error Why ?

I open tscan with these lines

oScan := TScan32():New( nomefile )
oScan:OpenDefault()
oScan:PixelType( nscala )
oScan:SetHide( lAvanzato )
oScan:RegionReset()
oScan:SetRes( 75 )
MsgRun("Sto preparando lo scanner","Aspetta un momento",{ || oScan:DigiToFile(nomefile) })


On Windows Seven run correctly


Now I tried also webcam.prg on My Miix320 Lenovo with Win10Pro and not run . the computer use two can one on Front and one out !!!
My Miix 320 Lte Lenovo https://youtu.be/cSph6_hM_EU

[Silvio.Falconi]

IT SEEMS FAILURE THE FUNCTION ISAVAIBLE() OF TSCAN CLASS RETURN ALLWAYS .T.

[Silvio.Falconi]

i TRIED ALSO

oScan_Temp:=TScan32():New()

IF oScantemp:State()<4
if MsgAlert("Nessun scanner rilevato"+CRLF+;
"Assicurarsi che lo scanner sia acceso e che il relativo driver TWAIN sia correttamente installato","Attenzione")
oScantemp:end()
return .t.
Endif
else
oScan:= TScan32():New( nomefile )
oScan:OpenDefault()
oScan:PixelType( nscala )
oScan:SetHide( lAvanzato )
oScan:RegionReset()
oScan:SetRes( 75 )



BUT IT IS TRUE AND POPEN SOURCES DIALOG