XProfan

Deutsch

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 zitieren Zeilenweise zitieren

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 zitieren Zeilenweise zitieren

[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

Ladeanzahl:

Herunterladen

roko_info.jpg Vorschau

23 kB

Hochgeladen:

19.02.2007

Ladeanzahl:

Herunterladen

19.02.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

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