Fabzip

Prev: news.vulcan-europe.net [german]
Next: Service Pack 3 for Visual Objects 2.8

From: Rob van Erk on 22 Dec 2008 14:12

---

Hi all,

I'am overlooking the programming error but I try to extract a file
from a ZIP file using following code:

method Unzipbutton() class DWPSP
LOCAL oZip as FabZipFile

? oZip := FabZipFile{ 'f:\ghost.zip',self }
? oZip:ExtractDir:='f:\rob'
? oZip:ExtractOptions:OverWrite := true
? oZip:Extract()
RETURN

Why does this not work? Directory f:\rob does exist and running the
program. There is only one file in the ZIP file. I get following
output:

{(0x0100)0x02438C50} CLASS FABZIPFILE
f:\rob
..T.
..F.

Thanks,
Rob

From: Geoff Schaller on 22 Dec 2008 16:07

---

How big is the file?

"Rob van Erk" <erk.v(a)hotmail.com> wrote in message
news:f9562dbc-242d-4680-82bc-b0f242785348(a)t39g2000prh.googlegroups.com:

> Hi all,
>
> I'am overlooking the programming error but I try to extract a file
> from a ZIP file using following code:
>
> method Unzipbutton() class DWPSP
> LOCAL oZip as FabZipFile
>
> ? oZip := FabZipFile{ 'f:\ghost.zip',self }
> ? oZip:ExtractDir:='f:\rob'
> ? oZip:ExtractOptions:OverWrite := true
> ? oZip:Extract()
> RETURN
>
> Why does this not work? Directory f:\rob does exist and running the
> program. There is only one file in the ZIP file. I get following
> output:
>
> {(0x0100)0x02438C50} CLASS FABZIPFILE
> f:\rob
> .T.
> .F.
>
> Thanks,
> Rob


__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3709 (20081220) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

From: Rob van Erk on 23 Dec 2008 13:33

---

Geoff,

1.3Mb

Brgds,
Rob

From: Geoff Schaller on 23 Dec 2008 15:48

---

That should be no problem. I can zip up to 2GB without trouble.
Perhaps your file path has spaces or weird characters in the name?
(or multiple dots)

FabZip in its original form cannot deal with these things.

Geoff


"Rob van Erk" <erk.v(a)hotmail.com> wrote in message
news:f5e1acef-abdb-405f-9bf0-15e3b959e4d9(a)z27g2000prd.googlegroups.com:

> Geoff,
>
> 1.3Mb
>
> Brgds,
> Rob


__________ Information from ESET NOD32 Antivirus, version of virus
signature database 3712 (20081222) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com

From: Marc Verkade [Marti IT] on 23 Dec 2008 16:57

---

Hai,

I have put a fixed textcontrol, inhertited that from FabZipFileCtrl and then
have this code in my app.

// Create Zipfile
oZip:=SELF:oDCZipFile:ZipFile
oZip:FileName :=sFile
oZip:ExtractDir :=sDataPad
oZip:ExtractOptions:Overwrite :=TRUE
oZip:FilesArg:Add("*.*")
lRetVal:=oZip:Extract()

This control can have various progressbars.
You can download www.marti.nl/zips/bake-itinstall.exe
Go to [Bestand | Maken inlezen backup] and press [Maken Backup] and then
[Inlezen backup] to see how it works.

For more info, I can send you the window as a mef.

This is Fab's comment
//l Class to handle ZIP File control
//p Class to handle ZIP File control
//d The FabZipFileCtrl class can handle any operation on a Zip File like
reading contents, adding/extracting files. You can build
//d an EXE file with autoextraction feature, and even crypt the generated
ZIP/EXE file.\line
//d This class encapsulate a FabZipFile object for all operation and will
receive some notification that will be routed to the owner of the control.
//j METHOD:FabZipFileCtrl:OnFabZipProgress

Regards, Marc

--
Grtz, Marc


"Rob van Erk" <erk.v(a)hotmail.com> schreef in bericht
news:f9562dbc-242d-4680-82bc-b0f242785348(a)t39g2000prh.googlegroups.com...
> Hi all,
>
> I'am overlooking the programming error but I try to extract a file
> from a ZIP file using following code:
>
> method Unzipbutton() class DWPSP
> LOCAL oZip as FabZipFile
>
> ? oZip := FabZipFile{ 'f:\ghost.zip',self }
> ? oZip:ExtractDir:='f:\rob'
> ? oZip:ExtractOptions:OverWrite := true
> ? oZip:Extract()
> RETURN
>
> Why does this not work? Directory f:\rob does exist and running the
> program. There is only one file in the ZIP file. I get following
> output:
>
> {(0x0100)0x02438C50} CLASS FABZIPFILE
> f:\rob
> .T.
> .F.
>
> Thanks,
> Rob

 |  Next  |  Last
Pages: 1 2
Prev: news.vulcan-europe.net [german]
Next: Service Pack 3 for Visual Objects 2.8