Centar za edukaciju-BiH

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


Prosiri i skupi Opcije teme
Stranice (3):1,2,3
 Prikazi prvu neprocitanu poruku

#11 13.05.2015 13:11
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,807


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
zivot je moja domovina.
↑  ↓

#12 13.05.2015 13:51
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


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


Prilozi:
Informacije o tipu datoteke za:bmp  1.bmp
Preuzimanja:287
Velicina datoteke:273.96 KB

↑  ↓

#13 14.05.2015 10:07
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,807


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
zivot je moja domovina.
↑  ↓

#14 14.05.2015 11:04
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


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
↑  ↓

#15 14.05.2015 12:03
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,807


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
zivot je moja domovina.
Ovaj post je ureden 2 puta. Posljednja izmjena 14.05.2015 12:39 od strane Avko. ↑  ↓

#16 14.05.2015 12:29
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


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

Prilozi:
Informacije o tipu datoteke za:rar  zipTest.rar
Preuzimanja:291
Velicina datoteke:282.40 KB

↑  ↓

#17 14.05.2015 12:38
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


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
↑  ↓

#18 14.05.2015 13:28
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,807


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.
zivot je moja domovina.
↑  ↓

#19 14.05.2015 13:44
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


Predmet:Re: Gzip arhiver
Kako ti se zove command butone da nije problem u njima
↑  ↓

#20 14.05.2015 13:57
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,807


Predmet:Re: Gzip arhiver
(Name) Command1

(Name) Command2

Prilozi:
Informacije o tipu datoteke za:rar  zipunzip.rar
Preuzimanja:285
Velicina datoteke:281.13 KB

zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 14.05.2015 14:03 od strane Avko. ↑  ↓

Stranice (3):1,2,3

Ko je online?

Aktivni clanovi:
nema clanova


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