XProfan

- Page 2 -

Nico
Madysa

well OK, Have I überlesen, therefore be I of Profan² 6.6 gone out. now should the code but finally voices.

Nico Madysa

04/06/07 ▲

Jens
Tiburski

does me terrible sorrow, people - but the video opens still one own window !!!*hairs rauf*

Jens Tiburski

Ich bin nicht faul - ich schütze mich nur instinktiv vor Stress!! [...]

04/07/07 ▲

Sebastian
Sprenger

Hi Jens,
now give I you time a code:
Compile Mark Separation

declare a$
cls
a$=loadfile$(AVI-Film im Profan-Fenster abspielen,AVI-Filme (*.avi)|*.avi|Alle Dateien|*.*)
case %button=2:end
mcisend$(OPEN +shortname$(a$)+ TYPE AVIVIDEO ALIAS MOVIE)
mcisend$(WINDOW MOVIE HANDLE +str$(%hwnd))
mcisend$(PUT MOVIE DESTINATION AT 160 120 0 0)
mcisend$(PLAY MOVIE)
waitinput
mcisend$(CLOSE MOVIEon>

the second MCISend$ plaziert whom film on the Profanfenster (%hwnd).
the dritte MCISend$ plaziert whom film on position 160,120 the Profanfensters. The both numbers thereafter to determine usually The Size the Videos, but if it nobodies are (How in the example), remaining The actually Size receive.
Greeting, Sebastian

Profan² 7.0e, XProfan 9, 11.2a, FreeProfan32

Windows Vista Home Premium 32-Bit, 2.8 Ghz, 4 GB RAM

Windows Me, 1.8 Ghz, 256 MB RAM

04/07/07 ▲

Jens
Tiburski

sebastian - lovely ...
now opens the video in the window How pseudo - thank you very much for Help all!

Jens Tiburski

Ich bin nicht faul - ich schütze mich nur instinktiv vor Stress!! [...]

04/08/07 ▲

Nico
Madysa

I Search just the essenziellen Difference To my code.

lying either on the stretch or on the destination (at blubberbla)...

Nico Madysa

Jens
Tiburski

tja nico - there can I you not help - my supposition is the destinationsangabe ... but Perhaps can you me yet a tipp give, How to the video unending repeat can - until mausklick anyway ... ?

greeting

jens tiburski

Ich bin nicht faul - ich schütze mich nur instinktiv vor Stress!! [...]

Nico
Madysa

I werd there same something try, can but for nothing ensure. I Have the personally always with iFs Thread.pcu or with a Timer made.

Nico Madysa

- Page 3 -

Nico
Madysa

my attempt is fehlgeschlagen. try it so in the manner:
Compile Mark Separation

proc MCI

    parameters bef$
    declare err$
    err$ = MCISend$(bef$)

    if %MCIError

        MessageBox(err$,bef$,4144)

    endif

    return err$

endproc

declare d$ , pos$ , len$
Set(Decimals,0)
cls
d$ = ShortName$(LoadFile$(Film laden,*.avi))
MCI(open  + d$ +  type avivideo alias film)
MCI(window film handle  + str$(%hWnd))
MCI(put film destination at 0 0 0 0)
MCI(set film time format milliseconds)
len$ = str$(val(MCI(status film length))  1000)
MCI(play film)
SetTimer 1000

whilenot IsKey(27)

    pos$ = str$(val(MCI(status film position))  1000)
    SetText %hWnd , pos$ +  von  + len$ +  Sekunden
    waitinput

    if lower$(MCI(status film mode)) = stopped

        MCI(play film from 0)

    endif

wend

KillTimer
MCI(stop film)
MCI(close film)
end

hope, You understand this quick hingeklatschten code. have it now not tested, it ought to but functions.

Nico Madysa

there's still IMHO a Repeat-instruction or?!