Página 1 de 1
Gráfico durante zip
Enviado: 24 Out 2021 11:04
por JoséQuintas
Estou testando o gráfico durante o zip mas não está funcionando.
O zip aparece, mas a atualização do gráfico não.
O que há de errado?
Código: Selecionar todos
REQUEST HB_CODEPAGE_PTISO
PROCEDURE main()
LOCAL bGrafico := { | a, b | GrafTempo( a, b ) }
Set( _SET_CODEPAGE, "PTISO" )
SetMode(40,100)
CLS
GrafTempo( "zip" )
hb_ZipFile( "teste.zip", { "backup1.sql", "backup2.sql", "backup3.sql" }, , bGrafico )
Inkey(0)
RETURN
Nota: minha rotina recebe atual e total.
Gráfico durante zip
Enviado: 24 Out 2021 11:54
por Itamar M. Lins Jr.
Olá!
Experimenta colocar -> {|| bGrafico}
Saudações,
Itamar M. Lins Jr.
Gráfico durante zip
Enviado: 24 Out 2021 16:42
por JoséQuintas
Fiz outro teste, mais simples, não é nada do que parecia.
Os parâmetros são: nome do arquivo e contador.
Só serve pra uma lista de arquivos, e não para o tamanho.
Gráfico durante zip
Enviado: 24 Out 2021 16:45
por JoséQuintas
Olhe só que esquisito.
A descrição é diferente do exemplo.
Isso está na documentação do Harbour.
Gráfico durante zip
Enviado: 24 Out 2021 16:50
por JoséQuintas
No meu teste coloquei pra mostrar parâmetros.
Código: Selecionar todos
GrafTempo( "zip" )
hb_ZipFile( "teste.zip", { "backup1.sql", "backup2.sql", "backup3.sql" }, , { | a, b, c, d, e, f | Test( a, b, c, d, e, f ) } )
Gráfico durante zip
Enviado: 24 Out 2021 17:34
por JoséQuintas
Aproveitei pra testar outra coisa, que fiquei na dúvida.
Código: Selecionar todos
Pasta de d:\temp
24/10/2021 17:26 <DIR> .
24/10/2021 17:26 <DIR> ..
24/10/2021 10:44 1.000.000.118 backup1.sql
24/10/2021 10:46 1.000.003.574 backup2.sql
24/10/2021 10:47 293.467.356 backup3.sql
24/10/2021 10:44 1.000.000.118 backup4.sql
24/10/2021 10:44 1.000.000.118 backup5.sql
24/10/2021 10:44 1.000.000.118 backup6.sql
24/10/2021 10:44 1.000.000.118 backup7.sql
24/10/2021 10:44 1.000.000.118 backup8.sql
24/10/2021 10:44 1.000.000.118 backup9.sql
24/10/2021 17:25 574.464 test.exe
16/09/2021 18:47 60 test.hbp
28/08/2021 20:06 5.916 test.jpg
24/10/2021 17:25 404 test.prg
24/10/2021 17:28 743.412.024 teste.zip
14 arquivo(s) 9.037.464.624 bytes
Deixei meu gráfico no uso normal, fora do hb_zip, como precaução a esse limite.
Ok, zipar mais de 9GB em 32 bits.
O limite de 4GB existe, mas se refere a cada arquivo, e ao zip.
Código: Selecionar todos
PROCEDURE main()
LOCAL aFileList, aFile
SetMode(40,100)
CLS
aFileList := Directory( "*.sql" )
GrafTempo( "zip" )
FOR EACH aFile IN aFileList
hb_ZipFile( "teste.zip", aFile[ F_NAME ] )
GrafTempo( aFile:__EnumIndex, Len( aFileList ) )
NEXT
Inkey(0)
RETURN
o zip aberto pelo windows