Italia
Fonte/ Codesnippets

Abspielen Avi Fenster

 

KompilierenMarkierenSeparieren
 
16.07.2007  
 




E.T.
Mal etwas ergänzt / verfeinert (wer's braucht..)
KompilierenMarkierenSeparieren
'Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
'AVI im Fenster abspielen
'Souce angepasst von E.T. am 12.12.2010
'Änderung:
'	Übergabe des zu startenden Video's mit vollem (langem) Verz.\Name
'	TYPE: MPEGVIDEO, da komprim. Avi's nicht abgespielt wurden, getestet mit DivX(funzt auch bei unkompr. avi's)
'	Spielzeit berechnen anhand Längen-Info und Frame-Info aus Datei
'	Video-Abmessungen ermitteln und V-Fenster positionieren (hier: zentriert im HWnd)
'	Warte-Zeit bis Ende, kann jederzeit durch Taste oder Maus abgebrochen werden
declare a$, T%, H%, F%, Vx%, Vy%
@Set("Decimals",0)'sonst sind die Ausgaben so ewig lang
WindowStyle 16+64'kein Titel, kein Menü
window %MaxX,%MaxY'Vollbild
cls 0'Geschmacks-Sache
a$=loadfile$("AVI-Film im Profan-Fenster abspielen","AVI-Filme (*.avi)|*.avi")
print a$'INFO: Datei-Name
case %button=2:end
mcisend$("OPEN \q"+a$+"\q TYPE MPEGVIDEO ALIAS MOVIE")'AVIVIDEO bei unkompr. Avi's
T% = @Val(mcisend$("STATUS MOVIE LENGTH"))'Länge bei 100Frames/sec
F% = @Val(mcisend$("STATUS MOVIE nominal frame rate"))/1000'durchschnittl. Frames/sec
H% = @Val(mcisend$("STATUS MOVIE WINDOW HANDLE"))'Handle des Movie-Fensters ermitteln
print "Time :",@str$(T%/F%),"sec."'INFO: Spielzeit
print "Framerate :",@str$(F%)'INFO: Durchschn. Framerate
mcisend$("WINDOW MOVIE HANDLE "+str$(%hwnd))'Video ins HWnd
Vx% = (@Width(%HWnd)/2) - (@Width(H%)/2)'X zentrieren
Vy% = (@Height(%HWnd)/2) - (@Height(H%)/2)'YZentrieren
mcisend$("PUT MOVIE DESTINATION AT " + @str$(Vx%) + " " + @str$(Vy%) + " 0 0")'VideoFenster Zentriert im Hwnd
mcisend$("PLAY MOVIE")'abspielen
SetTimer (T%/F%*1000)'Warten bis Video fertig
waitinput'oder gleich weiter bei Taste / Mausklick
Killtimer'Timer löschen
mcisend$("CLOSE MOVIE")'Video schließen
print "Beendet !!"'Na sowas...
waitinput'...auf was auch immer


Was so noch alles mit MCI geht:
[...] 
 
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...
13.12.2010  
 



Zum Quelltext


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

7.384 Views

Untitledvor 0 min.
Gast.081524.08.2024
Frank16.04.2021
Sven Bader05.04.2021
RudiB.25.04.2020
Di più...

Themeninformationen

Dieses Thema hat 2 subscriber:

E.T. (1x)
unbekannt (1x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie