Jerry Foote wrote on 2011-02-24: 
> That worked.. If I distribute the dlls does the customer have to
> register dlls that way. Also I have been playing with chilkat zip tool.
> The syntax for zipping a folder is below. Can I use dynazip the same
> way? I have always used a form. I like the code with procedures. I don't
> want to spend 149.00 Thanks Jerry

Jerry,

You can. You need a little prep work, and it still needs to on an object.

   DEFINE CLASS oleZipClass AS OleControl
      oleClass            = "dzactxctrl.dzactxctrl.1"
      MultiVolumnControl  = 0  && None
      PROCEDURE Init      
         WITH This.Object
            .AllQuiet            = .T.
            .CompressionFactor   = 9 && Max Compression
            .DiagnosticFlag      = .F.
            .MessageCallbackFlag = .T.
            .QuietFlag           = .T.
            .RecurseFlag         = .F.
            .ZipSubOptions       = 1 + 0x4000
         ENDWITH 
      ENDPROC 
   ENDDEFINE

   DEFINE CLASS ZipClass as Control
      ADD OBJECT oleZip as oleZipClass

Once the prep work is done, you can use it via your VFP object ZipClass.

Depending on the ActiveX attached to the OleControl object, it may need to
be on a form class. The DynaZIP controls didn't specifically need it. 

If you've never worked with a Control class, be aware that objects embedded
in it can only be accessed from within that class code. In the above
example, you'll only be able to access oleZip from code in ZipClass. You
will not have access in a subclass either.

Tracy Pearson
PowerChurch Software




_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: 
http://leafe.com/archives/byMID/profox/001601cbd455$9257b000$b7071000$@com
** All postings, unless explicitly stated otherwise, are the opinions of the 
author, and do not constitute legal or medical advice. This statement is added 
to the messages for those lawyers who are too stupid to see the obvious.

Reply via email to