Allgemeine Fragen zur PROFAN Programmierung
Views (Heute): 249390 (10826)
  Suchen
 Zurück zur Übersicht
 AutorThema: Video-ohne Fensterrahmen ...
Jens Berger
Datum:25.10.01 15:08 Antwortenals Email verschicken (www.@audi-o-book.com) 


Hallo Ihr Profis da draußen !!!

Ich bin begeisterter Profananhänger (seit 3Monaten)und habe mir eine Animations-CD zusammengebastelt.
Nun habe ich folgendes Problem.
Um ein "Video"(eigentlich Animation)abzuspielen, habe ich es mit einer unsichtbaren BMP probiert...Problem:
die BMP-Größe ist begrenzt.Für ein Video(Animation) von etwa
2,5 Minuten also nicht möglich.
Zweite Möglichkeit ist mit MCISend$(...)die AVI-VideoDatei(richtiges Video) abzuspielen.
Nun bin ich zu blöd, den störenden Rahmen und die Titelleiste wegzubekommen, um nur das reine
VideoBild auf einem schwarzen Hintergr. und in der Mitte abspielen zu können.
FRAGE: Wie kann ich Windowstyle auf das Video-Fenster anwenden ??? (Ich krieg's einfach nicht hin)

Habt vielen Dank für Eure Hilfe
jens



Sascha Willecke
Datum:25.10.01 17:28 Antwortenals Email verschicken (sascha@willecke-net.de) 


Hallo,

also ich habe so einen Code mal gehabt der stellt das video dar ohne kontrolleiste rahmen etc.! Muss ich aber er suchen werden ihn dann hier posten!

Aber sag mal ist avi nicht immer noch zu groß was die datei größe betrifft!? MPEG wäre besser aber ich kann ich leider wieder nicht sagen ob das mit profan abgespielt werden kann!

Gruß
Sascha


Thorsten
Datum:25.10.01 18:46 Antwortenals Email verschicken (mrk@mrk-soft.de) 


Hiermit kannste ein AVI-Video ohne Rahmen,
ect abspielen, benutzt wird dazu ein Controll.

Das Controll sollte genau die grösse haben,
wie das AVI-Video ...


'AVI Animate unter Profan 32, ohne Fenster

DEF @CreateAnimate(6) @control("SysAnimate32",@$(2),$50800007,@%(3),@%(4),@%(5),@%(6),@%(1),101, %HInstance)

WindowStyle 26
WindowTitle " Animate 32"
Window 1,1-320,240
Settruecolor 1
cls rgb(75,75,192)


declare ende%
declare animate&
declare b1%,b2%, b3%

Declare avi#

proc PlayAVI
 parameters avi$,nx1%, ny1%, nx2%, ny2%
 Dim avi#,255
 let Animate&=CreateAnimate(%Hwnd,"",nx1%,ny1%,nx2%,ny2%)
 String avi#,0=avi$
 sendmessage(Animate&,$464,0,avi#)       'ACM_OPEN = WM_USER + 100
 Dispose avi#
endproc

let b1% = @Createbutton(%Hwnd,"Start",10,10,90,20)
let b2% = @CreateButton(%Hwnd,"Stop" ,100,10,90,20)
let b3% = @Createbutton(%Hwnd,"Close",200,10,90,20)

PlayAVI "film.avi" ,70,70,150,80

Dim avi#,255
String avi#,0 = "film.avi"

Let Ende%=0
Whilenot Ende%

 Case getfocus(b2%) : sendmessage(Animate&,$466,0,0)  'ACM_STOP = WM_USER + 102
 Case getfocus(b1%) : sendmessage(Animate&,$464,0,avi#)   'ACM_OPEN = WM_USER + 100
 Case or(equ(%Key,4),getfocus(b3%)) : ende% = 1
wend

Dispose avi#

'---------------------------
'ICC_ANIMATE_CLASS = $80
'ANIMATE_CLASS     = "SysAnimate32"
'WM_USER           = $400
'ACS_CENTER        = $1
'ACS_TRANSPARENT   = $2
'ACS_AUTOPLAY      = $4
'ACM_OPEN = WM_USER + 100
'ACM_PLAY = WM_USER + 101
'ACM_STOP = WM_USER + 102
'WS_EX_TRANSPARENT = $20
'-------------------------




Moritz Kersten
Datum:25.10.01 22:17 Antwortenals Email verschicken (IsNoGood2000@aol.com) 


Hallo,

ich hab hier noch ein Beispiel, zudem kann auch noch die Größe des Videos frei eingestellt werden, das Beispiel stammt nicht von mir, ich weiß auch nicht mehr von wem es war, aber es hilft dir bestimmt weiter.

x%=100 ' x - Ausgabekoordinate
y%=100 ' y - Ausgabekoordinate
b%=320 ' b - Breite der Ausgabe
h%=240 ' h - Höhe der Ausgabe

handle$=@Str$(%HWnd)
b$="logo.avi"
b$=@ADD$(@ADD$("OPEN ",b$)," TYPE AVIVIDEO ALIAS FILM")
b$=@MCISend$(b$)

b$="WINDOW FILM Handle ";handle$
@MCISend$(b$)
b$="PUT FILM DESTINATION AT ";@Str$(x%),@Str$(y%),@Str$(b%),@Str$(h%)
@MCISend$(b$)

mfg Moritz


M.Heinemann
Datum:26.10.01 10:28 Antwortenals Email verschicken (mathias.heinemann@web.de) 


Gehen irgendwie beide nicht. Hab WIN2000.

Liegt vielleicht daran.




Jens Berger
Datum: 27.10.01 19:12 Antwortenals Email verschicken (www.@audi-o-book.com) 


Habt erstmal vielen Dank für Eure promte Hilfe!!!
Hallo Thorsten! Ich hab mir wirklich Mühe gegeben, aber Du hast mich ganz schön ins schwitzen gebracht - da mir einfach noch einige
Grundlagen fehlen um dies ordentlich zu ende
zu bringen - oder zum laufen.
Man könnte auch sagen: ich bin noch zu blöd!
Kannst Du mir an einem Beispiel für die @Control etwas entgegenkommen?
z.B. Ich möchte ein Viedeo(AVI) in der Größe: 320 x 240 mit 790 Frames (unter Profan 7.0)

Ich danke Euch und probiere auch mal gleich
die zweite Möglichkeit aus. ...jens


 Zurück zur Übersicht