[es] - Kako pokrenuti video fajl???

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

^{18.05.2005. u 16:42 - pre 230 meseci}

Potrebna mi je komanda koje ce pokrenuti neki video fajl (avi, mpg, mgep...) u Windows Media Player-u.

There are only 10 types of people in the world:
those who understand binary, and those who don't.

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Kako pokrenuti video fajl???

^{18.05.2005. u 17:48 - pre 230 meseci}

Code:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Const SW_SHOWNORMAL = 1

Private Sub Form_Load()
ShellExecute Me.hwnd, vbNullString, "C:\SomeFile.avi", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Blue Man Group

Odgovor na temu

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

Re: Kako pokrenuti video fajl???

^{19.05.2005. u 11:56 - pre 230 meseci}

Meni je potrebno da program sam pronadje video fajl (avi, mpeg, mpg...)
Pravim nesto kao AutoRun za CD-ove i potrebno je da klikom na odredjeno dugme krene video (koji je definisan za to dugme)

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com

Profil

Re: Kako pokrenuti video fajl???

^{19.05.2005. u 20:13 - pre 230 meseci}

Koristi kod koji ti je mladenovicz dao samo umesto ovog :

Code:
Private Sub Form_Load()
ShellExecute Me.hwnd, vbNullString, "C:\SomeFile.avi", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Stavi :

Code:

Private Sub command1_Click()
ShellExecute Me.hwnd, vbNullString, "C:\SomeFile.avi", vbNullString, "C:\", SW_SHOWNORMAL
End Sub

Ili vec kako ti je dugme definisano.

Zdravo

Odgovor na temu

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

Re: Kako pokrenuti video fajl???

^{20.05.2005. u 09:49 - pre 230 meseci}

OK, a da li moze umesto ovog

Code:
ShellExecute Me.hwnd, vbNullString, "C:\SomeFile.avi", vbNullString, "C:\", SW_SHOWNORMAL

da stoji:

Code:
ShellExecute Me.hwnd, vbNullString, App.Path & "\Video\SomeFile.avi", vbNullString, "C:\", SW_SHOWNORMAL

I da li mora da bude *.avi, ili moze i neka druga extenzija (npr. MPG, MPEG...)???

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com

Profil

Re: Kako pokrenuti video fajl???

^{20.05.2005. u 10:28 - pre 230 meseci}

Trebalo bi da moze mada nisam siguran
Probaj pa ces videti:)

Zdravo

Odgovor na temu

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

Re: Kako pokrenuti video fajl???

^{20.05.2005. u 10:35 - pre 230 meseci}

OK, Moze sa App.Path, Probao sam...

P.S. Još mi je bitno da se taj video fajl pokrene u WindowsMedia Player-u!
(kao što određeni Autorun-ovi filmove pokreću u, recimo, MicroDVD Player-u, ja bih hteo da se video fajlovi pokrenuti pomocu mog Autorun-a pokrenu u WinMedia Player-u)

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

Re: Kako pokrenuti video fajl???

^{20.05.2005. u 16:08 - pre 230 meseci}

Ljudi, treba mi pomoć da napravim My Own AutoRun progy!!!
Hteo sam da ga napravim, ali pošto sam početnik u VB, maaalooo(!) mi ne ide.

Problem je u tome što ne znam kako da napravim da progy izčitava podatke iz ini-ja (video sam na forumu nekoliko pitanja na ovu temu, ali mi nikako nije jasno kako to da napravim).
Drugi problem je što bih ja da napravim AutoRun koji će video fajlove pokretati u WinMediaPlayer-u...
(ideja je da progy koristi to što svaki Windows ima instaliran WinMediaPlayer, pa da tako pokreće fajlove...PROBLEM!)

Znači, trebaju mi kodovi za:
1) Izčitavanje podataka iz ini-ja;
2) Pokretanje video fajlova (imam neke kodove od Mladenovic_ Z-a, ali to nije ono mi treba);
3)Video fajl mora(!) biti pokrenut u WinMediaPlayer-u

*** Kao što ostali AutoRun programi pokreću video fajl (film, najčešće) u npr. MicroDVD Player-u (kod njih se player nalazi direktno na CD-u), ja bih da moj program pokrene video fajlove u WinMediaPlayer-u (koji je instaliran na compu)

Ako neko zna kako ovo da uradim (i hoće da mi kaže i pomogne) molim ga da mi to objavi na ovom forumu!!!

HVALA!!!

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

Re: Kako pokrenuti video fajl???

^{20.05.2005. u 16:12 - pre 230 meseci}

Da, još nešto...
Što se tiče koda koji su mi da li MladenovicZ i nsofft ::>

Code:

ShellExecute Me.hwnd, vbNullString, "C:\SomeFile.avi", vbNullString, "C:\", SW_SHOWNORMAL

to je OK i funkcioniše (probao sam da ubacim App.Path & "\SomeFile.avi"), ali interesuje me da li je moguće da ovo

Code:

"C:\SomeFile.avi"

program sam izvuče iz ini-ja?? Ako je moguće, KAKO GLASI CODE??

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Kako pokrenuti video fajl???

^{20.05.2005. u 17:45 - pre 230 meseci}

1.) Za pisanje i čitanje iz ini fajla, pogledaj ovo
http://www.elitesecurity.org/tema/9629/
http://www.elitesecurity.org/tema/85101/
http://www.elitesecurity.org/tema/26410/

2.) i 3.) Za puštanje u Media Playeru

Code:
Shell "C:\Program Files\Windows Media Player\wmplayer.exe /Play C:\SomeFile.avi"

Naravno, putanja do WMPlayera mora biti ta koja je napisana, pa to može predstavljati problem.Trebao bi da pogledaš funkcije za pronalaženje putanje Program Files foldera.O tome i još nekim stvarima u vezi putanja imaš ovde
http://www.elitesecurity.org/tema/60048/

Onaj kod koji ti je mladenovicz ostavio otvara fajl u default playeru što ti je možda i najbolja solucija.

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Odgovor na temu

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

Re: Kako pokrenuti video fajl???

^{20.05.2005. u 19:10 - pre 230 meseci}

Putanja do WMPlayera nije problem, frka nastaje kada progy treba da otvori fajl...
Hocu da ga napravim tako da se samo editovanjem ini-ja menja i funkcija programa
(promenom vrednosti za svaki Button, menja se i njegova uloga)
Dakle, potrebno mi je da program cita putanju do fajla iz ini-ja, znači da ono

Code:

"C:\someFile.avi"

ShellExecute Me.hwnd, vbNullString, < OVO ČITA IZ INI-ja >, vbNullString, "C:\", SW_SHOWNORMAL

program sam procita iz ini-ja (za to cu mu odrediti posebno koja linija je za fajl)

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Kako pokrenuti video fajl???

^{20.05.2005. u 20:20 - pre 230 meseci}

Pa, ja ti dadoh 3 teme na kojima imaš detaljno objašnjenje kako upisati ili pročitati nešto iz ini fajla.Jesi li ih barem pogledao ?

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12848

+4784 Profil

Re: Kako pokrenuti video fajl???

^{20.05.2005. u 20:24 - pre 230 meseci}

I sta je tu problem? Napravi promenljivu tipa String i u nju procitaj iz .ini fajla putanju. Posle samo umesto putanje u ShellExecute napisi ime promenljive.

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

Re: Kako pokrenuti video fajl???

^{21.05.2005. u 10:50 - pre 230 meseci}

E ljudi, daj da malo olakšamo stvar... Neću da koristim .ini, koristiću neki .txt fajl.
Probao sam sa promenljivom (definisao sam promenljivu sa FILM) i samo mi pokrene WMPlayer, UOPŠTE NE UČITAVA FAJL!!! Može li neko da da najprostiji primer kako da pročitam red iz txt fajla(i da je definišem nekom promenljivom) i da u Shell ubacim tu promeljivu...
Ja sam probao ovako:

Code:

Private Sub Command1_Click()
Dim FILM As String
Open App.Path & "\test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, FILM
Shell "C:\Program Files\Windows Media Player\wmplayer.exe /Play FILM", vbNormalFocus
Loop
Close #1
End Sub

Pogrešio sam, to je sigurno(čim neće da otvori fajl) samo ne zne gde?

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Kako pokrenuti video fajl???

^{21.05.2005. u 11:43 - pre 230 meseci}

pokusaj ovako:

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

Re: Kako pokrenuti video fajl???

^{21.05.2005. u 12:14 - pre 230 meseci}

OK, To je TO!! RADI!

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

Re: Kako pokrenuti video fajl???

^{21.05.2005. u 19:46 - pre 230 meseci}

Dobro, sad ćete reći da ni sam ne znam šta hoću...
1) Probao sam sa *.txt fajlom, i radi kada upišem kompletan PATH (C:\Video\NekiFajl.mpg), ali NEĆE da radi kada koristim App.Path
(App.Path & "\Video\NekiFajl.mpg")! Kako ovo da napravim???

2) Malo sam experimentisao sa *.ini-jem i svidelo mi se kako radi... [

] Sad bih probao to isto da izvedem sa *.ini-jem, ali problen nastaje kada treba da zamenim Path sa promenljivom...
Probao sam ovako:

Code:

Private Sub Form_Load()
    Fajl$ = "C:\INI\Player.ini"
    WriteProfile "Dugme1", "Naziv", "Pusti film", Fajl$
    WriteProfile "Dugme1", "Film", "C:\Autorun\Video\Killer.avi", Fajl$
    Command1.Caption = GetProfile("Dugme1", "Naziv", "No Data", Fajl$)
End Sub

Private Sub Command1_Click()
    Dim Film As String
    Film = GetProfile("Dugme1", "Film", "No Data", Fajl$)
    Shell "C:\Program Files\Windows Media Player\wmplayer.exe /Play " & Film, vbMaximizedFocus
End Sub

INI fajl mi izgleda ovako:
[Dugme1]
Naziv=Pusti film
Film=C:\Video\Killer.avi

VIDI li neko problem, i ako vidi (a i ako ne vidi

) neka mi pomogne!!

P.S. da li može ovo "C:\Video\NekiFajl.mpg" da se zameni sa
App.Path & "\Video\NekiFajl.mpg"???

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Kako pokrenuti video fajl???

^{21.05.2005. u 22:52 - pre 230 meseci}

ovako, napravi ovakav ini:

Code:

[Dugme1]
Naziv=Pusti Film
Film=\Video\Killer.avi

i isprobaj ovaj kod:

Code:

Dim Fajl As String
Private Sub Form_Load()
    Fajl = App.Path & "\Player.ini"
    Command1.Caption = GetProfile("Dugme1", "Naziv", "No Data", Fajl)
End Sub

Private Sub Command1_Click()
    Dim Film As String
    Film = App.Path & GetProfile("Dugme1", "Film", "No Data", Fajl)
    Shell "C:\Program Files\Windows Media Player\wmplayer.exe /Play " & Film, vbMaximizedFocus
End Sub

Player.ini mora da ti se nalazi u istom folderu sa tvojim programom i taj folder (u kome se oni nalaze) mora da ima podfolder "Video" koji ima fajl "Killer.avi" :p uostalom snacices se...

poz

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

shpiki
Student
Novi Sad

Član broj: 50342
Poruke: 1651

+62 Profil

Re: Kako pokrenuti video fajl???

^{22.05.2005. u 21:33 - pre 230 meseci}

Vec sam provalio u čemu je stvar, ali u svakom slučaju HVALA TI!!!

Ja sam napravio ovako:

Code:

Private Sub Command1_Click()
Fajl$ = App.Path & "\Player.ini"
Shell "C:\Program Files\Windows Media Player\wmplayer.exe /Play" _
& App.Path & "\" & GetProfile("Dugme1", "Pokreni", "No Data", Fajl$), vbMaximizedFocus
End Sub

Private Sub Form_Load()
Fajl$ = App.Path & "\Player.ini"
Me.Caption = GetProfile("Opšte", "Naslov", "No Data", Fajl$)
Command1.Caption = GetProfile("Dugme1", "Naziv", "No Data", Fajl$)
End Sub

Sad imam drugi problem (bilo bi čudno da nemam)...
Namestio sam:

Code:

Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path & "\" & GetProfile("Opšte", "Slika", "", Fajl$))
End Sub

Problem je što mi prikazuje grešku kada je mesto pored slike prazno(Slika= <nema ništa> u ini-ju)... Prikazuje Path not found!

Kako da namestim da kada putanja(i fajl) kod slike nisu upisani, u Image1 ne bude slika?

There are only 10 types of people in the world:
those who understand binary, and those who don't.

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Kako pokrenuti video fajl???

^{22.05.2005. u 22:06 - pre 230 meseci}

Pa logično da ti vraća Path not found, kad mu daješ App.Path + "\" + prazan string, pa dobiješ nešto tipa "C:\Player\" i naravno nigde fajla :)
Stavi jednu prostu proveru ima li nečega u ini-ju pa ako ima onda učitaj.Nešto ovako

Code:
Private Sub Form_Load()
If GetProfile("Opšte", "Slika", "", Fajl$) = "" Then
Image1.Picture = LoadPicture(None)
Else
Image1.Picture = LoadPicture(App.Path & "\" & GetProfile("Opšte", "Slika", "", Fajl$))
End If
End Sub

Odgovor na temu