forum.boolean.name - Загрузка видео

forum.boolean.name (http://forum.boolean.name/index.php)

- 3D-программирование (http://forum.boolean.name/forumdisplay.php?f=12)

- - Загрузка видео (http://forum.boolean.name/showthread.php?t=1956)

Загрузка видео

Можно ли в блитце видео проигрывать? А то, хотел заставки загрузить... но не знаю как, формат *.avi

Re: Загрузка видео

можно, используй функции из раздела 2D справки DirectShow
OpenMovie
CloseMovie
DrawMovie
MovieWidth
MovieHeight
MoviePlaying

Re: Загрузка видео

Спасибо, но он пишет:
Memory access violation

Re: Загрузка видео

Debug-ер включен?
приводи код, а то х/з из за чего так.

Re: Загрузка видео

Включен, ему не нравиться, то DrawMovie, то MoviePlaying..
код:

Graphics3D 640,480,32,1
SetBuffer BackBuffer()

OpenMovie s=("33.avi")
DrawMovie s

camera=CreateCamera()

light=CreateLight()
RotateEntity light,90,0,0

;грузим пушку
drum=LoadMesh("gun.3ds")

PositionEntity drum,20,-60,100
RotateEntity drum,0,180,0

While Not KeyDown( 1 )
RenderWorld
Updateworld
Flip
Wend

End

Re: Загрузка видео

MoviePlaying не нашел в твоем коде, выдели жирным ;)

ето, я так понял интродукционный фильм. то есть сначала фильм - потом игра.
делаем так:

s=OpenMovie("33.avi")
; пока проигрывается фильм или никто не нажимает пробел играем фильм
while MoviePlaying(s) or keydown(57)=0
DrawMovie s
flip
wend
дальше идет код игры

p.s. не нашел FreeMovie, если найдеш допиши после Wend/

Re: Загрузка видео

Я его сменил на DrawMovie ;) , тока видео все равно не играется, просто черный экран и все....

Re: Загрузка видео

Цитата:

OpenMovie
CloseMovie
DrawMovie
MovieWidth
MovieHeight
MoviePlaying

Вставь любую из каманд в блиц, выдели её, и два раза нажди F1. В хэлпе прикольно(тупой) пример. :)

Re: Загрузка видео

У мя нету их в хелпе, поэтому я и создал такую тему ;) ты не мог бы копернуть примерчик сюда?

Re: Загрузка видео

Вот стандартный пример

Код:

; Movie Commands Example

; ======================

; This demonstrates the following commands:

;

; OpenMovie

; MovieHeight

; MovieWidth

; MoviePlaying

; DrawMovie



; Some constants to start with

Const WIDTH = 640

Const HEIGHT = 480



; First of all, set up the graphics

Graphics WIDTH, HEIGHT

SetBuffer BackBuffer()

ClsColor 0,0,0

Color 0,255,0



; Next, open the movie file. Feel free to change this to an AVI or MPEG file.

movie=OpenMovie("media/hat.gif")



; check to see if it loaded okay

If movie=0 Then RuntimeError "Error - Movie not loaded!"

If Not(MoviePlaying(movie)) Then RuntimeError "Error - Movie not playing!"



;Now determine the size of the movie

w=MovieWidth(movie) ; the width of the movie

h=MovieHeight(movie) ; the height of the movie



; Now set up the starting position and timing variables

x=(WIDTH-w)/2 ; the x position of the movie on screen

y=(HEIGHT-h-100)/2 ; the y position of the movie on screen

period=100 ; the interval between frames

time=MilliSecs() ; the time of the last frame update



; And here's the main loop

Repeat



; Wait for the specified period



; GIFs have no timing info, and as such will redraw the next frame on each call to DrawMovie.

; AVIs and MPEGs do have timing info, and as such will redraw the most recent frame on each call to DrawMovie.

; Ergo, this time limiter only has an impact, and is only required for GIFs.

Repeat

; do nothing

Until MilliSecs()-time>=period

time=MilliSecs() ; save the current time for the next frame



; Handle keyboard inputs



; CONTROL adjusts the speed with which we do stuff 

If KeyDown(29) Or KeyDown(157) Then

change=5

Else

change=1

End If



; SHIFT means we're dealing with the size

If KeyDown(42) Or KeyDown(54) Then

If KeyDown(203) And w>change-1 Then w=w-change

If KeyDown(205) And x+w+change

If KeyDown(200) And h>change-1 Then h=h-change

If KeyDown(208) And y+h+change

Else

; otherwise it's the position that we're changing

If KeyDown(203) And x>change-1 Then x=x-change

If KeyDown(205) And x+w+change

If KeyDown(200) And y>change-1 Then y=y-change

If KeyDown(208) And y+h+change

EndIf



; +/- to change the animation speed

If ( KeyDown(13) Or KeyDown(78) ) And period>change Then period=period-change

If ( KeyDown(12) Or KeyDown(74) ) And period

<500 Then period=period+change>

; Redraw the screen, by...



Cls ; clear the screen

DrawMovie movie,x,y,w,h ; draw the movie

; draw the instructions

Text 0,0,"Use the arrow keys to reposition the movie." 

Text 0,20,"Hold SHIFT with the arrow keys to resize." 

Text 0,40,"Use + or - or control the animation speed."

Text 0,60,"Hold CONTROL to resize, move, or change speed faster." 

Text 0,80,"Press ESCAPE to exit."

Text 0,100,"Current Command Syntax: DrawMovie(movie, " + x + ","+ y + "," + w + "," + h + ")"

; Flip the buffers

Flip 



Until KeyHit(1) ; Escape to exit



; Remove the movie from memory before closing down

CloseMovie(movie)



End ; bye!

вот ето работает (проверенно):

Код:

Graphics 800,600,32,1

SetBuffer BackBuffer()

s=OpenMovie("it's war.mpg")



While MoviePlaying(s) And KeyDown(57)=0

DrawMovie s,0,0,800,600

Text 10,10,MoviePlaying(s)

Wend

CloseMovie s



Graphics3D 800,600,32,1

;далее идет сама игра

End

Re: Загрузка видео

Цитата:

Сообщение от HolyDel

вот ето работает (проверенно):

И у меня даже работает.:doof: Только почему-то видео не показывает(черный экран) и только звук слышно.:(

Re: Загрузка видео

кодеки поставьте

Re: Загрузка видео

BoB, прав, видео нету, но еси написать так:

s=OpenMovie("33.avi")
; пока проигрывается фильм или никто не нажимает пробел играем фильм
While MoviePlaying(s) Or KeyDown(57)=0
DrawMovie s,0,0,640,480
Text 10,10,MoviePlaying(s)
Flip
Wend

то все работает и видео и звук ;) :ok:

ток одна проблема:

Graphics3D 640,480,32,1
SetBuffer BackBuffer()

s=OpenMovie("33.avi")
;заставка
Repeat
DrawMovie s,0,0,640,480
MoviePlaying(s)
Flip
Until MoviePlaying(s)<>1 Or KeyDown(57)<>0
CloseMovie(s)

While Not KeyDown(1)

camera=CreateCamera()

light=CreateLight()
RotateEntity light,90,0,0

;пушка
drum=LoadMesh("gun.3ds")

PositionEntity drum,20,-60,100
RotateEntity drum,0,180,0

RenderWorld
UpdateWorld
Flip
Wend
End

После выключения заставки Escape срабатывает тока с 3 раза, т.е программа не выключается пока несколько раз не нажмешь Еscape, кто знает как это дело исправить?

Re: Загрузка видео

А почему камера, свет создаются в цикле? да и меш тоже грузится.
ето все надо вынести за цикл (точнее перед цикл).

camera=CreateCamera()

light=CreateLight()
RotateEntity light,90,0,0

;пушка
drum=LoadMesh("gun.3ds")

PositionEntity drum,20,-60,100
RotateEntity drum,0,180,0

While Not KeyDown(1)
RenderWorld
UpdateWorld
Flip
Wend
End

так что-ли.

Re: Загрузка видео

Оооооо....в цикл это жестоко :)

Re: Загрузка видео

Я ваще думал что блитз не тянет видео