PC Toledo

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.

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()

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

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

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