Atualização Harbour 10-05-2024 Nova Função!!!

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Atualização Harbour 10-05-2024 Nova Função!!!

Mensagem por Itamar M. Lins Jr. »

Olá!
Nova função para mostrar o percentual do arquivo copiado!!!!
hb_vfCopyFile( <cFileSrc>, <cFileDst>, [<nBufSize>=65536], ;
[<lTimePreserve>=.t.], [<bCallBack>] ) --> <nResult>

Código: Selecionar todos

2024-05-09 23:23 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
  * include/hbapifs.h
  * src/rtl/fscopy.c
    + added new C function:
         HB_BOOL hb_fileCopyEx( const char * pszSource, const char * pszDest,
                                HB_SIZE nBufSize, HB_BOOL fTime,
                                PHB_ITEM pCallBack );
      Unlike hb_fileCopy() it is never redirected to remote server and copy
      operation is always done locally.
      pCallBack is codeblock or function symbol, it's executed at the
      beginning and then on each nBufSize bytes written and receives two
      parameters: nBytesWritten, nTotalSize.
      Warning: nTotalSize could be 0 when non regular files like pipes or
               sockets are copied.

  * src/rtl/vfile.c
    + added new PRG function:
         hb_vfCopyFile( <cFileSrc>, <cFileDst>, [<nBufSize>=65536], ;
                        [<lTimePreserve>=.t.], [<bCallBack>] ) --> <nResult>
      It's wrapper to hb_fileCopyEx() C function.
      For very big files setting <nBufSize> to greater value, i.e. 16777216
      may increase performance.
Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Atualização Harbour 10-05-2024 Nova Função!!!

Mensagem por Itamar M. Lins Jr. »

Olá!
Mais uma que não tem no 3.4 do Viktor, e assim o trabalho dele vai ficando para trás!

Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Avatar do usuário
rochinha
Administrador
Administrador
Mensagens: 4664
Registrado em: 18 Ago 2003 20:43
Localização: São Paulo - Brasil
Contato:

Atualização Harbour 10-05-2024 Nova Função!!!

Mensagem por rochinha »

Amiguinhos,

Itamar M Lins
Bota o Github dos dois aqui pra nóis. @braços.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para [url=mailto://fivolution@hotmail.com]fivolution@hotmail.com[/url]. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar do usuário
Itamar M. Lins Jr.
Administrador
Administrador
Mensagens: 7928
Registrado em: 30 Mai 2007 11:31
Localização: Ilheus Bahia
Curtiu: 1 vez

Atualização Harbour 10-05-2024 Nova Função!!!

Mensagem por Itamar M. Lins Jr. »

Olá!
Inclusive essa função foi corrigida.
E o Harbour do Viktor teve uma atualização na pasta CURL.

Harbour 3.2
https://github.com/harbour/core

Código: Selecionar todos

2024-05-13 02:39 UTC+0200 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
  * ChangeLog.txt
  * src/rtl/fscopy.c
    ! fixed typos, thanks to Grigory Filatov and Pete

  * include/harbour.hbx
  * src/harbour.def
    ! added hb_vfCopyFileEx() and hb_fileCopyEx()
Harbour 3.4
https://github.com/vszakats/hb

Código: Selecionar todos

itamar@itamar-desktop:~/dev/hb34$ git pull
remote: Enumerating objects: 759, done.
remote: Counting objects: 100% (759/759), done.
remote: Compressing objects: 100% (149/149), done.
remote: Total 742 (delta 599), reused 736 (delta 593), pack-reused 0
Receiving objects: 100% (742/742), 112.30 KiB | 1.22 MiB/s, done.
Resolving deltas: 100% (599/599), completed with 15 local objects.
From https://github.com/vszakats/hb
   81dc666..83173b8  main       -> origin/main
Updating 81dc666..83173b8
Fast-forward
 contrib/hbcurl/date.c             |   2 +-
 contrib/hbcurl/easy.c             | 938 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++---------------------------------
 contrib/hbcurl/escold.c           |   2 +-
 contrib/hbcurl/global.c           |   2 +-
 contrib/hbcurl/hbcurl.ch          | 336 +++++++++++++++++++++++++++++++++++++++++------
 contrib/hbcurl/hbcurl.hbc         |   4 +-
 contrib/hbcurl/hbcurl.hbp         |   5 +
 contrib/hbcurl/hbcurl.hbx         |   8 ++
 contrib/hbcurl/misc.prg           |   2 +-
 contrib/hbcurl/miscc.c            |   6 +-
 contrib/hbcurl/tests/email.prg    |  68 ++++------
 contrib/hbcurl/tests/ftp_uldl.prg |  85 +++++-------
 contrib/hbcurl/tests/url.prg      |  47 +++++++
 contrib/hbcurl/url.c              | 193 +++++++++++++++++++++++++++
 contrib/hbcurl/ver.c              |  80 ++++++++++--
 15 files changed, 1391 insertions(+), 387 deletions(-)
 create mode 100644 contrib/hbcurl/tests/url.prg
 create mode 100644 contrib/hbcurl/url.c
Saudações,
Itamar M. Lins Jr.
Saudações,
Itamar M. Lins Jr.
Kapiaba
Colaborador
Colaborador
Mensagens: 1908
Registrado em: 07 Dez 2012 16:14
Localização: São Paulo
Contato:

Atualização Harbour 10-05-2024 Nova Função!!!

Mensagem por Kapiaba »

Mister Itamar, não abusando da sua boa vontade, na prática, como isto ficaria via programa em HARBOUR: Podeis mostrar um pequeno SAMPLE? Seria tipo um METER do FiveWin the best?

Obg. abs.

Regards, saludos.
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Atualização Harbour 10-05-2024 Nova Função!!!

Mensagem por JoséQuintas »

tela.png

Código: Selecionar todos

PROCEDURE Main

   SetMode(25,80)
   CLS
   hb_vfCopyFileEx( "d:\download\flagship-linux-7465-all.tgz", "d:\temp\test.xxx",,,{|...|test2(...)} )
   ? x, y
   Inkey(0)

   RETURN

FUNCTION Test2( a, b )

   ? a, b

   RETURN Nil
Comparação errada.
Qualquer tipo de gráfico depende de informação.
O wrapper é pra fornecer informação.

Só que não tem no hb_vfCopyFile(), só tem no hb_vfCopyFileEx()
A menos que seja alterado, a informação do changelog está errada.

Não mostrei no meu gráfico de tempo the best, porque é rápido demais, e o gráfico nem perde tempo se mostrando, demorou menos de 1 segundo.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Kapiaba
Colaborador
Colaborador
Mensagens: 1908
Registrado em: 07 Dez 2012 16:14
Localização: São Paulo
Contato:

Atualização Harbour 10-05-2024 Nova Função!!!

Mensagem por Kapiaba »

Entendi Mister Quintas, Gracias, tks.

Código: Selecionar todos

#Include "FiveWin.ch"

// Destino do Arquivo:
STATIC cTarget := "C:                                 "

FUNCTION Main()

   cTarget = AllTrim( cTarget )

   // RONUEL: ASSIM, USANDO UM .BAT
   // WinExec( "COPIAR.BAT", 0 )  // VEJA COPIAR.BAT

   // OU DIRETO VIA FIVEWIN.
   LZCopyFile( "CUSTOMER.DBF", cTarget + "\IMPREL\QUINTAS.DBF" )

   ? [PRONTO MISTER QUINTAS COPIADO!]

RETURN NIL

// FIN - By Joao Santos - kapiabafwh@gmail.com
Regards, saludos.
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Atualização Harbour 10-05-2024 Nova Função!!!

Mensagem por JoséQuintas »

Nesse caso então, o que está mostrando é que no fivewin já existe uma função de cópia que faz a barra de progresso, é isso ?
E que o Linares decide qual vai ser o visual.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Responder