PC Toledo

Código: Selecionar todos

-std
-oversion.exe
-iC:\ARQUIV~1\MICROS~1.0\VC\include
-LC:\ARQUIV~1\MI2578~1\Windows\v6.0A\Lib\
-LC:\ARQUIV~1\MICROS~1.0\VC\LIB\
-LC:\hb30\lib\win\msvc
-comp=msvc
version.prg

Código: Selecionar todos

PROCEDURE Main()

   outstd( chr( 34 ) + version() + chr( 34 ) + hb_eol() )
   outstd( chr( 34 ) + hb_compiler() + chr( 34 ) + hb_eol() )
   outstd( chr( 34 ) + os() + chr( 34 ) + hb_eol() )

   RETURN


FUNC FCOMPRESS(cFONTE , cDESTI)
HB_ZIPFILE( cDESTI, cFONTE, 9,  )
Return .t.

FUNC FDCOMPRESS(cFONTE, cDESTI)
LOCAL aExtract
aExtract := hb_GetFilesInZip(cFonte)
hb_unzipfile(cFONTE, , , , '.\' , aExtract ,  )
Return .t.

Código: Selecionar todos

version.obj : error LNK2001: unresolved external symbol _HB_FUN_HB_UNZIPFILE
version.obj : error LNK2001: unresolved external symbol _HB_FUN_HB_GETFILESINZIP
version.obj : error LNK2001: unresolved external symbol _HB_FUN_HB_ZIPFILE
version.exe : fatal error LNK1120: 3 unresolved externals
hbmk2: Error: Running linker. 1120

Código: Selecionar todos

"Harbour 3.0.0 (Rev. 16951)"
"Microsoft Visual C++ 16.0.40219 (32-bit)"
"Windows XP 5.1.2600 Service Pack 3"

Código: Selecionar todos

#define MZIP_BUFFER_READ 1024

/*
   HB_ZIPFILE( <cFile>,
               <cFileToCompress> | <aFilesToCompress>,
               [<nLevel>],
               [<bUpdate>],
               [<lOverWrite>],
               [<cPassword>],
               [<lWithPath>],
               [<lWithDrive>],
               [<bFileUpdate>] ) --> lCompress

   This function creates a zip file named <cFile>. If the extension
   is omitted, .ZIP will be assumed. If the second parameter is a
   character string, this file will be added to the zip file. If the
   second parameter is an array, all file names contained in <aFiles>
   will be compressed.

   If <nLevel> is used, it determines the compression type where 0 means
   no compression and 9 means best compression.

   If <bUpdate> is used, every time the file is opened to compress it
   will evaluate bBlock. Parameters of bBlock are cFile and nPos.

   If <lOverWrite> is used, it toggles to overwrite or not the existing
   file. Default is to overwrite the file,otherwise if <lOverWrite> is false
   the new files are added to the <cFile>.

   If <cPassword> is used, all files that are added to the archive are encrypted
   with the password.

   If <lWithPath> is used, it tells  the path should also be stored with
   the file name. Default is false.

   If <lWithDrive> is used, it tells thats the Drive and path should also be stored
   with the file name. Default is false.

   If <bFileUpdate> is used, an Code block is evaluated, showing the total
   of that file has being processed.
   The codeblock must be defined as follow {|nPos,nTotal| GaugeUpdate(aGauge1,(nPos/nTotal))}

   lWithPath and lWithDrive are not supported yet
*/

procedure HB_ZipFile( cFile, uFileToCompress, nLevel, bUpdate, lOverwrite, cPassword, lWithPath, lWithDrive, bFileUpdate, cComment )
local hZip, hHandle, nLen, cBuffer := Space( MZIP_BUFFER_READ ), cFileToZip, nPos := 1, nRead, cExt
   *if !( ".zip" $ cFile )
   *   cFile += ".zip"
   *endif
   hZip = HB_ZipOpen( cFile )
   if !Empty( hZip )
      if HB_IsString( uFileToCompress )
         uFileToCompress = { uFileToCompress }
      endif
      for each cFileToZip in uFileToCompress
         if HB_IsBlock( bUpdate )
            Eval( bUpdate, cFileToZip, nPos++ )
         endif
         hHandle = FOpen( cFileToZip )
         nRead = 0
         HB_FNameSplit( cFileToZip, nil, @cFileToZip, @cExt )
         HB_ZipFileCreate( hZip, cFileToZip + cExt, nil, nil, nil, nil, nil, nLevel, cPassword, nil, nil )
         while ( nLen := FRead( hHandle, @cBuffer, MZIP_BUFFER_READ ) ) > 0
            if HB_IsBlock( bFileUpdate )
               nRead += nLen
               Eval( bFileUpdate, nRead, FSize( cFileToZip ) )
            endif
            HB_ZipFileWrite( hZip, SubStr( cBuffer, 1, nLen ), nLen )
         enddo
         FClose( hHandle )
         HB_ZipFileClose( hZip )
      next
      HB_ZipClose( hZip, cComment )
   endif
return

/*
   HB_UNZIPFILE( <cFile>,
                 [<bUpdate>],
                 [<lWithPath>],
                 [<cPassword>],
                 [<cPath>],
                 [<cFile> | <aFile>],
                 [<bFileUpdate>]  ) --> lCompress

   <cFile>     Name of the zip file to extract

   <bUpdate>   Code block to execute while extracting

   <lWithPath> Toggle to create directory if needed

   <cPassword> Password to use to extract files

   <cPath>     Path to extract the files to - mandatory

   <cFile> | <aFiles> A File or Array of files to extract - mandatory

   <bFileUpdate> Code block for File Progress

   lWithPath are not supported yet
*/

procedure HB_UnZipFile( cFile, bUpdate, lWithPath, cPassword, cPath, uFileToUnzip, bFileUpdate )
   local hUnZip, nErr, cZipName
   *if !( ".zip" $ cFile )
   *   cFile += ".zip"
   *endif
   hUnZip = HB_UnZipOpen( cFile )
   if !Empty( hUnZip )
      if HB_IsString( uFileToUnzip )
        uFileToUnzip = { uFileToUnzip }
      endif
      if Empty( cPath )
         HB_FNameSplit( cFile, @cPath )
      endif
      nErr = HB_UnZipFileFirst( hUnZip )
      while nErr == 0
         if HB_UnzipFileInfo( hUnzip, @cZipName ) == 0
            if AScan( uFileToUnzip, cZipName ) > 0
               cZipName = cPath + cZipName
               HB_UnzipExtractCurrentFile( hUnZip, cZipName, cPassword
            endif
         endif
         nErr = HB_UnZipFileNext( hUnZip )
      enddo
      HB_UnZipClose( hUnZip )
   endif
return

/*
   HB_GETFILESINZIP( <cFile>, [<lExtended>] )

   <cFile>        Is the zip file to get information

   <lExtended>    Is the type of information. The default is .f. and is compatible with old ZipArch method,
                  returning an array with file name only. If lExtended is TRUE, the returned array have additional 
                  informations like: { cFile, dDate, cTime, nSize, nCompSize, lCrypted, cComment }
*/

function HB_GetFilesInZip( cFile, lExtended )
local hUnZip, nErr, dDate, cTime, nSize, nCompSize, lCrypted, cComment, aFiles := {}
   *if !( ".zip" $ cFile )
   *   cFile += ".zip"
   *endif
   if !HB_IsLogical( lExtended )
      lExtended = .f.
   endif
   hUnZip = HB_UnZipOpen( cFile )
   if !Empty( hUnZip )
      nErr = HB_UnZipFileFirst( hUnZip )
      while nErr == 0
         HB_UnzipFileInfo( hUnzip, @cFile, @dDate, @cTime, nil, nil, nil, @nSize, @nCompSize, @lCrypted, @cComment )
         if lExtended
            AAdd( aFiles, { cFile, dDate, cTime, nSize, nCompSize, lCrypted, cComment } )
         else
            AAdd( aFiles, cFile )
         endif
         nErr = HB_UnZipFileNext( hUnZip )
      enddo
      HB_UnZipClose( hUnZip )
   endif
return aFiles