TAnimate: Avi aus Resource laden

[Helmi]

Hallo,

ich hab ein Avi für TAnimate als Resource vorliegen.

Nun wollte ich das wie folgt laden:

Delphi-Quellcode:

InfoFensterForm.Animate.ResHandle := HInstance;
InfoFensterForm.Animate.ResId     := 10;
InfoFensterForm.Animate.Active    := true;

nur bekomm ich in der ersten Zeile gleich eine AccessViolation um die Ohren gehauen.

Muss man irgendetwas spezielles beachten?

[DeddyH]

Laut Referenz ist das eigentlich richtig so. Das Formular "InfoFensterForm" ist zum Zeitpunkt des Aufrufs schon erzeugt?

[Helmi]

Hallo,

ja - die Form existiert bereits.
Hab mir jetzt mal ein Test-Projekt gebastelt in dem über einen Button der o. stehende Code ausgeführt wird.
Aber auch das bringt einen Fehler.

Kann es sein, dass der Name des Avi in der Resource nicht mehr als 8 Zeichen haben darf?
Denn bei mir ist er länger

[DeddyH]

So gut kenne ich mich jetzt nicht aus, aber das ließe sich ja feststellen, indem man (nach einem Backup natürlich) die Ressourcendatei einmal bearbeitet und die AVI darin umbenennt.

[Helmi]

hab ich gerade testet, aber ohne positiven Erfolg.

Hier mal der Hinhalt meiner rc-Datei.
Vielleicht steht ja hier der Hund begraben:

Zitat:

10 VIDEO "db_conv.avi"

[DeddyH]

Ich meinte nicht die *.rc, sondern die *.res. Mit einem Ressourceneditor (z.B. ResHacker oder XN ResEditor) lässt dich die auch nachträglich bearbeiten.

[Wunni]

zum Beispiel so?

Delphi-Quellcode:

  try 
    Animate1.ResID := 256;
    Animate1.ResHandle := LoadLibrary('shdocvw.dll');
    Animate1.Active := True;
  except end;

oder in Deinem Fall:

Delphi-Quellcode:

  try 
    InfoFensterForm.Animate.ResHandle := HInstance; 
    InfoFensterForm.Animate.ResId     := 10;
    InfoFensterForm.Animate.Active    := true;
  except end;

[Helmi]

Zitat:

Zitat von DeddyH

Ich meinte nicht die *.rc, sondern die *.res. Mit einem Ressourceneditor (z.B. ResHacker oder XN ResEditor) lässt dich die auch nachträglich bearbeiten.

Wenn ich die Res neu erzeugen lasse, dann hab ich doch schon den kürzeren Dateinamen oder?

Ach ja - diese Meldung bekomm ich:

Zitat:

---------------------------
Benachrichtigung über Debugger-Exception
---------------------------
Im Projekt Project2.exe ist eine Exception der Klasse Exception aufgetreten. Meldung: 'AVI kann nicht geöffnet werden'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
---------------------------
OK Hilfe
---------------------------

(Meldung aus meinem Testprojekt)

[Helmi]

Zitat:

Zitat von Wunni

zum Beispiel so?

Delphi-Quellcode:

  try 
    Animate1.ResID := 256;
    Animate1.ResHandle := LoadLibrary('shdocvw.dll');
    Animate1.Active := True;
  except end;

oder in Deinem Fall:

Delphi-Quellcode:

  try 
    InfoFensterForm.Animate.ResHandle := HInstance; 
    InfoFensterForm.Animate.ResId     := 10;
    InfoFensterForm.Animate.Active    := true;
  except end;

Das ist nur die Fehlerbehandlung.
Die brauch ich (erstmal) nicht, denn so würd ich halt keinen Fehler mitbekommen - aber das Video wird trotzdem nicht geladen

[turboPASCAL]

Man sollte schon die richtigen Resourcenbezeichner verwenden. ;)

Code:

10 AVI "db_conv.avi"

[Helmi]

Zitat:

Zitat von turboPASCAL

Man sollte schon die richtigen Resourcenbezeichner verwenden. ;)

Code:

10 AVI "db_conv.avi"

Wär zu schön gewesen um wahr zu sein :-)
Hat leider nichts gebracht

[Edit]
Interessanterweise funktioniert folgender Aufruf:

Delphi-Quellcode:

//InfoFensterForm.Animate.ResHandle := HInstance; 
    InfoFensterForm.Animate.ResId     := 10; 
    InfoFensterForm.Animate.Active    := true;