Allgemeine Fragen zur PROFAN Programmierung

Views (Heute): 249390 (10826)

| Suchen
| Zurück zur Übersicht

Autor | Thema: Video-ohne Fensterrahmen ...
Jens Berger
| Datum:25.10.01 15:08 (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 (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 (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 (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 (mathias.heinemann@web.de) |
Gehen irgendwie beide nicht. Hab WIN2000. Liegt vielleicht daran.
Jens Berger
| Datum: 27.10.01 19:12 (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