Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Problem z zipowaniem plików
busio
busio




Typ: neutral
Postów: 98
Zarejestrowany: Sep 2002
Problem z zipowaniem plików

Mam problem, potrzebuję zipować pliki.
Istnieje w necie kilka kontorlek robiących to bardzo dobrze. Jednak wszystkie wymagaja umieszczenia na formatce w trakcie projektowania.
Mając wiele formatek powinienem do każdej dodać kontrolkę.
Postanowiłem stworzyć klasę do obsługi plików i wszystko działa, ale nie wiem jak zaimplementować zipowanie.
Może ktoś wie jak w klasie lub module kozystac z kontrolki .ocx lub posiada jakiś kod modułu , klasy , funkcji pozwalający na zipowanie plików....

Dziękuję i pozdrawiam

busio

15-07-2004 09:26
Pokaż profil busio  Wyślij email do busio   Odwiedź stronę busio  
Knight Lore''FC




Typ: neutral
Postów: 240
Zarejestrowany: Jan 2003


... Mając wiele formatek powinienem do każdej dodać kontrolkę.


nie musisz do kazdej... mozesz tyko do jednej np. utworzonej tylko dla tek kontrolki potem z kazdej formatki odwolujesz sie do tej jednej

w form1 mozesz przeciez wpisac...
formZIP.VFUnzip.filename="plik.zip"
(formZIP to nazwa formatki z kontrolka)

15-07-2004 12:58
Pokaż profil Knight Lore  Wyślij email do Knight Lore        1065423
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Możesz też zaimplementować ocx bez formatki w klasie wykorzystując CreateObject


_____________________________________________
Karolina

15-07-2004 16:59
Pokaż profil karolinavb  Wyślij email do karolinavb   
busio
busio




Typ: neutral
Postów: 98
Zarejestrowany: Sep 2002

Odwołanie do formatki nawet jednej nie jest dobrym sposobem na budowanie klasy gdyż sama idea klasy (a tym samym wygoda uzytkowania ) nakazuje budowe hermetycznej całości nie wymagającej deklaracji zadnych dodatkowych obiektów. Przeniesienie klasy do innego projektu wymaga tylko dodania pliku i od razu działa.
CreateObject działa ale jest jeden mały problem.
Robię coś takiego.

dim ZipOcx as KlasaZip (niestety new KlasaZip nie zadziała)

ewentualnie
dim ZipOcx as Object

set ZipOcx = CreateObject("KlasaZip"

i otrzymuje błąd "Type mismatch"

jeśli zaś zrobie

dim ZipOcx as Variant

set ZipOcx = CreateObject("KlasaZip"

działa OK ale wtedy więksżość własciwości zgłasza błąd "Object dasn't support ....."

Nie jest to poważny problem ale jeśli ktoś ma jakieś doświadczenia lub pomysly to będę wdzięczny.

Pozdrawiam busio

16-07-2004 08:45
Pokaż profil busio  Wyślij email do busio   Odwiedź stronę busio  
Wszystkich odpowiedzi: 3 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1