Autor | Thema: Videos im DivX Format lesen | | Datum:23.01.02 13:49 
(bka-edv@web.de) | |
Da DivX die AVI-Filme sehr klein hält, würde ich gerne ein Programm schreiben, das DivX-Filme laden und laufen lassen kann. Ist das unter Profan möglich, und wenn ja wie?
Bin für jede Hilfe dankbar.
|
| | Datum: 23.01.02 15:01 
(rc.theobald@t-online.de) | |
Hallo Andreas,
wenn der verwendete Divx - Codec installiert ist,läuft der
Film in jedem Player.
In Profan kann man MCI benutzen.Der Programmcode stammt,
glaube ich , aus einer der Maillisten von Profan.
Ich hoffe, ich konnte Dir helfen.
'---------------------------------------
Cls
Declare A$,B$,ende%,c$
Proc aviplay
Let A$=@ADD$(@ADD$("OPEN ",A$),\
" TYPE AVIVIDEO ALIAS FILM")
Let B$=@MCISend$(A$)
Case %MCIError: Print "Fehler: ";B$
Let B$=@MCISend$("PLAY FILM")
WaitMouse
Let B$=@MCISend$("CLOSE FILM")
Let A$=@LOADFILE$("FILM-DATEI","*.AVI")
Endproc
WindowTitle "Testprogramm AVI-Video"
Let A$=@LOADFILE$("FILM-DATEI","*.AVI")
While @NEQ$(A$,"")
aviplay
Wend
End
'------------------------------------------------
|
|
|