XProfan

- Página 2 -

Nico
Madysa

Na OK, tener Yo überlesen, por lo tanto bin Yo de Profano² 6.6 ausgegangen. Jetzt debería el Code aber endlich stimmen.

Nico Madysa

06.04.2007 ▲

Jens
Tiburski

tut me schrecklich leid, leute - aber el video öffnet siempre todavía una propio fenster !!!*haare rauf*

Jens Tiburski

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

07.04.2007 ▲

Sebastian
Sprenger

Hi Jens,
ahora Me estoy dando dir veces a la Code:
Kompilieren Marca Separación

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 MOVIEa>

Das zweite MCISend$ plaziert el Film en el Profanfenster (%hwnd).
Das dritte MCISend$ plaziert el Film a Position 160,120 des Profanfensters. El beiden Pagar danach bestimmen normalerweise el Größe des Videos, pero si lo Nullen son (como en el Ejemplo), restos el aktuelle Größe obtener.
Saludo, 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

07.04.2007 ▲

Jens
Tiburski

sebastian - prima ...
ahora öffnet el video en el fenster como gewollt - besten dank para el hilfe a todos!

Jens Tiburski

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

08.04.2007 ▲

Nico
Madysa

Yo búsqueda gerade el essenziellen Diferencia a mi Code.

Liegt entweder al stretch oder al destination (at blubberbla)...

Nico Madysa

Jens
Tiburski

tja nico - como kann Yo dir no helfen - mi vermutung Es el destinationsangabe ... aber tal vez kannst du me todavía una tipp geben, cómo hacerlo video endlos wiederholen kann - a para mausklick jedenfalls ... ?

gruss

jens tiburski

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

Nico
Madysa

Yo werd como igual algo ausprobieren, kann aber para nichts garantieren. Yo el persönlich siempre con iFs Hilo.pcu oder con un Temporizador gemacht.

Nico Madysa

- Página 3 -

Nico
Madysa

Mein versuch es fehlgeschlagen. Probiere lo veces así en el Art:
Kompilieren Marca Separación

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

Hoffe, du verstehst esta rápidamente hingeklatschten Code. Posesiones ihn ahora no getestet, él debería aber trabajo.

Nico Madysa

Lo son doch IMHO una Repeat-Anweisung oder?!