Search the Community
Showing results for tags 'scanner'.
-
Bom dia meu caros, Estou implementando uma rotina para meu software de sorteios (bingos) onde o mesmo terá que escanear os canhotos das cartelas vendidas e automaticamente, validar os mesmos com a leitura do código de barras neles... #include "FiveWin.ch" Function escanea() local cBarValue,hdib,nombre,hora,minu,segu,dia,camino,cFile,sigue local nCntPage:=0, cVar,oIni,escaneo,errores,conta:=0,contae:=0 INI oIni FILE ".\GESPAQ.INI" GET escaneo SECTION "JPG" ENTRY "Ruta Imagenes provisio" OF oIni DEFAULT curdrive()+":\"+curdir() GET errores SECTION "JPG" ENTRY "Ruta Imagenes entrada" OF oIni DEFAULT curdrive()+":\"+curdir() ENDINI cFile:="provi" camino:=curdrive()+":\"+curdir()+"\" tw_SetMultiTransfer(1) oScan := TScan32():New(cfile) * oscan:SelectFeeder(.t.) * oscan:SetAutoFedd(1) oScan:SetRes( 300 ) && 150dpi * oScan:PixelType( TWAIN_BW ) oScan:PixelType( TWPT_RGB ) oScan:SetHide( .T. ) oscan:RegionSet(0,0,8.40,4) Do while .t. //tw_waitforImage(oscan)=1 dia :=alltrim(padr(str(year(date())),"0",4))+alltrim(padr(str(month(date())),"0",2))+alltrim(padr(str(day(date())),"0",2)) hora:=SUBSTR(TIME(), 1, 2) minu:=SUBSTR(TIME(), 4, 2) segu:=SUBSTR(TIME(), 7, 2) cFile:=dia+hora+minu+segu+".jpg" nombre:=oscan:Digitofile( cFile,oscan ) do case case nombre<>"0" .and. nombre <>'9999999' movefile(camino+cFile,escaneo+'0'+nombre+'.jpg' ) conta+=1 case nombre='0' movefile(camino+cFile,errores+cFile ) contae+=1 case nombre='9999999' delete file &nombre end case if Publicas:cFin=1 exit endif enddo * TW_CloseSource() if .not. oScan:BC_available() msgalert("No esta registrada la aplicacion","Atencion") endif oScan:End() msginfo('Resumen del Escaneo'+chr(10)+chr(10)+'Albaranes con codigo de barras '+alltrim(str(conta))+chr(10)+'Albaranes sin codigo de barras '+alltrim(str(contae)),'HEMOS ACABADO') return (sigue) Esse código utiliza a TSCan32 junto com a EzTawin mas tem um problema que não há mais detalhes no tópico.... http://forums.fivetechsupport.com/viewtopic.php?f=6&t=20406&p=108205&hilit=scanner#p108205 E nem o autor respondeu mais. Alguém tem algo parecido ou que pode me direcionar a algo parecido. Obrigado Ladinilson Sousa FWH / xHarbour / Pelles / DBFCDX / MySQL