FiveTech Software tech support forums

... ocupado, pero ya tengo una nueva version: http://www.sauro-sys.com/Source/sampleFWGD.zip NOTAS: - Ya NO usamos DriveType( [<cDrive>] ) - Para evitar el problema del AT(..) ahora se usa TOKEN() (comun en Harbour/xharbour, yo aun uso xHarbour) - Añadimos nuevos parametros: ...

... desde el siguiente enlace. http://www.sauro-sys.com/Source/sampleFWGD.zip NOTA: Les comento que la funcion: DriveType( [<cDrive>] ) de xharbour, a veces NO detecta bien los DISCOS de RED, devuelve 9 (Unknown drive); si devuelve 5 (Network drive) se mostrara el icono ...

... cFTP_Clv, INTERNET_SERVICE_FTP, 0, 0 ) lFTPError :=.f. do while ( .not. lFTPError ) .and. ( nItem<=len( aFileADW ) ) cADWFile :=oADWin:cDrive+oADWin:cFolder+'\'+aFileADW[ nItem, 1 ] cFTPFile :=cFTPFldr+'/'+aFileADW[ nItem, 1 ] lFTPOk :=FTPPUTFILE( hConnect, cADWFile, cFTPFile, 0, 0 ...

... El problema es que cuando protect.prg va comprobando unidad USB individualmente, estas unidades le aparecen como USB pero al ejecutar if ! File( cDrive + "\info.bin" ) da error en ellas ya que no hay disco. Es decir, este es el fragmento if ! File( cDrive + "\info.bin" ) //MsgAlert( ...

Con la instruccion

IF N<>1 .AND. GetDriveType(cDrive)==2 //(2=USBDrive/3=HD/5=DVD)

se descartan las unidades A y B asi que aun iniciando con la unidad "C" aparece el error solo cuando un USB PenDrive esta conectado.

Esta es la rutina: nBitDrives:=GetLogicalDrives() FOR N:=1 TO 32 IF lAnd(nBitDrives,2^(N-1)) cDrive:=CHR(ASC("A")-1+N)+":" //Letra asignada al dispositivo IF N<>1 .AND. GetDriveType(cDrive)==2 //(2=USBDrive/3=HD/5=DVD) IF FILE(cDrive+"\TorosDat.DBF") ...

... function copiar() local oDestino, Destino, lOK:=.f. local aDirectorio:={},aFuente:={},aDestino:={} local oDlg, oCbx1 local cItems:=aDrives(), cDrive local cBmps:={}, n for n:=1 to len(cItems) aadd(cBmps,"hDrive") next cDrive:=cItems[1] Destino:= space(16) DEFINE DIALOG oDlg RESOURCE ...

Hello Natter

have a look at \samples\protect.prg

there You find :

GetUSBSerial( cDrive )
function GetUsbDrives()

Best Regards
Uwe

... otro lado, hablan de proteger el sistema mediante un "chupon" (USB-Drive) y para eso en versiones recientes de FWH viene la funcion GetUSBSerial( cDrive ) que no se que le vean de malo como para no usarlo para proteger los sistemas mediante este equema. Yo lo estoy empezando a probar y de momento ...

... otro lado, hablan de proteger el sistema mediante un "chupon" (USB-Drive) y para eso en versiones recientes de FWH viene la funcion GetUSBSerial( cDrive ) que no se que le vean de malo como para no usarlo para proteger los sistemas mediante este equema.

... looking for? //----------------------------------// function copiar() local oDestino, Destino, lOK:=.f. local oDlg, oCbx1 local cItems:=aDrives(), cDrive local cBmps:={}, n for n:=1 to len(cItems) aadd(cBmps,"hDrive") next cDrive:=cItems[1] Destino:= space(16) DEFINE DIALOG oDlg RESOURCE "BACKUP" ...

Marco, I had a problem with USB drive on my VISTA PC, too. http://forums.fivetechsoft.com/viewtopic.php?t=10541&start=0 What is ISREADY( cDrive ) returning? Here it errored out with this error screen. As a solution I deinstalled all the USB ports and drivers and installed the USB ports again. ...

... Utilizo Harbour y FWH 8.03. Saludos y gracias Carlos G. Este es el código: /* ********************************** */ STATIC FUNCTION GetUSBSerial( cDrive ) Local oLoc := CreateObject( "wbemScripting.SwbemLocator" ) Local oSrv := oLoc:ConnectServer() Local oJobs := oSrv:ExecQuery( "SELECT * FROM ...

Hello Otto

Why you don't use

nFile := fCreate( cDrive + 'TEST.TXT',0)
if nFile == -1
lReturn := FALSE
MsgInfo("Driver not present " )
else
fClose(nFile)
endif

Maurizio

Hello James,
thank you for your answer. With your ISREADY( cDrive ) I get on one of my VISTA PC if DRIVE is not ready this error on the 2nd the same exe works: