Sorry, das hatte ich vergessen zu erwähnen:
Das
video_init;
dient nicht zum Erstellen des Video-Players, dadurch werden erstmal Arrays vorbereitet. Das ERstellen passiert erst nach dem Initialize des AdDraws:
Delphi-Quellcode:
video_init;
If AdDraw.Initialize Then begin
drawframes.Enabled:=true;
end else begin
ShowMessage(AdDraw.GetLastError);
halt;
end;
video_intro_1; // hier wird erst der Player erstellt
Delphi-Quellcode:
procedure video_intro_1;
begin
video_intro_instances[1]:=video_register('..\videos\intro1.m1v',
video_intro_1stop);
video_start(video_intro_instances[1]);
end;
Daran liegt es also nicht!