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") ...
... as you can see here: https://s13.postimg.org/rd6s9qu47/scan2.png 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 ...
Estoy tratando de utilizar este dll con múltiples paginas y para escribir yo: oScan:SetMultiTransfer(1) // Opción para escanear varias páginas Pero está trabando el equipo cuando vacía la bandeja Me di cuenta de que está bloqueando el equipo cuando se ejecuta: ...
... the Twain interface. I believe my scanner is capable but I cannot find a way to set this up with the TScan32 class. I also have found that the oScan:SetContrats(nMyValue), and oScan:SetBright(nMyOtherValue) seems to have no effect on the end result no matter what value passed, but in the program ...
... código de barras que contenga la cadena "9999999", y en el código correspondientes le indico que si se encuentra ésta cadena, entonces oScan:end(), ya que si no pongo ésto, no sé como parar el multitranfer. Codigo: Function escanea()local cBarValue,hdib,nombre,hora,minu,segu,dia,camino,cFile,siguelocal ...
Ya veo lo que dices. Creo que la línea que falla es esta: oScan:RegionSet( nLeft,nTop, nRigth, nBottom ) Debe ser un problema del driver del scanner. Si tienes ocasión pruebalo con otro scanner. Yo solo tengo 2 para probar y en los 2 funciona perfectamente. ...
Hola Aida, Si has modificado la clase asegúrate que se sigue ejecutando oScan:End() cuando cierras el diálogo. Otra cosa que puedes hacer es comparar los procesos en el "administrador de tareas" de windows antes y después de utilizar la clase, para ...
Hi all, I need to acquire a multipage document using the oScan:acquire() method in order to load each single page in memory and check if any barcode is available on the page. The problem is that using SetMultiTransfer(1) as suggested on the eztwain manual ...
... Toninho. :lol: Ja resolvi isto tive que alterar a classe tscan32. Baixe aqui: http://rapidshare.com/files/164602347/TSCAN.rar.html Para testar oScan := TScan32():New( "" ) IF oScan:State() < 4 MSGINFO("Não foi possivel estabelecer a conexão com o scanner. "+CRLF+; "Verifique se o scanner ...
... al portapapeles!!! 4.- Realmente funciona!!! ;-) Veamos pues todo el entramado en codigo fuente. Creacion de un objeto TScan y scaneando: oScan := TScan32():New( cFile ) oScan:DigiToFile() Y esto es todo lo que tienes que escribir!! Realmente fantastico, no crees ? Ahora bien, como es ...
Rafael, Este otro OCX de http://www.ciansoft.com/twaincontrolx/default.asp Funciona perfecto con FWH. he aqui un ejemplo de como usarlo: oScan := TOleAuto():New("TwainControlXTrial.Twain") oScan:SelectDevice() oScan:Acquire() oScan:SaveMultiPagePDF("c:\TestScan.pdf") oScan:WritePDF( "c:\TestScan.pdf") ...
Angel, en tu codigo no defines ninguna area: oScan:RegionSet( nLeft,nTop, nRigth, nBottom ), establece el area a escanear. Puedes preguntar por el area oScan:RegionGet( @L,@T,@R,@B ), y comparar los valores ANTES y depues del RegionSet. A mi me ...