FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Barra de estado de proceso con HB_ZipFile y HB_UnZipFile
dobfivewin
Posts: 325
Joined: Sun Feb 03, 2008 11:04 PM
Barra de estado de proceso con HB_ZipFile y HB_UnZipFile
Posted: Thu Nov 27, 2008 08:13 PM
Estimados del foro

Como puedo visualizar con meter la barra de proceso cuando se arma o extrae de un ZIP

Code: Select all Collapse
HB_ZipFile(mUBI_DES+cFile,aZip[nI],,,,,.F.) 
HB_UnZipFile(cFile,,.T.,,cPath,aFiles,NIL)


gracias

david
argentina
MauroArevalo
Posts: 111
Joined: Thu Jan 19, 2006 11:47 PM
Barra de estado de proceso con HB_ZipFile y HB_UnZipFile
Posted: Thu Nov 27, 2008 10:19 PM
David:


Code: Select all Collapse
DEFINE DIALOG oDlg FROM 1, 1 TO 10, 44 TITLE "Espere ejecutando La copia de seguridad..."

@ 2, 2 METER oMeter VAR nActual TOTAL 100 OF oDlg SIZE 135, 12

ACTIVATE DIALOG oDlg CENTERED;
 on Paint(If(Hb_ZIPFILE(cArchivo,aFiles, 8 , {|cFile,nPos|nActual:=nPos/nLen*100,oMeter:Set(nActual)} ),;
 MsgInfo(("Copia realizada con EXITO "+CRLF+" "+CRLF+"A脩O "+ANONOM+CRLF+" "+CRLF+;
         "Ubicaci贸n: "+cArchivo+CRLF+" "+CRLF+"Total archivos 81")),;
 MsgInfo("La copia no se puede realizar")),oDlg:End())


Espero te sirva

Saludos,
Edgar Mauricio Ar茅valo Mogoll贸n.
Bogot谩 DC. Colombia
FWH FTDN, xHarbour 1.2.1, Pelles C, Fivedit, Visual Studio Code, Borland 7.30, Mysql, Dbfs
http://www.hymplus.com http://www.hymlyma.com
Tratando de retomar la programaci贸n....
dobfivewin
Posts: 325
Joined: Sun Feb 03, 2008 11:04 PM
Barra de estado de proceso con HB_ZipFile y HB_UnZipFile
Posted: Sat Nov 29, 2008 08:23 AM
Estimado MAURO

Perfercto.... lo implement茅 y funcion贸 :-) , desde ya muchas gracias.

Ahora en que lugar coloco el Meter en:

Code: Select all Collapse
HB_UnZipFile(cFile,,.T.,,cPath,aFiles,NIL)



muchas gracias nuevamente :-) .

david
argentina
dobfivewin
Posts: 325
Joined: Sun Feb 03, 2008 11:04 PM
Barra de estado de proceso con HB_ZipFile y HB_UnZipFile
Posted: Sun Nov 30, 2008 12:43 PM
Como coloco el Meter en:


Code: Select all Collapse
HB_UnZipFile(cFile,,.T.,,cPath,aFiles,NIL)



muchas gracias nuevamente
dobfivewin
Posts: 325
Joined: Sun Feb 03, 2008 11:04 PM
Barra de estado de proceso con HB_ZipFile y HB_UnZipFile
Posted: Sun Nov 30, 2008 05:29 PM
Listo... Solucionado

Code: Select all Collapse
Len := len(aFiles)

DEFINE DIALOG oDlg FROM 1, 1 TO 10, 44 TITLE 'RECUPERANDO INFORMACION ...' 

@ 2, 2 METER oMeter VAR nActual TOTAL 100 OF oDlg SIZE 135, 12 

ACTIVATE DIALOG oDlg CENTERED; 
  on Paint( If( HB_UnZipFile(cFile,{|| oMeter:Set(++nPos/nLen*100), SYSREFRESH() },.T.,,cPath,aFiles,NIL) ,; 
                    MsgInfo('Carpeta de Origen: '+mUBI_ORI+chr(13)+;
                    'Carpeta de Destino: '+cPath+chr(13)+;
                    'Archivo/s Recuperados de: '+cFile+chr(13)+;
                    'Cantidad de Archivos Recuperados: '+str(Len(aFiles),3) ,'Informaci贸n General del Proceso'),; 
                    MsgInfo('La copia no se puede realizar')),;
            oDlg:End())


Gracias a todos

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions