Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249230 (10666)
  Suchen
 Zurück zur Übersicht
 AutorThema: Videos im DivX Format lesen
Lang Peter
Datum:23.01.02 13:49 Antwortenals Email verschicken (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.


Ralph Theobald
Datum: 23.01.02 15:01 Antwortenals Email verschicken (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
'------------------------------------------------


 Zurück zur Übersicht