Monday, July 26, 2010

Delphi programming animation AVI play without sound



The examples will demonstrate how the program is running, showing silent AVI animation.

Add a TAnimate to the form component and sets its CommonAVI property aviCopyFile, this component will be displayed in TAnimate copy files animation. After adding components form shown in Figure 1.






Figure 1 form after adding components

Initialization process in the form add the following code:

procedure TForm1.FormCreate (Sender: TObject);

begin

self.Animate1.Active: = true;

end;

Thus, the initial run, the program will activate TAnimate components to copy files to start playing the animation aviCopyFile.

Code is as follows:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ComCtrls;

type

TForm1 = class (TForm)

Animate1: TAnimate;

procedure FormCreate (Sender: TObject);

private

(Private declarations)

public

(Public declarations)

end;

var

Form1: TForm1;

implementation

($ R *. dfm)

procedure TForm1.FormCreate (Sender: TObject);

begin

self.Animate1.Active: = true;

end;

end.

Save the file, and then press the F9 key to run the program, run the results shown in Figure 2.






Figure 2 run results

This procedure does not call the disk in the AVI animation files, readers in their own applications can specify the FileName property TAnimate component to play sound in AVI animation.







Recommended links:



3G in the United States to see The embarrassment and disappointment of China



3GP to avi



"Hybrid VPN" in progress



Chinese input method commonly used fast switching



China's ENVIRONMENTAL satellite data



Win XP to crash when you BECOME extremely smart!



avi To m4v



Professional human resources workers 132 Tool - factors into account point method



Comparison Java And JavaScript



Computer Education INFOMATION



"Mirrors Edge" Cheats



free mkv CONVERTER



Flv to 3gp converter



No comments:

Post a Comment