XProfan

Italia

Pedro
Santos

Hallo

Mit folgenden code wird die animation von eine in der dll abgelegte AVI abgespiellt, ich möchte aber nicht von der dll sondern eine die in ein Verzeichnis liegt, kann jemand von Euch helfen?

Kompilieren Markieren Separieren

down&=control(SysAnimate32,,$50080004,330,05,118,150,%hwnd,1,dll&)
sendmessage(down&,1124,0,100)

Danke

Gruss

Pedro

Windows XP Home
Xprofan 10

18.02.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Rolf
Koch

Hi bei mir klappt es so (jedoch nicht mit grossen Avis)

Kompilieren Markieren Separieren

Declare avi#
Dim avi#,255
Declare down&
cls
down&=Control(SysAnimate32,,$50080004,330,05,118,150,%hwnd,0,%hinstance,$200)
String avi#,0=Hier dein Avifile
sendmessage(down&,1124,0,avi#)
waitinput
dispose avi#

19.02.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

[offtopic]
@Rolf
Bei Deiner perfekten Information fehlt noch was

...es ist Karneval - drum sei mir verziehen - Helau

[/offtopic]

jever.jpg

7 kB

Kurzbeschreibung:

umweltfreundlicher Betriebsstoff

Hochgeladen:

19.02.2007

Downloadcounter:

Download

roko_info.jpg Preview

23 kB

Hochgeladen:

19.02.2007

Downloadcounter:

Download

19.02.2007 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Nico
Madysa

Wie wäre es mit MCI?

Kompilieren Markieren Separieren

declare datei$
cls
datei$ = LoadFile$(AVI öffnen...,AVI-VideoDatei|*.avi)
MCISend$(open  + Chr$(34) + datei$ + Chr$(34) +  type avivideo alias film)
MCISend$(play film)
waitinput
MCISend$(stop film)
MCISend$(close film)
end