Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249230 (10666)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Videos im DivX Format lesen
Lang Peter
| 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.
Ralph Theobald
| 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 '------------------------------------------------

| Zurück zur Übersicht