-----Messaggio Originale-----
Da: "Andi Jahja" <[email protected]>
A: "Enrico Maria Giordano" <[email protected]>
Cc: "Xharbour-Developers List" <[email protected]>
Data invio: sabato 12 marzo 2011 14.26
Oggetto: Re: [xHarbour-developers] ChangeLog: 2011-03-12 12:00 UTC+0700
AndiJahja <xharbour/AT/telkom/net/id>
> Do not forget to put the DLL (contrib/sevenzip/binary/7-zip32.dll) into
> a searchable path.
Yes, I did. Unfortunately it doesn't seem to work fine:
#include "Directry.ch"
#define MAX_BUFFER 4096
FUNCTION MAIN()
LOCAL aDir, aFile := {}
LOCAL oZip
LOCAL i
aDir = DIRECTORY( "t\*.*" )
FOR i = 1 TO LEN( aDir )
AADD( aFile, aDir[ i, F_NAME ] )
NEXT
? LEN( aFile ) // 135 files
oZip := T7Zip():New()
oZip:cArcName = "Test.7z"
oZip:aFiles = aFile
oZip:nBuffer = MAX_BUFFER
oZip:Create()
RETURN NIL
All what I get is a Test.7z of 556 bytes.
EMG
--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic
------------------------------------------------------------------------------
Colocation vs. Managed Hosting
A question and answer guide to determining the best fit
for your organization - today and in the future.
http://p.sf.net/sfu/internap-sfd2d
_______________________________________________
xHarbour-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
