Von Pascal am 03 Mai, 1998 um 23:05:55:
Hallo Leute!
Hier eine Frage an die Profis:
Ich möchte mit der aaplay.dll Autodesk-Animationen in eigene Programme einbinden.
Mein Testprogramm:
window 0,0-500,500
declare Ani#,Handle&
dim Ani#,50
string Ani#,0="demo.fli"
print "FensterHandle:",%hwnd
def AniOpen(0) *"aaplay.dll","aaOpen","","%"
print "Open:",@AniOpen ()
def AniLoad(9) *"aaplay.dll","aaLoad","#%%%%%%%%","&"
let Handle&=@AniLoad(Ani#,%hwnd,17,10,10,400,400,15,15)
print "DateiHandle:",Handle&
def AniPlay(1) *"aaplay.dll","aaPlay","&","%"
print "Play:",@AniPlay(Handle&)
def AniGetPara(2) *"aaplay.dll","aaGetParm","&%","&"
print "Status:",@AniGetPara(Handle&,1)
waitkey
def AniClose(0) *"aaplay.dll","aaClose","","%"
print "Close:",@AniClose ()
waitkey
end
Die dll quittiert alle Aufrufe mit 1=WAHR=Erfolgreich,
aber ich seh' nix!
Laut Statusabfrage läuft die Wiedergabe!
Ich vermute falsche Werte bei aaLoad.
Kennt sich jemand aus?
Bin für jeden Hinweis dankbar!
Uwe "Pascal" Niemeier