Dúvida HB_Unzipfile()

[Itamar M. Lins Jr.]

Ola!
E precisa de travar o path em "C:\" ? o PATH já não está armazenado no arquivo zipado ?
Está redundante a função. Não precisa desse getfilesinzip.

hb_UnzipFile( <cFile>, <bBlock>, <lWithPath>, <cPassword>, <cPath>,
<cFile> | <aFile>, <pFileProgress> ) → lCompress

Eu faria assim:
hb_unzipfile("arq.zip",,.T.,,,aFiles)

Saudações,
Itamar M. Lins Jr.

[Softwhouse]

Itamar, alterei e dessa forma aí mesmo que não funciona mais nada, não recupera mesmo que as pasatas não sejam excluídas.

[Daniel]

para funcionar o exemplo faltou comando

Código: Selecionar todos

aFiles:= hb_GetFilesInZip( "arq.zip" )
hb_unzipfile("arq.zip",,.T.,,,aFiles)

[Softwhouse]

Daniel, esse comando consta no prg. O problema está no Harbour 3.2, no Harbour 3.0 funciona perfeitamente, mas preciso de coisas que o Harbour 3.0 não tem. Resta saber como relatar isso aos desenvolvedores. Há uns dois anos atrás detectei um problema no MemoEdit, relatei aquí no fórum, permanece até hoje...

[Itamar M. Lins Jr.]

Ola!
Mas o PATH tem que constar dentro do arquivo ZIP.
Só testando isso... lógico que aFiles deve ter os arquivos a serem extraídos. Não sei a necessidade do PATH nele "afiles" já que temos os dois FLAGS para armazenar o PATH e outro na ora de extrair usar ou não o PATH que estaria dentro do próprio zip em questão.

Saudações,
Itamar M. Lins Jr.

[Softwhouse]

Itamar, tudo isso foi testado exaustivamente, antes de pedir ajuda ao fórum. O problema já foi detectado, está no Harbour. E de que forma podemos resolver isso? Vc tem condições de relatar? Se sim, aproveita e coloca o MemoEdit() junto ...

[Daniel]

testa se funciona

Código: Selecionar todos

Function Backup(cOperacao)
	Local cColor, cTela, aDir, aRay, nChoice, aExtract, cPasta
	Local cOrigem:='C:\Estoques\Dados\'
	Local cDestino:='C:\Backups\Estoques\'
	Local cArqZip:=SubStr(Dtos(Date()),3,6) + StrTran(Time(),':','')

	HB_DirBuild('C:\Backups\Estoques')

	If cOperacao=='Backup'
	   If Confirma('Confirma o in¡cio do backup?')==1
	      If LastKey()==K_ESC
	         Return(.T.)
	      Else
	         MensagemRun('Aguarde, efetuando backup...','Begin')
	         aRay:={}

	         aDir:=Directory(cOrigem + '*.*', 'D')

	         cPasta:=Left(cOrigem, Rat('\', cOrigem))

	         For i = 1 To Len(aDir)
               AEVAL( Directory(cPasta + aDir[i,1] +'\*.DBF'), {|afile| AADD(aRay, cPasta + aDir[i,1] + '\' + afile[1])} )
	            AEVAL( Directory(cPasta + aDir[i,1] +'\*.CDX'), {|afile| AADD(aRay, cPasta + aDir[i,1] + '\' + afile[1])} )
	         Next

	         if ! HB_ZipFile(cDestino + cArqZip, aRay, 9,,,,.T.,.F.)
	             alert('Erro')
	             Return .f.
	         EndIf

	         MensagemRun('Backup conclu¡do!','End')
	      EndIf
	   EndIf

	ElseIf cOperacao=='Restore'
	   If Alert('AtençÆo !!!; NÆo prossiga com essa operaçÆo; sem o devido conhecimento.;Desejas Continuar ?',{'NÆo','Sim'})==2
	      cColor:=SetColor()
	      cTela:=SaveScreen(04,19,14,39)
	      SetColor('N/BG,W+/N')
	      aDir:=Directory(cDestino + '*.zip')
	      aRay:={}
	      For i = 1 To Len(aDir)
	          Aadd(aRay, aDir[i,1])
	      Next
	      Shade(04,19,13,38)
	      @ 04,20 Say '´ Escolha o zip Ã'
	      nChoice:=Achoice(06,21,11,36,aRay)
	      If nChoice <> 0
	         If Confirma('Confirma o in¡cio da restauraçÆo?')==1
	            If LastKey()==K_ESC
	               SetColor(cColor)
	               RestScreen(04,19,14,39,cTela)
	               Return(.T.)
	            Else
	               MensagemRun('Aguarde, restaurando o backup...','Begin')
	               If Hb_UnZipFile(cDestino + aDir[nChoice,1],,.T.,,'C:\')
	                  MensagemRun('RestauraÆo conclu¡da!','End')
	                  Alert('Acesse o sistema novamente...')
	                  Quit
	               EndIf

	            EndIf
	         EndIf
	      EndIf
	      SetColor(cColor)
	      RestScreen(04,19,14,39,cTela)
	   EndIf
	EndIf
	Return(.T.)

[Softwhouse]

Daniel, não funcionou.

[Daniel]

Fernando aqui funcionou correto cria e restaura
usei Harbour 3.2

você tem estas pasta na criação com os nome correto?
C:\Estoques\Dados\
C:\Backups\Estoques\

[Softwhouse]

Exato Daniel,

Na pasta C:\Estoques\Dados\ deve ser recriada a pasta common, 001 e 002, isso não acontece. Veja bem, eu excluo as pastas common, 001 e 002 e restauro o backup, as pastas não são recriadas. Só se tiver algum arquivo de banco travando isso. Mas no Harbour 3.0 funciona perfeito. Vou testar em outro computador então.

[Kapiaba]

Olá, use essa versão do Harbour com BCC7.0 ou superior e funciona perfeito. Abs.

Se usa MINGW, é esse:

http://forums.fivetechsupport.com/viewt ... 16&t=34611

ùltima versão para 32 bits e Borland é essa:

http://forums.fivetechsupport.com/viewt ... 16&t=33829

Abs.

[Softwhouse]

Daniel, qual a versão do Harbour que vc usa ?

[Daniel]

Testei com que vem com a Minigui extender harbour 3.2 com bcc 5.5

[Softwhouse]

Daniel, testei com o Harbour da Minigui e o BCC55, funcionou perfeitamente, inclusive não tem o BUG no Memoedit() que detectei há mais de ano. O negócio é abandonar esse Harbour Nightly. Valeu, obrigado.

[Itamar M. Lins Jr.]

Ola!

Baixei a versão nightly e o problema persiste

Qual é a URL, endereço da pagina ?

Saudações,
Itamar M. Lins Jr.