Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Besplatan softver → Gzip arhiver


Odgovori na temu





Pomoc


Prosiri Boja Prosiri Velicina Spoiler WMP-Videos Neprimjereno
Podebljano Kurziv Podvuceno Slika Internet adresa (URL) Citat Van teme Neuredena lista Narucena lista Pretplata Nadredeni
Grinning Happy Cool Surprised Disappointed Laughing In love Angry No comment Embarrassing Shy Smiling Tongue Undecided Innocent Wink Sad Prosiri i skupi vise smajlica
Povecaj velicinu · Smanji velicinu Provjeri duzinu
Pretvori smajlice u postu
Pretvori & quot; vokable & quot; u postu

Upravljanje prilozima
Mozete priloziti 3 datoteke!



Posljednjih 15 postova u ovoj temi

Ova tema sadrzi vise od 15 postova. Kliknite ovdje da biste pogledali cijelu temu.

Avko (14.05.2015 14:24):
Predmet: Re: Gzip arhiver
cijeli project snimio sam na novu lokaciju na HD i sada radi. Mozda je greska sto u ime mape nisam koristio _ npr. d:\zipunzip_program ja sam imenovao mapu ovako d:\zipunzip program pa ga mozda iz dos prompta nije prepoznao. Neznam. To mi prvo palo na pamet uglavnom u novoj mapi radi i ovaj moj.
Dakle nakon ovoga sto mi se danas desilo osjecam bolove u glavi i idem prileci malo. Nemoram ti pricati da mi se ovakve stvari desavaju gotovo skoro svaki dan zato mi se zna desiti da izludim jednostavno
dovidenja i vidimo se sutra. hvala na pomoci i krvavo si zasluzio danas 2x+, a dao bi ti ja i 3x+ ali je zxz rekao da ne klikamo po tim + bezveze pa cu samo 2 komada da ti dam sada eto vidim traze tamo na accesu tvoju pomoc pa pomozi ljudima. Ja kada sam vidio onaj kod tamo 0401 i 401 mene pao mrak na oci

Gjoreski (14.05.2015 14:14):
Predmet: Re: Gzip arhiver
kod mene i ovaj tvoj primer radi

Avko (14.05.2015 13:57):
Predmet: Re: Gzip arhiver
(Name) Command1

(Name) Command2

Gjoreski (14.05.2015 13:44):
Predmet: Re: Gzip arhiver
Kako ti se zove command butone da nije problem u njima

Avko (14.05.2015 13:28):
Predmet: Re: Gzip arhiver
zanimljivo
ovo tvoje radi savrseno, a moje ne.
uradio sam upravo kako si mi rekao. Kasnije sam usporedio ta dva programa i oni su potpuno isti. Jedina je razlika sto se tvoja forma zove: frmZIPunZIP, a moja Form1 ali mislim da to ne utjece na izvodenje programa.
sljedece sto sam napravio je da sam metodom copy-paste kopirao kod iz tvojega programa u svoj. Dakle sve iz frmZIPunZIP u svoju Form1 i isto tako kopirao sam iz tvojega modula u svoj i startao svoj program i nije radilo. Sada me zanima dali znas kako to da tvoj originalni program radi, a moj u koji sam kopirao tvoj ne radi.

Gjoreski (14.05.2015 12:38):
Predmet: Re: Gzip arhiver
Moze biti problem i pateka gde se napazi program probaj sve da stavis na C: u neki folder bez razmake u nazivu

Gjoreski (14.05.2015 12:29):
Predmet: Re: Gzip arhiver
Ovo kod mene radi eve sve uradzeno ukomplet u ova verzija kod mene sam stvio i password na zipu pa pogledaj

Avko (14.05.2015 12:03):
Predmet: Re: Gzip arhiver
nista. copirao sam tocno ovaj gore primjer, a ono prije stavio u modul.
u mapi nema Data.zip , Data.zip fajla nema nigdje na HD pregledao sam sa programom Everything search engine
znaci nesto ne radi. Ili sam ja nesto krivo upisao. Daj molim te reci dali to kod tebe radi?
vazno je reci, a evo sada sam isprobao
umjesto :ShellAndWait strString, vbNormalNoFocus
stavim :Shell strString, vbNormalNoFocus
znaci ne poziv modul i isto ne radi
pa predpostavljam da je greska negdje u onim stringovima
Program = App.Path & "\7za.exe"
OdRar = App.Path & "\data.zip"
strString = Program & " e " & OdRar & " -o" & App.Path & "\" & " -y"
sada cu probati sa MsgBox kako si rekao da vidim sta je u stringovima
evo probao sa msgbox i cini mi se da je sve u redu
u dos promptu sa naredbom : 7za.exe a data.zip *.txt odradi sve u redu
komprimira sve *.txt fajlove u data.zip

Gjoreski (14.05.2015 11:04):
Predmet: Re: Gzip arhiver
Eve komplet
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Command1_Click()
  2.  Dim Program As String
  3.          Program = App.Path & "\7za.exe"            ' treba da ima rar.exe vo istiot direktorium od ovaj program
  4. Dim Fajlovi As String
  5.          Fajlovi = App.Path & "\*.txt"              ' Svi txt Fajlove
  6. Dim VoRar As String
  7.          VoRar = App.Path & "\Data.zip"             ' Vo isti folder gde se nalazi program formira se fajl Data.zip
  8. Dim strString As String
  9.          strString = Program & " a " & VoRar & " " & Fajlovi
  10.      
  11.      ' e sad ovde vec se izvrsi pakovajne podatke
  12.     ShellAndWait strString, vbNormalNoFocus
  13. End Sub
  14.  
  15. Private Sub Command2_Click()
  16.  Dim Program As String
  17.          Program = App.Path & "\7za.exe"            ' treba da ima rar.exe vo istiot direktorium od ovaj program
  18. Dim OdRar As String
  19.          OdRar = App.Path & "\Data.zip"             ' Data.zip mora se nalaziti u isti folder gde je program i 7za.exe
  20. Dim strString As String
  21.          strString = Program & " e " & OdRar & " -o" & App.Path & "\" & " -y"  ' vo istiot folder gde se nalazi program
  22.  
  23.  
  24.      ' e sad ovde vec se izvrsi pakovajne podatke
  25.     ShellAndWait strString, vbNormalNoFocus
  26. End Sub

Avko (14.05.2015 10:07):
Predmet: Re: Gzip arhiver
evo probao ja, ne raspakira.
za unzip napisao ovo:
PreuzmiIzvorni kôd (Visual Basic):
  1. program = App.Path & "\7za.exe"
  2.     zipFajl = App.Path & "\data.bin"
  3.     strString = program & " e " & zipFajl & " -y"  'ovo y je za overwrites
  4.    ShellAndWait strString, vbMinimizedNoFocus

nakon sto ode u modul tamo ide do
PreuzmiIzvorni kôd (Visual Basic):
  1. If process_handle <> 0 Then
  2.         WaitForSingleObject process_handle, INFINITE
  3.         CloseHandle process_handle
  4.     End If
ali je process_handle=0 pa prema tome ne odradi nista i ode na
exit sub
dakle ne raspakira

Gjoreski (13.05.2015 13:51):
Predmet: Re: Gzip arhiver
Ovako vbMinimizedNoFocus e dali da vidimo program dok se pakuju podatke tu imas vise izbora ja koristim ova ali evo pogledaj na sliku sta cu staviti

strString = Program & VoRar & Fajlovi 'stavimo u strString

ova je u redu samo ovde u ovaj string treba jos staviti i ono slovo "a"

za testirajne stringa dali je dobro uradzen ja uvjek stavim jedan msgbox i u njega stavim string koi treba se izvrsavati da pogledam kako to izgleda i ako je u redu nazoves funkcija shelandwait

ovako bi trebalo da izgleda kod tebe sa to sto bin fajlovi bi bili u folder pored program koj se zobe Bazi a zip fajl nakon pakovajne nalazice se u C: direktorium

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim Program As String
  2.          Program = App.path & "\7za.exe"            ' treba da ima rar.exe vo istiot direktorium od ovaj program
  3. Dim Fajlovi As String
  4.          Fajlovi= App.path & "\Bazi\*.bin"
  5.  Dim VoRar As String
  6.          VoRar= "C\data.zip"
  7.  Dim strString As String  
  8.          strString=  Program & " a " &  VoRar & " "  &  VoRar
  9.          Msgbox  strString  ' da pogledas kako izgleda komplet
  10.  
  11.  
  12.      ' e sad ovde vec se izvrsi pakovajne podatke
  13.     ShellAndWait strString, vbMinimizedNoFocus

Avko (13.05.2015 13:11):
Predmet: Re: Gzip arhiver
ma ja sam tebe trebao uslugu pa sam preveo da se ti ne mucis, ali eto dobro

a ovo vbMinimizedNoFocus sta je to?
vidio sam u knjizi pise vbNormalFocus, sta tu trebam staviti, mislim koji parametar
i jos nesto ako definiram kao i ti:

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim Program As String
  2. Program = App.path & "\RAR.EXE"            
  3. Dim Fajlovi As String
  4. Fajlovi= App.path & "\Bazi\*.mdb"
  5. Dim VoRar As String
  6. VoRar= "C\Bazi.rar"

kako ce izgledati shell naredba, mozda ovako?
ShellAndWait Program & VoRar & Fajlovi, vbMinimizedNoFocus
ili cemo ovo: Program & VoRar & Fajlovi staviti u neki string recimo strString
PreuzmiIzvorni kôd (Visual Basic):
  1. strString = Program & VoRar & Fajlovi 'stavimo u strString
  2. ShellAndWait strString, vbMinimizedNoFocus 'onda pozovemo shell sa tim stringom

necemo sada o progresbaru jer je i ovo za mene tesko pa cemo to prvo rijesiti a onda vidicemo ko živ,ko mrtav.
necemo zxz pozvati, ako ga pozovemo onda ce on napisati kod sve rijesiti i onda nesmijem nista ni pitati. Odma bi mi rekao: Opet, neznaš?! Evo ti kec u imenik. Grinning

Gjoreski (13.05.2015 12:28):
Predmet: Re: Gzip arhiver
I jos nesto od iskustva:
Kad radis pakovajne fajlove moras dobro napisati puteve odakle su fajlove na koja lokacija ide i gde se nalazi program so koi pakujes u tvom slucaju 7za.exe

Ja kod mene uvek i definiram kao stringove pred pocetka izvrsavakne procesa primer:
PreuzmiIzvorni kôd (Visual Basic):
  1.  Dim Program As String
  2.           Program = App.path & "\RAR.EXE"            ' treba da ima rar.exe vo istiot direktorium od ovaj program
  3.                Dim Fajlovi As String
  4.                        Fajlovi= App.path & "\Bazi\*.mdb"
  5.                  Dim VoRar As String
  6.                         VoRar= "C\Bazi.rar"

Gjoreski (13.05.2015 12:20):
Predmet: Re: Gzip arhiver
Slobodno pisuvaj na tvom jeziku ja te sve razumem ovo sa prevodom na google translate nije dobro.
E sad ovako.
Ne treba razumeti funkcija sta radi one e vec uradzena i testirana i oko nje prica e zavrsena tako da ne ulazimo u sustine funkcija.

Ti uradi sledece:
Stavi ovaj cod u neki modul.

I u tvoj cod na mesto gde koristis naredba Shell zameni ja sa ShelAndWait ovako na primer:

ShellAndWait "7za a data.zip *.bin", vbMinimizedNoFocus

E sad sta se desava da bolje razumes sta radi funkcija.

Ova funkcija zaustavi ce program odbosno (Program bice blokitran) dok se podatci pakuju ,a kad zavrsi proces sve vraca se vo normala.
To je dobro ako imas puno podatke koi trebas spakovati i za pakovajne treba vise vremena a u medzuvremenu da ne bi korisnik opet pokrenuo proces za pakovajne.

Naredba Shell mozes vise puta pozvati a program ne zna dali je predhodni proces zavrsio.
Ako nesto nije jasno pisi.

Za progres barom malo kasnije jer i ja ga nekoristim mozda ZXZ moze tu da pomozi malo.

Avko (13.05.2015 10:35):
Predmet: Re: Gzip arhiver
Sad
Tovar za mene , čovek. Å¡to go napiÅ¡a ridot linii i Jas baram na toa kako tele vo Å¡arena vrata. AJde, ako ne ti preči napiÅ¡ete mi deka Jas go koristam so moite ona Å¡to mi treba .
Imam data.bin datoteka koJa ima kompresirana vo nego datoteki so ekstenziJa za otpadoci. Od glavnite formi se založi deka vašiot modul , kako?
za data.bin datoteka može da se napiše vaka:
Čadot strString kako String
strString = App.Path & " \ data.bin "
sega ḱe se Javite na vaÅ¡iot modul i raskomprimirao data.bin vo ista papka so upotreba progresbar koi veḱe imaat Forma1
Jas ne go razbiraat ona Å¡to process_id i process_handle
vie ne mora da doJde, koga ḱe se fati vaÅ¡eto vreme i koga sakate

Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 9: 51 am.