Gráfico durante zip

[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.

[Itamar M. Lins Jr.]

Olá!
Experimenta colocar -> {|| bGrafico}

Saudações,
Itamar M. Lins Jr.

[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.

[JoséQuintas]

Olhe só que esquisito.
A descrição é diferente do exemplo.
Isso está na documentação do Harbour.

[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 ) }  )

[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