Página 2 de 3
Dúvida HB_Unzipfile()
Enviado: 01 Dez 2017 14:30
por 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.
Dúvida HB_Unzipfile()
Enviado: 01 Dez 2017 14:48
por 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.
Dúvida HB_Unzipfile()
Enviado: 01 Dez 2017 15:02
por Daniel
para funcionar o exemplo faltou comando
Código: Selecionar todos
aFiles:= hb_GetFilesInZip( "arq.zip" )
hb_unzipfile("arq.zip",,.T.,,,aFiles)
Dúvida HB_Unzipfile()
Enviado: 01 Dez 2017 16:06
por 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...
Dúvida HB_Unzipfile()
Enviado: 01 Dez 2017 19:00
por 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.
Dúvida HB_Unzipfile()
Enviado: 01 Dez 2017 21:44
por 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 ...
Dúvida HB_Unzipfile()
Enviado: 01 Dez 2017 23:07
por 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.)
Dúvida HB_Unzipfile()
Enviado: 04 Dez 2017 09:06
por Softwhouse
Daniel, não funcionou.
Dúvida HB_Unzipfile()
Enviado: 04 Dez 2017 09:47
por 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\
Dúvida HB_Unzipfile()
Enviado: 04 Dez 2017 09:53
por 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.
Dúvida HB_Unzipfile()
Enviado: 04 Dez 2017 10:00
por 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.
Dúvida HB_Unzipfile()
Enviado: 04 Dez 2017 16:16
por Softwhouse
Daniel, qual a versão do Harbour que vc usa ?
Dúvida HB_Unzipfile()
Enviado: 04 Dez 2017 16:53
por Daniel
Testei com que vem com a Minigui extender harbour 3.2 com bcc 5.5
Dúvida HB_Unzipfile()
Enviado: 05 Dez 2017 09:57
por 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.
Dúvida HB_Unzipfile()
Enviado: 05 Dez 2017 12:17
por 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.