Multimidia - avi dentro do exe

Top  Previous  Next

In Notepad type or some other simple text editor type:

 

MyAvi AVI "some.avi" 

 

or 

 

100 AVI "some.avi" 

 

depending on how you want to reference the identifier.  You will want to know whether it is referenced by a resource name or a resource ID when you write the code to play the AVI.

 

Save the file with a .RC extension

 

You will be using the Animate Component to play the file, therefore the same rules apply, like no sound can be with the AVI.

 

Use Borland's Resource Compiler: BRCC32.EXE to convert the file to a .RES file.  At the dos prompt type the following:

 

brcc32 myfile.rc

 

This is some code to play an animation using the Resource Name:

 

Animate.ResHandle := 0;

Animate.ResName := 'MyAvi';

Animate.Active := True;

 

To stop an animation, call the Stop method. 

 

Place the following code to add your resource file into your executable.

 

{$R MYFILE.RES}

 

A sample file is listed below of how this would work correctly:

 

AviRes.pas 

 

unit AviResU;

 

interface

 

uses

   Forms, ComCtrls, StdCtrls, Classes, Controls;

 

type

   TForm1 = class(TForm)

   PlayBtn: TButton;

      Animate: TAnimate;

      StopBtn: TButton;

       procedure PlayBtnClick(Sender: TObject);

       procedure StopBtnClick(Sender: TObject);

    private

       { Private declarations }

    public

       { Public declarations }

    end;

 

var

    Form1: TForm1;

 

implementation

 

{$R *.DFM}

{$R AVIRESRC.RES}

 

procedure TForm1.PlayBtnClick(Sender: TObject);

begin

    Animate.ResHandle := 0;

    Animate.ResName := 'TurboGuy';

    Animate.Active := True;

    PlayBtn.Enabled := False;

    StopBtn.Enabled := True;

end;

 

procedure TForm1.StopBtnClick(Sender: TObject);

begin

   Animate.Stop;

   PlayBtn.Enabled := True;

   StopBtn.Enabled := False;

end;

 

end.