AVI aus einer DLL

[scp]

Bei dem Beispiel ist überall "Name" zu finden. Dies ist ein String, der den Namen der Resource enthält, also für Hund.avi wäre das nach deiner Liste dann 'HUNDDLAE'.

[scp]

Achso... ACM_OPEN & ACM_PLAY sind Variablen für Windows Messages, die in der Unit CommCtrl (nicht zu verwechseln mit ComCtrls!) definiert sind, die musste dann noch in die uses setzen.

[xavior]

OK, das hab ich jetzt kapiert und hab es auch verändert, aber die AVI wird trozdem noch nicht abgespielt!

Delphi-Quellcode:

 procedure TSplash.Start(Sender: TObject);
var crMyCursor: TCursor;
    FModuleHandle: Hinst;
    ResStre: TResourceStream;
    ACM_OPEN, ACM_PLAY: Cardinal;
begin
 StartZeit    := Now;
 Zeit.Enabled := True;
 Screen.Cursors[crMyCursor] := LoadCursorFromFile('ANI\Wart.ani');
 Fortschritt.Cursor := crMyCursor;
 Splash.Cursor := crMyCursor;
 Hund.Cursor   := crMyCursor;
 FModuleHandle := LoadLibraryEx(PChar('MData32.dll'), 0, LOAD_LIBRARY_AS_DATAFILE);
 Hund.CommonAVI := aviNone;
 If (StrToIntDef('HUNDDLAE', 0) <> 0) then
  SendMessage(Hund.Handle, ACM_OPEN, FModuleHandle, StrToIntDef('HUNDDLAE', 0))
 else
  SendMessage(Hund.Handle, ACM_OPEN, FModuleHandle, Integer(@'HUNDDLAE'[1]));
  SendMessage(Hund.Handle, ACM_PLAY, -1, MAKELONG(0, Word(-1)));
  {Hund.Active := True;} <--------------------- Wenn ich das aktiviere, dann gibt es Fehler
end;

[scp]

Oh, ich seh grad:

Code:

ERDEDSDR AVIRES "Erde.avi"

sollte so aussehen

Code:

ERDEDSDR AVI "Erde.avi"

also überall wo AVIRES steht muss eigentlich AVI stehen.

Delphi-Quellcode:

Hund.Active := True

Du darfst bei der zweiten Methode keine Eigentschaften der Kompo verwenden, es geht alles nur über SendMessage().

[xavior]

:hello: :hello: :hello: :dancer: :dancer: :dancer: :cheers: :thuimb: :thuimb: :thuimb:

Endlich ich habs geschaft! Bei mir fällte oben der Eintrag

Delphi-Quellcode:

uses CommCtrl;

deswegen ging das nicht!

DANKE DANKE DANKE

[xavior]

Ausversehen erstellt !

[scp]

Habe noch ne simplere Möglichkeit gefunden:

Delphi-Quellcode:

  Hund : TAnimate;

//...

  try
    Hund.ResName := 'HUNDDLAE';
  except
  end;
  Hund.ResHandle := FModuleHandle;

Der Fehler wird abgefangen und nachdem auch das ResHandle gesetzt wurde, wird die AVI geladen.