Newsgroup: it.comp.appl.access
Titolo: Zlib zip tool

Qualcuno per favore mi spiega come utilizzare l'ocx ZLIB indicato nel 
sitocomune.
Dalla spiegazione di Carlo Io non capisco cosa vuol dire con Inserisci l'OCX 
nella maschera creata
Vorrei creare 1 funzione che comprime il file passato come parametro 
nell'equivalente .ZIP
Ho inserito l'OCX in windows\system e l'ho registrata.
E ora ??
Grazie
Roberto Spinella 

 ha scritto nel messaggio 
news:435670b8$0$8500$5fc...@news.tiscali.it...

Inserire l'ocx vuol dire aprire la maschera in struttura e dal menů 
Inserisci devi scegliere Controllo ActiveX. Dal successivo elenco selezione 
l'ocx.
Ti ricordo che se distribuisci l'applicativo, dovrai inserire anche l'ocx.
Ciao, Carlo 


Visualizza struttura
Inserisci e ti cerchi l'ocx
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it

 ha scritto nel messaggio 
news:4356728c$0$20498$4faf...@reader4.news.tin.it...

Scusate ma nonostante usi Access da diverso tempo temo di essere un pň 
imbranato con questo tipo di struttura (OCX)
Ho creato una maschera, ho inserito l'activex Zlib dopo averlo copiato in 
windows\system e registrato
Ho modificato il nome del controllo ActiveX in Zlibtool1
Quindi ho inserito nella maschera un bottone che sull'evento on click 
contiene il seguente codice
On Error GoTo Err_Comando1_Click
Dim fname As String
    fname = "C:\Documenti\db2.mdb"
    ZlibTool1.InputFile = fname     'MiaDir & "\MioDB.mdb"
    ZlibTool1.OutputFile = "c:\Documenti\MioDb.ZL"
    ZlibTool1.Level = Maximum
    Call ZlibTool1.Compress
Exit_Comando1_Click:
    Exit Sub
Err_Comando1_Click:
    MsgBox Err.description
    Resume Exit_Comando1_Click
Ma sulla CALL mi genera l'errore:
Errore di automazione
L'oggetto invocato si č disconnesso dai client  corrispondenti
Perchč faccio cosě tanta fatica su una cosa definita semplicissima.
Uso Acc2k. Ciao e grazie
Esteban 

 ha scritto nel messaggio 
news:43574a6e$0$8485$5fc...@news.tiscali.it...

 Ciao
ho rifatto tutte le prove e ti assicuro che funziona.
Io faccio cosě:
Il controllo lo rendo invisibile e poi questo il codice su clic di un 
pulsante:
Me.ZlibTool1.Visible = True
ZlibTool1.InputFile = "C:\pdf.mdb"
ZlibTool1.OutputFile = "c:\MioDb2.ZL"
ZlibTool1.Level = Maximum
ZlibTool1.Compress
Me.ZlibTool1.Visible = False
A me funziona anche senza il call.
Ciao, Carlo 


Perdonami Carlo ma a me continua a generare lo stesso errore anche 
incollando il tuo codice.
Ho provato su 2 diversi computer con diverse versioni di access 2k e 2k3.
Mi potresti per favore spedire il tuo mdb anche se non penso che risolva, 
cosi mi tolgo i dubbi riguardo alla mia incapacità di scrivere e debuggare 
il codice.
Grazie Esteban 


Ti ho mandato il file in privato,
fammi sapere.
Ciao, Carlo 

 ha scritto nel messaggio 
news:43591838$0$20487$4faf...@reader4.news.tin.it...

Chiaramente, come al solito per queste cose, ho perso un sacco di tempo e 
solo stamattina sono riuscito.
Il file che doveva essere compresso sia dal mio esempio che dal tuo non 
esisteva e la segnalazione di errore era una attimo fuorviante.
Anziche il solito FILE NOT FOUND c'era tutta quella spataffiata scritta 
sopra.
Ora però che sono finalmente riuscito a creare questo .ZL lo posso aprire 
solamente gestendo una routine che lo scompatta o esiste qualcosa che lo 
scompatta ?
 Io veramente speravo comprimesse in formato .ZIP compatibile sia con 
CARTELLE COMPRESSE di WinXp che col vecchio e bravo Winzip.
Grazie Carlo