compiling with harbour

compiling with harbour

Postby Silvio.Falconi » Fri Apr 15, 2016 10:59 am

Wich lib I must link for these errros

Code: Select all  Expand view
Error: Unresolved external '_HB_FUN_HB_UNZIPOPEN' referenced from C:\WORK\HARBOUR\LIB\HBZIPARC.LIB|ziparc
Error: Unresolved external '_HB_FUN_HB_UNZIPGLOBALINFO' referenced from C:\WORK\HARBOUR\LIB\HBZIPARC.LIB|ziparc
Error: Unresolved external '_HB_FUN_HB_UNZIPCLOSE' referenced from C:\WORK\HARBOUR\LIB\HBZIPARC.LIB|ziparc
Error: Unresolved external '_HB_FUN_HB_UNZIPFILEFIRST' referenced from C:\WORK\HARBOUR\LIB\HBZIPARC.LIB|ziparc
Error: Unresolved external '_HB_FUN_HB_UNZIPFILEINFO' referenced from C:\WORK\HARBOUR\LIB\HBZIPARC.LIB|ziparc
Error: Unresolved external '_HB_FUN_HB_UNZIPFILENEXT' referenced from C:\WORK\HARBOUR\LIB\HBZIPARC.LIB|ziparc
Error: Unresolved external '_HB_FUN_HB_ZIPOPEN' referenced from C:\WORK\HARBOUR\LIB\HBZIPARC.LIB|ziparc
Error: Unresolved external '_HB_FUN_HB_ZIPFILECREATE' referenced from C:\WORK\HARBOUR\LIB\HBZIPARC.LIB|ziparc
Error: Unresolved external '_HB_FUN_HB_ZIPFILECRC32' referenced from C:\WORK\HARBOUR\LIB\HBZIPARC.LIB|ziparc
Error: Unresolved external '_HB_FUN_HB_ZIPFILEWRITE' referenced from C:\WORK\HARBOUR\LIB\HBZIPARC.LIB|ziparc
Error: Unresolved external '_HB_FUN_HB_ZIPFILECLOSE' referenced from C:\WORK\HARBOUR\LIB\HBZIPARC.LIB|ziparc
Error: Unresolved external '_HB_FUN_HB_ZIPCLOSE' referenced from C:\WORK\HARBOUR\LIB\HBZIPARC.LIB|ziparc
Error: Unresolved external '_HB_FUN_HB_UNZIPFILEOPEN' referenced from C:\WORK\HARBOUR\LIB\HBZIPARC.LIB|ziparc
Error: Unresolved external '_HB_FUN_HB_UNZIPFILEREAD' referenced from C:\WORK\HARBOUR\LIB\HBZIPARC.LIB|ziparc
Error: Unresolved external '_HB_FUN_HB_UNZIPFILECLOSE' referenced from C:\WORK\HARBOUR\LIB\HBZIPARC.LIB|ziparc
Error: Unresolved external '_HB_FUN_HB_ZIPDELETEFILE' referenced from C:\WORK\HARBOUR\LIB\HBZIPARC.LIB|ziparc
 
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
User avatar
Silvio.Falconi
 
Posts: 7056
Joined: Thu Oct 18, 2012 7:17 pm

Re: compiling with harbour

Postby karinha » Fri Apr 15, 2016 1:05 pm

Code: Select all  Expand view

#command COMPRESS [ FILES ] <afiles> ;
  TO <zipfile> ;
  BLOCK <block> ;
  [ <ovr: OVERWRITE> ] ;
  [ <srp: STOREPATH> ] ;
  [ PASSWORD <password> ] ;
=> ;
 COMPRESSFILES ( <zipfile> , <afiles>, <block> , <.ovr.> , <.srp.> , <password> )

Function Main
// chama as funções para zipar e unzipar
Return Nil

#command UNCOMPRESS [ FILE ] <zipfile> ;
  [ BLOCK <block> ] ;
  [ PASSWORD <password> ] ;
=> ;
 UNCOMPRESSFILES ( <zipfile> , <block> , <password> )

*------------------------------------------------------------------------------*
Function CreateZip()
*------------------------------------------------------------------------------*
Local aDir := Directory( "f*.txt", "D" ), aFiles:= {}, nLen
Local cPath := CurDrive()+":\"+CurDir()+"\"

FillFiles( aFiles, aDir, cPath )

if ( nLen := Len(aFiles) ) > 0
 Form_1.ProgressBar_1.RangeMin := 1
 Form_1.ProgressBar_1.RangeMax := nLen
 MODIFY CONTROL Label_1 OF Form_1 FONTCOLOR {0,0,0}

 COMPRESS aFiles ;
  TO 'ZipTest.Zip' ;
  BLOCK {|cFile, nPos| ProgressUpdate( nPos, cFile, .T. ) } ;
  PASSWORD "
mypass" ;
  OVERWRITE

 MODIFY CONTROL Label_1 OF Form_1 FONTCOLOR {0,0,255}
 Form_1.Label_1.Value := 'Backup is finished'
endif

Return Nil

*------------------------------------------------------------------------------*
Function ProgressUpdate( nPos , cFile , lShowFileName )
*------------------------------------------------------------------------------*

 Default lShowFileName := .F.

 Form_1.ProgressBar_1.Value := nPos
 Form_1.Label_1.Value := cFileNoPath( cFile )

 if lShowFileName
  INKEY(.2)
 endif

Return Nil

*------------------------------------------------------------------------------*
Function UnZip()
*------------------------------------------------------------------------------*
Local cCurDir := GetCurrentFolder(), cArchive

cArchive := Getfile ( { {'Zip Files','*.ZIP'} } , 'Open File' , cCurDir , .f. , .t. )

if !Empty(cArchive)
 Form_1.ProgressBar_1.RangeMin := 0
 Form_1.ProgressBar_1.RangeMax := GetFilesCountInZip( cArchive )
 MODIFY CONTROL Label_1 OF Form_1 FONTCOLOR {0,0,0}

 UNCOMPRESS cArchive ;
  BLOCK {|cFile, nPos| ProgressUpdate( nPos, cFile, .T. ) } ;
  PASSWORD "
mypass"

 MODIFY CONTROL Label_1 OF Form_1 FONTCOLOR {0,0,255}
 Form_1.Label_1.Value := 'Restoration of Backup is finished'
endif

Return Nil

*------------------------------------------------------------------------------*
Function FillFiles( aFiles, cDir, cPath )
*------------------------------------------------------------------------------*
 Local aSubDir, cItem

 FOR cItem :=1 TO LEN(cDir)
  IF cDir[cItem][5] <> "
D"
   AADD( aFiles, cPath+cDir[cItem][1] )
  ELSEIF cDir[cItem][1] <> "
." .AND. cDir[cItem][1] <> ".."
   aSubDir := DIRECTORY( cPath+cDir[cItem][1]+"
\*.*", "D" )
   aFiles:=FillFiles( aFiles, aSubdir, cPath+cDir[cItem][1]+"
\" )
  ENDIF
 NEXT

Return aFiles

*------------------------------------------------------------------------------*
Function GETFILESCOUNTINZIP ( cFileName )
*------------------------------------------------------------------------------*
LOCAL i := 0 , hUnzip , nErr

 hUnzip := HB_UNZIPOPEN( cFileName )

 nErr := HB_UNZIPFILEFIRST( hUnzip )

 DO WHILE nErr == 0

  i++
  nErr := HB_UNZIPFILENEXT( hUnzip )

 ENDDO

 HB_UNZIPCLOSE( hUnzip )

Return i

*------------------------------------------------------------------------------*
PROCEDURE COMPRESSFILES ( cFileName , aDir , bBlock , lOvr , lStorePath , cPassword )
*------------------------------------------------------------------------------*
LOCAL hZip , cZipFile , i

 if valtype (lOvr) == 'L'
  if lOvr == .t.
   if file (cFileName)
    delete file (cFileName)
   endif
  endif
 endif

 hZip := HB_ZIPOPEN( cFileName )
 IF ! EMPTY( hZip )
  FOR i := 1 To Len (aDir)
   if valtype (bBlock) == 'B'
    Eval ( bBlock , aDir [i] , i )  
   endif
   cZipFile := if( lStorePath, aDir [i], cFileNoPath( aDir [i] ) )
   HB_ZipStoreFile( hZip, aDir [i], cZipFile, cPassword )
  NEXT
 ENDIF

 HB_ZIPCLOSE( hZip )

RETURN

*------------------------------------------------------------------------------*
PROCEDURE UNCOMPRESSFILES ( cFileName , bBlock , cPassword )
*------------------------------------------------------------------------------*
LOCAL i := 0 , hUnzip , nErr, cFile, dDate, cTime, nSize, nCompSize, lCrypted, cComment

 hUnzip := HB_UNZIPOPEN( cFileName )

 nErr := HB_UNZIPFILEFIRST( hUnzip )

 DO WHILE nErr == 0

  HB_UnzipFileInfo( hUnzip, @cFile, @dDate, @cTime,,,, @nSize, @nCompSize, @lCrypted, @cComment )

  if valtype (bBlock) == 'B'
   Eval ( bBlock , cFile , ++i )
  endif

  HB_UnzipExtractCurrentFile( hUnzip, NIL, cPassword )

  nErr := HB_UNZIPFILENEXT( hUnzip )

 ENDDO

 HB_UNZIPCLOSE( hUnzip )

RETURN
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7814
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: compiling with harbour

Postby karinha » Fri Apr 15, 2016 1:06 pm

Code: Select all  Expand view

echo %bcdir%\lib\c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo %fwh%\lib\FiveH.lib %fwh%\lib\FiveHC.lib %fwh%\lib\libmysql.lib %fwh%\lib\dolphin.lib + >> b32.bc
echo %hdirl%\hbwin.lib + >> b32.bc
echo %hdirl%\gtgui.lib + >> b32.bc
echo %hdirl%\hbrtl.lib + >> b32.bc
echo %hdirl%\hbvm.lib + >> b32.bc
echo %hdirl%\hblang.lib + >> b32.bc
echo %hdirl%\hbmacro.lib + >> b32.bc
echo %hdirl%\hbrdd.lib + >> b32.bc
echo %hdirl%\rddntx.lib + >> b32.bc
echo %hdirl%\rddcdx.lib + >> b32.bc
echo %hdirl%\rddfpt.lib + >> b32.bc
echo %hdirl%\hbsix.lib + >> b32.bc
echo %hdirl%\hbdebug.lib + >> b32.bc
echo %hdirl%\hbcommon.lib + >> b32.bc
echo %hdirl%\hbpp.lib + >> b32.bc
echo %hdirl%\hbcpage.lib + >> b32.bc
echo %hdirl%\hbcplr.lib + >> b32.bc
echo %hdirl%\hbct.lib + >> b32.bc
echo %hdirl%\hbpcre.lib + >> b32.bc
echo %hdirl%\xhb.lib + >> b32.bc
echo %hdirl%\hbziparc.lib + >> b32.bc
echo %hdirl%\hbmzip.lib + >> b32.bc
echo %hdirl%\hbzlib.lib + >> b32.bc
echo %hdirl%\minizip.lib + >> b32.bc
echo %hdirl%\png.lib + >> b32.bc
echo %hdirl%\hbusrrdd.lib + >> b32.bc
echo %hdirl%\hbmisc.lib + >> b32.bc
 


João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7814
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: compiling with harbour

Postby karinha » Fri Apr 15, 2016 1:18 pm

Look where the *

Code: Select all  Expand view

 Pasta de C:\HARBOUR\LIB

07/01/2016  20:30            75.776 bz2.lib
07/01/2016  20:30           122.368 expat.lib
07/01/2016  20:29             5.120 gtcgi.lib
07/01/2016  20:29             9.728 gtgui.lib
07/01/2016  20:29            12.288 gtpca.lib
07/01/2016  20:29            10.752 gtstd.lib
07/01/2016  20:29            21.504 gtwin.lib
07/01/2016  20:31           517.120 gtwvg.lib
07/01/2016  20:29            60.416 gtwvt.lib
07/01/2016  20:31            31.744 hbamf.lib
07/01/2016  20:31            22.528 hbblat.lib
07/01/2016  20:31            17.408 hbblink.lib
07/01/2016  20:31            11.264 hbbz2.lib
07/01/2016  20:31             7.168 hbcomio.lib
07/01/2016  20:31             7.168 hbcomm.lib
07/01/2016  20:27           150.528 hbcommon.lib
07/01/2016  20:29           758.784 hbcpage.lib
07/01/2016  20:27           337.408 hbcplr.lib
07/01/2016  20:30           359.424 hbct.lib
07/01/2016  20:29           201.216 hbdebug.lib
07/01/2016  20:31            35.840 hbexpat.lib
07/01/2016  20:29           100.352 hbextern.lib
07/01/2016  20:30            55.296 hbformat.lib
07/01/2016  20:31            16.384 hbfoxpro.lib
07/01/2016  20:30            28.160 hbfship.lib
07/01/2016  20:31            32.768 hbgt.lib
07/01/2016  20:31             8.192 hbgzio.lib
07/01/2016  20:31           109.056 hbhpdf.lib
07/01/2016  20:29            22.528 hbhsx.lib
07/01/2016  20:31            61.440 hbhttpd.lib
07/01/2016  20:29           180.736 hblang.lib
07/01/2016  20:31             6.144 hblzf.lib
07/01/2016  20:29            68.096 hbmacro.lib
07/01/2016  20:28             7.168 hbmaindllh.lib
07/01/2016  20:28            29.184 hbmaindllp.lib
07/01/2016  20:28             2.560 hbmainstd.lib
07/01/2016  20:28             7.168 hbmainwin.lib
07/01/2016  20:31            14.848 hbmemio.lib
07/01/2016  20:31           112.128 hbmisc.lib
07/01/2016  20:31             6.656 hbmlzo.lib
07/01/2016  20:31            29.184 hbmxml.lib

07/01/2016  20:30            25.600 hbmzip.lib *

07/01/2016  20:30            53.760 hbnetio.lib
07/01/2016  20:31           361.472 hbnf.lib
07/01/2016  20:27             8.192 hbnortl.lib
07/01/2016  20:29             6.656 hbnulrdd.lib
07/01/2016  20:31            36.352 hbodbc.lib
07/01/2016  20:31             6.656 hboslib.lib
07/01/2016  20:27           270.336 hbpcre.lib
07/01/2016  20:31             6.656 hbpipeio.lib
07/01/2016  20:27           259.072 hbpp.lib
07/01/2016  20:29           246.272 hbrdd.lib
07/01/2016  20:29         2.394.112 hbrtl.lib
07/01/2016  20:29            56.320 hbsix.lib
07/01/2016  20:31             8.192 hbsms.lib
07/01/2016  20:31            51.200 hbsqlit3.lib
07/01/2016  20:31             7.168 hbtcpio.lib
07/01/2016  20:31             8.192 hbtest.lib
07/01/2016  20:31            12.800 hbtinymt.lib
07/01/2016  20:30           209.920 hbtip.lib
07/01/2016  20:31            15.872 hbtpathy.lib
07/01/2016  20:29            48.128 hbuddall.lib
07/01/2016  20:29            46.080 hbusrrdd.lib
07/01/2016  20:28           460.800 hbvm.lib
07/01/2016  20:28           602.112 hbvmmt.lib
07/01/2016  20:30           360.448 hbwin.lib
07/01/2016  20:31            10.240 hbxdiff.lib
07/01/2016  20:30            70.656 hbxpp.lib
07/01/2016  20:31            71.168 hbzebra.lib

07/01/2016  20:31            13.312 hbziparc.lib *

07/01/2016  20:27            76.288 hbzlib.lib
07/01/2016  20:27           269.312 jpeg.lib
07/01/2016  20:30           790.016 libhpdf.lib
07/01/2016  20:30             4.608 lzf.lib
07/01/2016  20:30             6.144 minilzo.lib

07/01/2016  20:30            32.256 minizip.lib *

07/01/2016  20:30            47.616 mxml.lib
07/01/2016  20:27           265.728 png.lib
07/01/2016  20:31            15.360 rddbm.lib
07/01/2016  20:29           139.776 rddcdx.lib
07/01/2016  20:29            41.472 rddfpt.lib
07/01/2016  20:29            59.392 rddnsx.lib
07/01/2016  20:29            55.808 rddntx.lib
07/01/2016  20:30            25.088 rddsql.lib
07/01/2016  20:31            15.360 sddodbc.lib
07/01/2016  20:31             9.216 sddsqlt3.lib
07/01/2016  20:30           514.560 sqlite3.lib
07/01/2016  20:27           345.088 tiff.lib
07/01/2016  20:30             6.144 tinymt.lib
07/01/2016  20:30            54.272 xdiff.lib
07/01/2016  20:30           583.680 xhb.lib
 


João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7814
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 80 guests