/*-----------------------------------------------------------------------------
Fichero : xBLite.prg
Proyecto : XBackupLite (utilidad de compresion para datos de aplicaicones)
Objetivo : Prueba del poder del compilador xHarbour - 0.99.61
Fecha : 2004.03.06
Autor : Carlos Vargas - Nicaragua
Modificado : Por JoÆo Santos em: 15/09/2006 - SÆo Paulo - Brazil
Emails : kapiabafwh@gmail.com
Derechos : Todos los derechos reservados
Gracias : Kleyber Derick - Valdir Brando y Carlos Vargas. Saludos.
Cambios : Ahora Usando TSBROWSE.PRG Directamente Sin la LIB. Bien Mejor.
-----------------------------------------------------------------------------*/#Include "xBlite.Ch" //-> Cont‚m os Arquivos de Cabe‡alho Necess rios//-> Para los Folders - Abas(orelhas) dos Folders - P ginas#DEFINE PAGE1 oFolder:
aDialogs[ 1 ]#DEFINE PAGE2 oFolder:
aDialogs[ 2 ]#DEFINE PAGE3 oFolder:
aDialogs[ 3 ]#Define CLR_AMARELO nRGB
( 255,
255,
230 ) //--> Amarelo Para o Fundo#Define CLR_VERMELHO nRGB
( 255,
000,
000 ) //--> Vermelho Para a Letra#Define CLR_BOMBOM nRGB
( 165,
42,
42 ) //--> Marrom BomBom#Define CLR_MARROM nRGB
( 235,
202,
171 ) //--> Marrom NormalSTATIC nOpcaoRadio :=
2 //-> Op‡Æo do Radio da Pesquisa/*Procedimiento principal*/FUNCTION XBLITE
() //->MAIN() MEMVAR cPRGPATH, cFILEPATH
SndPlaySound
( "Init.Wav" ) cPRGPATH := cFILEPATH
(GETMODULEFILENAME
(GETINSTANCE
())) cPRGPATH := cShortName
(cPRGPATH
) //-> Modified / Modificado al final XBACKUPLITE
() lCHDIR
(cPRGPATH
)RETURN NIL/* Backupeador */FUNCTION XBackupLite
() LOCAL oIcon
LOCAL oFont, oFnt, oSayBtn01, oSayBtn02
LOCAL oFontT
LOCAL oDlg
LOCAL oFolder
LOCAL oBrowseZip
LOCAL oBrowseUnZip
LOCAL IDCor
LOCAL oBrush
LOCAL oDbfVendedor
LOCAL NOME_ARQ, NREGISTRO
LOCAL oRadMenu
LOCAL cTitle := OemToAnsi
( "Sistema de Backup - Professional Edition - " ) LOCAL dDataDia := DTOC
( DATE
() ) MEMVAR PANY
/*variables de seccion zip*/ PRIVATE oFolderSourceZip, cFolderSourceZip
PRIVATE oGetFolderSourceZip
PRIVATE oIncludeSubFolder, lIncludeSubFolder
PRIVATE oZipToFloppy, lZipToFloppy
PRIVATE oFolderTargetZip, cFolderTargetZip
PRIVATE oGetFolderTargetZip
PRIVATE oFilesCountZip, nFilesZipped, nTotalFilesToZip
PRIVATE nSizeFilesToZip
PRIVATE oDoCompress
PRIVATE acFilesToZip :=
{ { "",
0, ctod
(""),
"" } } /*variables de seccion unzip*/ PRIVATE oSourceUnZip, cSourceUnZip
PRIVATE oGetSourceUnZip
PRIVATE oUnZipWithPath, lUnZipWithPath
PRIVATE oGetFolderTargetUnZip
PRIVATE oFolderTargetUnZip, cFolderTargetUnZip
PRIVATE oFilesCountUnZip, nFilesUnZipped, nTotalFilesToUnZip
PRIVATE nSizeFilesToUnZip,nSizeFilesToUnZipC
PRIVATE oDoUnCompress
PRIVATE acFilesToUnZip :=
{ { "",
0,
0, ctod
(""),
"" } } PUBLIC XFANTASIA, XVERSAO, XNOMEEMP
/*valores inciaiales de seccion zip*/ cFolderSourceZip :=
"" cFolderTargetZip :=
"" lIncludeSubFolder :=
FALSE lZipToFloppy :=
FALSE nTotalFilesToZip :=
0 nSizeFilesToZip :=
0 /*valores inciaiales de seccion unzip*/ cSourceUnZip :=
"" cFolderTargetUnZip :=
"" lUnZipWhitPath :=
TRUE nTotalFilesToUnZip :=
0 nSizeFilesToUnZip :=
0 nSizeFilesToUnZipC :=
0 /*definiciones de objetos icon y font*/ DEFINE FONT oFont
NAME GetSysFont
() SIZE 0,
-11 BOLD
DEFINE FONT oFnt
NAME GetSysFont
() SIZE 0,
-12 BOLD
DEFINE FONT oFontT
NAME GetSysFont
() SIZE 0,
-16 BOLD
DEFINE ICON oIcon
NAME "XBACKUPLITE" DEFINE BRUSH oBrush FILE
"COMPAR.BMP" /*definicion de dialogo*/ DEFINE DIALOG oDlg
NAME "XBACKUPLITE" ;
TITLE cTitle + ALLTRIM
( XFANTASIA
) +
" - " +
"Data: " + dDataDia;
FONT oFont
ICON oIcon ;
BRUSH oBrush TRANSPARENT
oDlg:
lHelpIcon := .F.
/*logotipo del programa*/ REDEFINE BITMAP ;
ID 101 OF oDlg ;
NAME "xbl_logo" ;
ADJUST /*redefinicion de folder con 2 paginas*/ REDEFINE FOLDER oFolder
ID 102 OF oDlg ;
PROMPT "Arqui&var",
"Res&taurar",
"A&juda" ;
DIALOGS "PageBackup",
"PageRestore",
"PageAbout" ;
BITMAPS "BUSCAR",
"RESTAURAR",
"BTN_AJUDA" ;
TABCOLOR CLR_BLACK ;
FOCUSCOLOR CLR_VERMELHO ;
COLORS nRGB
( 127,
127,
127 ), nRGB
( 255,
215,
000 ) ;
ADJUST //-> CheckBox e Radios Assume a Cor do Dialogo - CONTROL.PRG METODO COLORS() //-> METHOD Colors( hDC ) CLASS TControl - Mesma cor do Fundo do 1§ Folder oFolder:
SetOption(1) oFolder:
aEnable :=
{ .T., .T., .T.
} //-> Inibe as Orelhas(Abas) oFolder:
Show() oFolder:
lWin95Look := .F.
//-> Modifica o Estilo da Orelha. //-> Cores no Folder - Colores en los Folders oFolder:
aDialogs[1]:
bPainted :=
{ || FillWnd
( oFolder:
aDialogs[1], ;
nRGB
( 255,
215,
0 ) ) } oFolder:
aDialogs[2]:
bPainted :=
{ || FillWnd
( oFolder:
aDialogs[2], ;
nRGB
( 255,
130,
170 ) ) } oFolder:
aDialogs[3]:
bPainted :=
{ || FillWnd
( oFolder:
aDialogs[3], ;
nRGB
( 255,
255,
200 ) ) } //--- Melhoria visual nos say's For IDCor=
401 TO 401 REDEFINE SENSITIVE
SAY ID iDcor ;
COLOR CLR_HRED ;
OF oFolder:
aDialogs[ 1 ] ;
UPDATE Next IDCor
// By Ednaldo Rolim - Yes! //--- Melhoria visual nos say's For IDCor=
402 TO 402 REDEFINE SENSITIVE
SAY ID iDcor ;
COLOR CLR_HCYAN ;
OF oFolder:
aDialogs[ 1 ] ;
UPDATE Next IDCor
// By Ednaldo Rolim - Yes! For IDCor=
401 TO 401 REDEFINE SENSITIVE
SAY ID iDcor ;
COLOR CLR_WHITE ;
OF oFolder:
aDialogs[ 2 ] ;
UPDATE Next IDCor
// By Ednaldo Rolim - Yes! For IDCor=
402 TO 402 REDEFINE SENSITIVE
SAY ID iDcor ;
COLOR CLR_HCYAN ;
OF oFolder:
aDialogs[ 2 ] ;
UPDATE Next IDCor
// By Ednaldo Rolim - Yes! For IDCor=
401 TO 413 REDEFINE SENSITIVE
SAY ID iDcor ;
COLOR CLR_BLACK ;
OF oFolder:
aDialogs[ 3 ] ;
UPDATE Next IDCor
// By Ednaldo Rolim - Yes! REDEFINE DYNAMIC
SAY oSayBtn01
ID 801 OF oFolder:
aDialogs[ 1 ] ;
PROMPT ( OemToAnsi
( " Click no BotÆo Abaixo" +;
"(Cƒmera) Para Escolher a Pasta(Diret¢rio)"+;
" de Origem Onde EstÆo as Informa‡äes " +;
"Para Arquivar em Disqute, PenDrive, Etc. "));
CENTERED HORIZONTAL SCROLL SPEED
53 WRAP ;
COLORS nRGB
( 000,
000,
000 ), nRGB
( 255,
215,
000 ) ;
FONT oFnt
REDEFINE DYNAMIC
SAY oSayBtn01
ID 802 OF oFolder:
aDialogs[ 1 ] ;
PROMPT ( OemToAnsi
( " Click no BotÆo Abaixo"+ ;
"(Cƒmera) Para Escolher a Pasta(Diret¢rio)"+;
" de Destino Onde FicarÆo as Informa‡äes " +;
"Arquivadas no Perif‚rico Escolhido. " +;
"CDRW->(NERO), Disquetes, PenDrive. " ) ) ;
CENTERED HORIZONTAL SCROLL SPEED
53 WRAP ;
COLORS nRGB
( 000,
000,
000 ), nRGB
( 255,
215,
000 ) ;
FONT oFnt
/*redefinicion de controles de pagina #1*/ REDEFINE GET oFolderSourceZip ;
VAR cFolderSourceZip ;
ID 101 OF PAGE1 ;
READONLY ;
COLORS CLR_VERMELHO, CLR_AMARELO
//-> BotÆo da Busca do Diret¢rio de Origem /* //-> GERANDO DE BCLRGRAD - TROQUEI BTNBMP POR BUTTONBMP
// REDEFINE BTNBMP oGetFolderSourceZip ID 102 ;
// RESOURCE "BUSCAR" OF PAGE1 UPDATE ;
// ACTION ( GetDirToZip( oBrowseZip ) )
*/ REDEFINE BUTTONBMP oGetFolderSourceZip
ID 102 OF PAGE1
UPDATE ;
BITMAP
"BUSCAR" ;
ACTION ( GetDirToZip
( oBrowseZip
) ) oGetFolderSourceZip:
cToolTip := OemToAnsi
( "Selecionar a Origem " + ;
"(Diret¢rio) da C¢pia" ) REDEFINE BUTTON oRadMenu
VAR nOpcaoRadio
ID 201 ;
OF oFolder:
aDialogs[ 1 ] ;
ACTION ( MOSTRA_HELP
( oFolder
) ) oRadMenu:
cToolTip := OemToAnsi
( "Pequeno Help Para o Usu rio" ) REDEFINE CHECKBOX oIncludeSubFolder
VAR lIncludeSubFolder ;
COLORS nRgb
( 250,
0 ,
0 ), ;
nRgb
( 72,
180,
215 ) ;
ID 103 OF PAGE1 ;
ON CHANGE GetFilesToZip
( cFolderSourceZip, oBrowseZip
) oIncludeSubFolder:
cToolTip := OemToAnsi
( "InclusÆo das Sub Pastas " + ;
"do Diret¢rio da C¢pia " ) REDEFINE BROWSE oBrowseZip ;
ID 104 OF PAGE1
FONT oFont ;
COLOR CLR_BLACK, CLR_YELLOW01
oBrowseZip:
SetArray( acFilesToZip
) ADD COLUMN
TO oBrowseZip ARRAY ELEMENT
1 ;
TITLE "Nome do Arquivo" SIZE 140 ;
FOOTER
{ || TRANSFORM
( nTotalFilesToZip,
"99,999 Arquivos" ) } ADD COLUMN
TO oBrowseZip ARRAY ELEMENT
2 ;
TITLE "Tamanho" ;
SIZE 100 ;
PICTURE "9,999,999.99 Kb" ;
FOOTER
{ || transform
( nSizeFilesToZip,
"9,999,999.99 Kb" ) } ;
ALIGN DT_RIGHT
ADD COLUMN
TO oBrowseZip ARRAY ELEMENT
3 ;
TITLE "Data" SIZE 70 ;
ALIGN DT_CENTER
ADD COLUMN
TO oBrowseZip ARRAY ELEMENT
4 ;
TITLE "Path(Caminho)" SIZE 180 /*propiedades de objeto browse*/ WITH OBJECT oBrowseZip
:
nFreeze :=
1 :
lNoVScroll := .F.
:
nHeightHead :=
18 :
nHeightCell :=
18 :
nHeightFoot :=
18 :
SetColor( { CLR_HEADF, CLR_FOOTF
},
{ {|| CLR_BLUE
},
{|| CLR_RED
} } ) END WITH
REDEFINE CHECKBOX oZipToFloppy ;
VAR lZipToFloppy ;
COLORS nRgb
( 250,
0 ,
0 ), ;
nRgb
( 72,
180,
215 ) ;
ID 105 OF PAGE1 ;
ON CHANGE ( cFolderTargetZip :=
"", oFolderTargetZip:
Refresh() ) oZipToFloppy:
cToolTip := OemToAnsi
( "Escolha se Quer a C¢pia em Disquetes" ) REDEFINE GET oFolderTargetZip ;
VAR cFolderTargetZip ;
ID 106 OF PAGE1 ;
READONLY ;
COLORS CLR_VERMELHO, CLR_AMARELO
/*
//-> Botao Para Selecior a Pasta de Origem, Onde Estao os Arquivos
REDEFINE BTNBMP oGetFolderTargetZip ID 107 ;
RESOURCE "BUSCAR" OF PAGE1 UPDATE ;
ACTION ( SetFileZip() )
*/ //-> PROBLEMAS COM BCLRGRAD REDEFINE BUTTONBMP oGetFolderTargetZip
ID 107 OF PAGE1
UPDATE ;
BITMAP
"BUSCAR" ;
ACTION ( SetFileZip
() ) oGetFolderTargetZip:
cToolTip := OemToAnsi
( "Selecionar o Destino " + ;
"(Diret¢rio) dos " + ;
"Arquivos Para Copiar" ) oFilesCountZip := TProgress
():
Redefine( 108, PAGE1
) REDEFINE BUTTON oDoCompress ;
ID 109 OF PAGE1 ;
ACTION ( DOMAKEZIP
( oFolder, oBrowseZip
) ) oDoCompress:
cToolTip :=
( OemToAnsi
( "Gravar os Arquivos no " + ;
"Diret¢rio(Pasta) de Destino" ) ) /*redefinicion de controles de pagina #2*/ REDEFINE GET oSourceUnZip ;
VAR cSourceUnZip ;
ID 101 OF PAGE2 ;
READONLY ;
COLORS CLR_VERMELHO, CLR_AMARELO
/*
//-> Botao da Pasta de Destino Para Onde Vai o BACKUP - Copia
REDEFINE BTNBMP oGetSourceUnZip ID 102 ;
RESOURCE "BUSCAR" OF PAGE2 UPDATE ;
ACTION ( GetFileToUnZip( oBrowseUnZip ) )
*/ REDEFINE BUTTONBMP oGetSourceUnZip
ID 102 OF PAGE2
UPDATE ;
BITMAP
"BUSCAR" ;
ACTION ( GetFileToUnZip
( oBrowseUnZip
) ) oGetSourceUnZip:
cToolTip := OemToAnsi
( "Selecionar a Origem(Diret¢rio) "+;
"Para Onde Vai o BACKUP(Destino)" ) REDEFINE BROWSE oBrowseUnZip ;
ID 103 OF PAGE2
FONT oFont ;
COLOR CLR_BLACK, CLR_YELLOW01
oBrowseUnZip:
SetArray( acFilesToUnZip
) ADD COLUMN
TO oBrowseUnZip ARRAY ELEMENT
1 ;
TITLE "Nome" SIZE 140 ;
FOOTER
{ || transform
( nTotalFilesToUnZip,
"99,999 Arquivos" ) } ADD COLUMN
TO oBrowseUnZip ARRAY ELEMENT
2 ;
TITLE "Tamanho Normal" ;
SIZE 100 ;
PICTURE "9,999,999.99 Kb" ;
FOOTER
{ || transform
( nSizeFilesToUnZip,
"9,999,999.99 Kb" ) } ;
ALIGN DT_RIGHT
ADD COLUMN
TO oBrowseUnZip ARRAY ELEMENT
3 ;
TITLE "Tamanho Comp." ;
SIZE 100 ;
PICTURE "9,999,999.99 Kb" ;
FOOTER
{ || transform
( nSizeFilesToUnZipC,
"9,999,999.99 Kb" ) } ;
ALIGN DT_RIGHT
ADD COLUMN
TO oBrowseUnZip ARRAY ELEMENT
4 ;
TITLE "Data" SIZE 70 ;
ALIGN DT_CENTER
ADD COLUMN
TO oBrowseUnZip ARRAY ELEMENT
5 ;
TITLE "Path" SIZE 180 /*propiedades de objeto browse*/ WITH OBJECT oBrowseUnZip
:
nFreeze :=
1 :
lNoVScroll := .F.
:
nHeightHead :=
18 :
nHeightCell :=
18 :
nHeightFoot :=
18 :
SetColor( { CLR_HEADF, CLR_FOOTF
},
{ {|| CLR_BLUE
},
{|| CLR_RED
} } ) END WITH
REDEFINE CHECKBOX oUnZipWithPath ;
VAR lUnZipWithPath ;
COLORS nRgb
( 250,
0 ,
0 ), ;
nRgb
( 72,
180,
215 ) ;
ID 104 OF PAGE2
oUnZipWithPath:
cToolTip := OemToAnsi
( "Escolha se Quer Restaurar a "+ ;
"C¢pia nos Diret¢rios de Origem "+ ;
"Informe o Diret¢rio de Origem. " ) REDEFINE GET oFolderTargetUnZip ;
VAR cFolderTargetUnZip ;
ID 105 OF PAGE2 ;
READONLY ;
COLORS CLR_VERMELHO, CLR_AMARELO
/* //-> PROBELMAS COM BCLRGRAD
//-> Botao Para Selecionar o Destino da Pasta do RESTORE
REDEFINE BTNBMP oGetFolderTargetUnZip ID 106 ;
RESOURCE "BUSCAR" OF PAGE2 UPDATE ;
ACTION ( SetFolderUnZip() )
*/ REDEFINE BUTTONBMP oGetFolderTargetUnZip
ID 106 OF PAGE2
UPDATE ;
BITMAP
"BUSCAR" ;
ACTION ( SetFolderUnZip
() ) oGetFolderTargetUnZip:
cToolTip :=
"Selecionar o Destino(Pasta) Onde " + ;
"Vai Ser Restaurado o BACKUP" oFilesCountUnZip := TProgress
():
Redefine( 107, PAGE2
) REDEFINE BUTTON oDoUnCompress ;
ID 108 OF PAGE2 ;
ACTION ( DOMAKEUNZIP
( oFolder, oBrowseZip
) ) oDoUnCompress:
cToolTip :=
( OemToAnsi
( "Restaura‡Æo dos Arquivos " + ;
"de Seguran‡a no " + ;
"Diret¢rio(Pasta) de Destino" ) ) /*redefinicion de controles de pagina #3*/ //REDEFINE SAY ID 101 OF PAGE3 FONT oFontT COLOR CLR_BLUE REDEFINE SAY ID 101 OF PAGE3
FONT oFontT
COLOR CLR_BLUE ;
PROMPT OemToAnsi
( "Sistema - " +
( XVERSAO
) ) + ;
" * " + ALLTRIM
( STR
( PANY
) ) +
" * " + ;
" - Backup " REDEFINE SAY ID 102 OF PAGE3
FONT oFontT
COLOR CLR_BLUE
REDEFINE SAY ID 103 OF PAGE3
FONT oFontT
COLOR CLR_BLUE
REDEFINE SAY ID 104 OF PAGE3
FONT oFontT
COLOR CLR_HGREEN ;
PROMPT ALLTRIM
( XNOMEEMP
) REDEFINE SAY ID 105 OF PAGE3
FONT oFontT
COLOR CLR_BLUE
REDEFINE SAY ID 106 OF PAGE3
FONT oFontT
COLOR CLR_HRED
/*boton de cierre de dialogo*/ REDEFINE BUTTON oClose
ID 103 OF oDlg ;
ACTION ( oDlg:
End() ) CANCEL
oClose:
cToolTip :=
( OemToAnsi
( "Saida - Exit - Cancelar" ) ) SET
FONT OF oClose
TO oFnt
SET
FONT OF oDoCompress
TO oFnt
SET
FONT OF oDoUnCompress
TO oFnt
SET
FONT OF oRadMenu
TO oFnt
/*activacion de dialogo*/ ACTIVATE DIALOG oDlg
CENTERED /*eilminacion de font usadas*/ oBrowseZip:
Close() oBrowseUnZip:
Close() oFont:
End() oFnt:
End() oFontT:
End() oBrush:
End() Release All
RETURN NIL //-> Fin - The End - Fim - Finaliza BackupSTATIC FUNCTION MOSTRA_HELP
( oFolder
) LOCAL oDlg, oSay, oSaida, IDCor, oFont, oBrush
//-> Dialogo DEFINE BRUSH oBrush FILE
"COMPAR.BMP" DEFINE FONT oFont
NAME "Times New Roman" SIZE 0,
-14 BOLD
DEFINE DIALOG oDlg
RESOURCE "DLG_XBLITE_HELP" ;
BRUSH oBrush TRANSPARENT
oDlg:
lHelpIcon := .F.
For IDCor=
401 TO 405 REDEFINE SAY oSay
ID iDcor ;
COLOR CLR_BLACK, CLR_AMARELO ;
OF oDlg ;
UPDATE BOX SHADED ;
FONT oFont
Next IDCor
// By Ednaldo Rolim - Yes! REDEFINE BUTTON oSaida
ID 301 OF oDlg ;
ACTION( oDlg:
End() ) CANCEL
oSaida:
cToolTip :=
( OemToAnsi
( "Saida - Exit - Cancelar" ) ) SET
FONT OF oDlg
TO oFont
ACTIVATE DIALOG oDlg
CENTERED oFont:
End() oBrush:
End() oFolder:
SetOption(3) oFolder:
SetFocus()RETURN NILFUNCTION GetDirToZip
( oBrowseZip
) LOCAL cDir :=
"" LOCAL cFiles
/*solicita directorio origen de ficheros a respaldas*/ cDir := cGetDir
( "Selecione a Pasta a Ser Arquivada" ) SndPlaySound
( "Init.Wav" ) /*si se selecciono un directorio*/ IF !EMPTY
( cDir
) /*obtiene los ficheros a respaldar*/ GetFilesToZip
( cDir, oBrowseZip
) /*actualiza nombre de directorio fuente*/ cFolderSourceZip := cDir
oFolderSourceZip:
Refresh() ELSE SndPlaySound
( "Erro.Wav" ) ENDIF //-> Modified IF !EMPTY
( cDir
) SndPlaySound
( "Pronto.Wav" ) ENDIFRETURN NILFUNCTION GetFilesToZip
( cDir, oBrowseZip
) LOCAL aFile
LOCAL aFiles
LOCAL nFiles
/*verifica si se paso el nombre de directorio fuente*/ IF EMPTY
( cDir
) SndPlaySound
( "Erro.Wav" ) RETURN NIL ENDIF SndPlaySound
( "Init.Wav" ) //-> verifica si se procesaran los subdirectorios, y se obtiene un //-> arreglo on los ficheros a respaldar IF !lIncludeSubFolder
aFiles := Directory
( cDir +
"\*.*",,, XBL_FILEWITHPATH
) ELSE aFiles := Directoryrecurse
( cDir +
"\*.*",, XBL_FILEWITHPATH
) ENDIF /*si se obtivo algun fichero a respaldar*/ nFiles := len
( aFiles
) IF nFiles >
0 /*asigna el numero de ficheros a respaldar a la var del control meter*/ nTotalFilesToZip := nFiles
nFilesZipped :=
0 //-> inicializa arreglo de ficheros y procesa cada uno, acumulando //-> su tamaño(Tamanho) acFilesToZip :=
{} FOR EACH aFile IN aFiles
AADD
( acFilesToZip,
{ cFileName
( aFile
[ F_NAME
] ) , ;
aFile
[ F_SIZE
] /
1024 , ;
aFile
[ F_DATE
] , ;
cFilePath
( aFile
[ F_NAME
] ) }) /*acumula total de tamaños de archivos*/ nSizeFilesToZip += aFile
[ F_SIZE
] NEXT /*se obtiene la suma de los tamaños de ficheros a respaldar en KB*/ nSizeFilesToZip /=
1024 ELSE //-> por defecto un elemento en el arreglo para que no de problemas //-> el browse acFilesToZip :=
{ {"",
0, CTOD
(""),
"" } } nSizeFilesToZip :=
0 nTotalFilesToZip :=
0 ENDIF /*pasa el arreglo al browse*/ oBrowseZip:
SetArray( acFilesToZip
) oBrowseZip:
Refresh( TRUE ) oBrowseZip:
SetFocus() /*limpia arreglo y llama al colecor de basura de xharbour*/ aFiles :=
Nil hb_gcAll
() SndPlaySound
( "Pronto.Wav" )RETURN NILFUNCTION SetFileZip
() LOCAL cFile :=
"" SndPlaySound
( "Init.Wav" ) /*si fichero de respaldo estara en disco duro y no en floppy*/ IF !lZipToFloppy
/*solicita el nombre con la unidad destino incluido*/ cFile := cGetFile
( "ZipFile | *.zip",
"Nome do Arquivo na Unidade de Disco Fixo ",
1,
"c:\", XBL_SAVEFILE, XBL_WITHLONGNAME )
cFile := rtrim( cFile )
/*agrega la extencion ZIP de ser necesario*/
IF EMPTY( cFileExt( cFile ) )
cFile += ".zip
"
ENDIF
ELSE
/*solo pide nombre de archivo*/
cFile := space(25)
lOk := BoxGet( OemToAnsi("Informa‡Æo
"), ;
"Nome
do Arquivo na Unidade de Disquete <A>
", @cFile )
/*agrega al nombre de fichero de respaldo la unidad*/
IF lOk
/*TODO: establecer posible malas entradas por parte del usuario*/
/*agrega unidad de diskette A al nombre de fichero dado, y de ser necesario*/
cFile := "A:\
" + rtrim( cFile )
/*agrega la extencion ZIP de ser necesario*/
IF EMPTY( cFileExt( cFile ) )
cFile += ".zip
"
ENDIF
ENDIF
ENDIF
/*actualiza nombre de directorio fuente*/
cFolderTargetZip := cFile
oFolderTargetZip:Refresh()
RETURN NIL
//-> Gera‡Æo(Geraci¢n) da(de la) C¢pia de Seguran‡a(seguridad)
FUNCTION DoMakeZip( oFolder, oBrowseZip )
LOCAL lOkZip := FALSE
LOCAL acFiles := {}
LOCAL bOnZipFile := { |cFile, nFile| UpdateMeterZip( nFile) }
LOCAL bOnSetDiskZip := { |nDisk| MsgInfo( "Por Favor Insira o Disco #
" + ;
STR( nDisk,,, XBL_TRIM ) ) }
SndPlaySound( "Init.Wav
" )
//-> verifica que existan ficheros a respaldar y el nombre del fichero
//-> de respaldo se haya definido
IF EMPTY( cFolderSourceZip ) .OR. ;
EMPTY( cFolderTargetZip ) .OR. ;
( Len( acFilesToZip ) = 1 .AND. ;
acFilesToZip[1,1] = "" )
SndPlaySound(".\Erro.wav
" )
BEEP(4)
MsgStop( OemToAnsi( "Vocˆ Deve Definir um Nome Para o Arquivo
" + ;
"de Seguran‡a...
" ), OemToAnsi( "Aten‡Æo!!
" ) )
RETURN NIL
ENDIF
/*se extra solo el nombre de los ficheros a respaldar incuyendo su path*/
AEVAL( acFilesToZip, { | aFile | AADD( acFiles, aFile[ XBL_FILEPATH ] + ;
aFile[ XBL_FILENAME ] ) } )
/*establece limites de valores de control meter*/
oFilesCountZip:SetRange( 0, nTotalFilesToZip )
oFilesCountZip:SetPos( 0 )
/*desactiva botones*/
oGetFolderSourceZip:Disable()
oGetFolderTargetZip:Disable()
oDoCompress:Disable()
oClose:Disable()
oFolder:aEnable := { .F., .F., .F. } //-> Inibe as Orelhas(Abas) Modified
SndPlaySound(".\
Init.Wav
", 0 )
/*realiza la compresion de los ficheros*/
IF lZipToFloppy
hb_SetDiskZip( bOnSetDiskZip )
lOkZip := hb_ZipFileByPKSpan( cFolderTargetZip , ;
acFiles , ;
HBL_ZIPLEVEL , ;
bOnZipFile , ;
XBL_ZIPOVERWRITE , ;
NIL , ;
XBL_ZIPWITHPATH )
ELSE
hb_SetDiskZip( {|| NIL } )
lOkZip := hb_ZipFile( cFolderTargetZip , ;
acFiles , ;
HBL_ZIPLEVEL , ;
bOnZipFile , ;
XBL_ZIPOVERWRITE , ;
NIL , ;
XBL_ZIPWITHPATH )
ENDIF
/*verifica proceso e informa al usuario*/
IF lOkZip
SndPlaySound(".\Pronto.Wav
" )
BEEP(4)
MsgInfo( OemToAnsi( "A Grava‡Æo
do Arquivo de Seguran‡a Foi
" + ;
"Realizado Com Sucesso...
" ), ;
OemToAnsi( "Grava‡Æo
do Arquivo
" ) )
ELSE
SndPlaySound(".\Erro.wav
" )
BEEP(4)
MsgStop( OemToAnsi( "NÆo Foi Poss¡vel Gravar o Arquivo de
" + ;
"Seguran‡a...
" ), ;
OemToAnsi( "Grava‡Æo dos Arquivos
" ) )
ENDIF
/*activa botones*/
oGetFolderSourceZip:Enable()
oGetFolderTargetZip:Enable()
oDoCompress:Enable()
oClose:Enable()
oFolder:aEnable := { .T., .T., .T. } //-> Inibe as Orelhas(Abas)
oBrowseZip:Refresh()
oBrowseZip:SetFocus()
/*reinicia contador de meter*/
oFilesCountZip:SetPos( 0 )
oFilesCountZip:Refresh()
/*limpia arreglo y llama al colecor de basura de xharbour*/
acFiles := NIL
hb_gcAll()
RETURN NIL
FUNCTION UpdateMeterZip( nFile )
/*refresca sistema cada 10 ficheros procesados*/
IF nFile % 10 = 0
SysRefresh()
ENDIF
oFilesCountZip:SetPos( nFile )
CursorWait() //-> Modified
RETURN NIL
FUNCTION GetFileToUnZip( oBrowseUnZip )
LOCAL cFile
/*pide al usuario que seleccione el fichero de respaldo*/
cFile := cGetFile( "ZipFile | *.zip
", OemToAnsi("Nome
do arquivo de Seguran‡a a ser Arquivado...
"), 1, "c:\
", XBL_OPENFILE, XBL_WITHLONGNAME )
SndPlaySound( "Init.Wav
" )
/*verifica si realmente se paso el fichero*/
IF !EMPTY( cFile )
/*muestra el nombre del fichero en el dialogo*/
cSourceUnZip := cFile
oSourceUnZip:Refresh()
/*extrae informacion del fuchero de respaldo*/
GetFilesFromZip( cFile, oBrowseUnZip )
ENDIF
RETURN NIL
FUNCTION GetFilesFromZip( cFile, oBrowseUnZip )
LOCAL aFiles := hb_GetFilesInZip( cFile, XBL_GETFULL_INFOZIP )
LOCAL aFile
SndPlaySound( "Init.Wav
" )
//-> vereficia el valor retornado por la funcion, si es arreglo
//-> y si tiene elementos
IF ValType( aFiles ) = "A
" .AND. Len( aFiles ) > 0
/*inicializa arreglo en cero*/
acFilesToUnZip := {}
nTotalFilesToUnZip := len( aFiles )
/*procesa cada fichero extrayendo la informacion que interesa*/
FOR EACH aFile IN aFiles
AADD( acFilesToUnZip, { cFileName( aFile[ XBL_IZNAME ] ) , ;
aFile[ XBL_IZSIZEN ] / 1024 , ;
aFile[ XBL_IZSIZEC ] / 1024 , ;
aFile[ XBL_IZDATE ] , ;
cFilePath( aFile[ XBL_IZNAME ] ) } )
/*acumula totales de tamaños de archivos - normal y comprimido*/
nSizeFilesToUnZip += aFile[ XBL_IZSIZEN ]
nSizeFilesToUnZipC += aFile[ XBL_IZSIZEC ]
NEXT
/*obtiene los totales en Kb*/
nSizeFilesToUnZip /= 1024
nSizeFilesToUnZipC /= 1024
ENDIF
/*pasa el arreglo al browse*/
oBrowseUnZip:SetArray( acFilesToUnZip )
oBrowseUnZip:Refresh( TRUE )
oBrowseUnZip:SetFocus()
/*limpia arreglo y llama al colecor de basura de xharbour*/
aFiles := nil
hb_gcAll()
RETURN NIL
FUNCTION SetFolderUnZip()
LOCAL cDir := ""
/*pide al usuario de el directorio destino de los datos*/
cDir := cGetDir( OemToAnsi("Selecione a Pasta de Origem dos Arquivos
" + ;
"de Seguran‡a
") )
SndPlaySound( "Init.Wav
" )
/*verifica si se selecciono un directorio*/
IF EMPTY( cDir )
SndPlaySound(".\Erro.wav
" )
BEEP(4)
MsgStop( OemToAnsi( "Vocˆ Deve Definir o
Local de Destino das
" + ;
"Informa‡äes...
"), OemToAnsi( "Aten‡Æo!!
" ) )
RETURN NIL
ELSE
/*muestra el nombre del directorio seleccionado*/
cFolderTargetUnZip := cDir
oFolderTargetUnZip:Refresh()
ENDIF
RETURN NIL
FUNCTION DoMakeUnZip( oFolder )
LOCAL lOkUnZip := FALSE
LOCAL acFiles := {}
LOCAL bOnUnZipFile := { |cFile, nPos| UpdateMeterUnZip( cFile, nPos ) }
LOCAL bOnSetDiskZip := { |nDisk| MsgInfo( "Por Favor Insira o Disco #
" + ;
STR( nDisk,,, XBL_TRIM ) ) }
SndPlaySound( "Init.Wav
" )
//-> verifica que existan ficheros a respaldar y el nombre del fichero
//-> de respaldo se haya definido
IF EMPTY( cSourceUnZip ) .OR. ;
EMPTY( cFolderTargetUnZip ) .OR. ;
( Len( acFilesToUnZip ) = 1 .AND. ;
acFilesToUnZip[1,1] = "" )
SndPlaySound(".\Erro.wav
" )
BEEP(4)
MsgStop( OemToAnsi( "Vocˆ Deve Definir o
Local de Destino das
" + ;
"Informa‡äes...
"), OemToAnsi( "Aten‡Æo!!
" ) )
RETURN NIL
ENDIF
/*se extra solo el nombre de los ficheros a respaldar incuyendo su path*/
AEVAL( acFilesToUnZip, { | aFile | AADD( acFiles, aFile[ XBL_UZFILEPATH ] + aFile[ XBL_UZFILENAME ] ) } )
/*establece limites de valores de control meter*/
oFilesCountUnZip:SetRange( 0, nTotalFilesToUnZip )
oFilesCountUnZip:SetPos( 0 )
/*desactiva botones*/
oGetSourceUnZip:Disable()
oGetFolderTargetUnZip:Disable()
oDoUnCompress:Disable()
oClose:Disable()
oFolder:aEnable := { .F., .F., .F. } //-> Inibe as Orelhas(Abas) Modified
/*realiza la compresion de los ficheros*/
hb_SetDiskZip( bOnSetDiskZip )
lOkUnZip := hb_UnZipFile( cSourceUnZip , ;
bOnUnZipFile , ;
lUnZipWithPath , ;
NIL , ;
cFolderTargetUnZip + "\
" )
/*verifica proceso e informa al usuario*/
IF lOkUnZip
SndPlaySound(".\Pronto.Wav
" )
BEEP(4)
MsgInfo( OemToAnsi( "A Restaura‡Æo
do Arquivo de Seguran‡a Foi
" + ;
"Realizada com Sucesso...
" ), ;
OemToAnsi("Restaura‡Æo dos Arquivos
" ) )
ELSE
SndPlaySound(".\Erro.wav
" )
BEEP(4)
MsgStop( OemToAnsi( "Erro... NÆo Foi Poss¡vel Recriar o Arquivo de
" +;
"Seguran‡a...
" ), ;
OemToAnsi( "Restaura‡Æo dos Arquivos
" ) )
ENDIF
/*activa botones*/
oGetSourceUnZip:Enable()
oGetFolderTargetUnZip:Enable()
oDoUnCompress:Enable()
oClose:Enable()
oFolder:aEnable := { .T., .T., .T. } //-> Inibe as Orelhas(Abas)
/*reinicia contador de meter*/
oFilesCountUnZip:SetPos( 0 )
oFilesCountUnZip:Refresh()
/*limpia arreglo y llama al colecor de basura de xharbour*/
acFiles := NIL
hb_gcAll()
RETURN NIL
FUNCTION UpdateMeterUnZip( cFile, nPos )
#ifdef BUG_IN_HBZIP
STATIC n := 0
IF n > nTotalFilesToUnZip
n := 0
ENDIF
++n
IF n % 10 = 0
SysRefresh()
ENDIF
oFilesCountUnZip:SetPos( n )
#Else
oFilesCountUnZip:SetPos( nPos )
#Endif
CursorWait()
RETURN NIL
STATIC Function FillWnd( oWnd, nColor, oBmp, nSaltos )
Local hWnd := oWnd:hWnd
Local aRect := GetClientRect( hWnd )
Local oBrush, n
Local nTop := aRect[ 1 ]
Local nBottom := aRect[ 3 ]
Local nSteps
Local nBlue, nRed, nGreen
Local lPuro := .F. // LoadIniPure() // Si es puro no hay degradado
// Color de degradado
DEFAULT nColor := 123123128 // LoadIni("MADRE
","DegraDialog
")
IF !EMPTY( oBmp )
IF UPPER(oWnd:ClassName()) == 'TDIALOG' // Si es un Dialogo
oWnd:GetDC()
PalBmpDraw( oWnd:hDC, 0, 0, oBmp:hBitmap )
oWnd:ReleaseDC()
ENDIF
WndCenter( oBmp:hWnd, oWnd:hWnd )
ENDIF
If lPuro == .T.
oWnd:SetColor( 0, nColor )
oWnd:Refresh()
Else
lPuro := .F.
Endif
If !lPuro // El color no es puro, entonces degradado
nBlue := nRGBBlue( nColor )
nRed := nRGBRed( nColor )
nGreen := nRGBGreen( nColor)
DEFAULT nSaltos := 3
nSteps := ( aRect[ 3 ] - aRect[ 1 ] ) / nSaltos
oWnd:GetDC()
aRect[ 3 ] = 0
For N = 1 to nSteps
aRect[ 3 ] += nSaltos
DEFINE BRUSH oBrush COLOR RGB( nRed, nGreen, nBlue )
FillRect( oWnd:hDC, aRect, oBrush:hBrush )
RELEASE BRUSH oBrush
aRect[ 1 ] += nSaltos
nBlue -= 1
nRed -= 1
nGreen -= 1
If nBlue < 0 ; nBlue += 1 ; Endif
If nRed < 0 ; nRed += 1 ; Endif
If nGreen < 0 ; nGreen += 1 ; Endif
Next N
oWnd:ReleaseDC()
Endif
Return Nil
STATIC FUNCTION Beep(SOM)
SET CONSOLE ON
IF SOM=1 &&Sinal de Abandono
TONE(87.3,2)
TONE(40,7)
ELSEIF SOM=2 &&Abertura
TONE(1300,8)
TONE(1800,5)
ELSEIF SOM=3 &&Erro
TONE(3000,1) ; TONE(2000,1) ; TONE(1000,1)
ELSEIF SOM=4 &&Alerta
TONE(2500,9)
ELSEIF SOM=5 &&Confirma‡ao-I
TONE(5000.1)
TONE(5000.1)
ENDIF
SET CONSOLE OFF
Return Nil
/*
* SPN.PRG
*
* cShortName() - FilePath Long to Short (GetShortPathNameA())
*
* Soporte a Funciones del Api de Windows
*
* Andrade A. Daniel - 2002
* Rosario, Argentina
*
* Libre Distribución
*/
/*
* cShortName()
*/
FUNCTION cShortName( cLong )
Local cShort := Space(164) + Chr(0)
Local nBuffer := 164
Local nLen
nLen := GetSPName( cLong, @cShort, nBuffer )
cShort := Left( cShort, nLen )
RETURN( cShort )
// Windows Api
DLL32 STATIC FUNCTION GetSPName( lpszLongPath AS STRING, lpszShortPath AS STRING, lBuffer AS LONG ) ;
AS LONG PASCAL FROM "GetShortPathNameA
" LIB "kernel32
"
//-> END OF PROGRAM - FIM DO PROGRAMA
