Einzelnen Beitrag anzeigen

Mike_on_Tour

Registriert seit: 16. Aug 2007
195 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#6

Re: film direkt in exe einbinden

  Alt 14. Mai 2009, 12:10
Hallo,

ich habe das vor langer Zeit (2003) auch mal gebraucht. Leider habe ich momentan kein Code-Beispiel zur Hand (liegt alles zu Hause), aber AVI-Dateien (oder auch andere) lassen sich wie folgt als Ressource in ein Programm einbinden:

1. eine Textdatei AVIFILM.RC mit folgenden Inhalt anlegen:AVIVideo RCDATA MEINFILM.AVI 2. eine Textdatei AVIFILM.BAT mit folgenden Inhalt anlegen (Hinweis: evtl. den kompletten Pfad für BRC32 angeben !!!):BRC32 -r AVIFILM.RC 3. die Datei AVIFILM.BAT mit Doppelklick ausführen
4. wenn alles richtig war, existiert jetzt eine Datei AVIFILM.RES
5. Diese Datei AVIFILM.RES kannst du mit {$R AVIFILM.RES} in das Form einbinden, wo das AVI angezeigt werden soll.
6. Der Multimedia-Komponente (z.B. TAnimate) den Namen der Ressource mitteilen und abspielen:
Delphi-Quellcode:
Aminate1.ResName := 'AVIVideo';
Animate1.Play;
Evtl. gehört noch etwas mehr Code dazu. Aber wie gesagt, ich habe das alles zu Hause. Das Ergebnis kannst Du im Anhang sehen.

mfG
Mike
Angehängte Dateien
Dateityp: exe bowlingmanager_391.exe (1,15 MB, 23x aufgerufen)
Programmieren ist wie das Wandeln auf dem schmalen Pfad zwischen Wahnsinn und Intelligenz.
  Mit Zitat antworten Zitat