关于.AVI的资源文件的调用问题 (50分)

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #1

资料介绍：
AVI文件的调用
新建一工程，添加一Animate控件，在需要的地方加入：
animater1.resname := 'myAVI';
animater1.Active := true;
其中myAVI为视频文件在资源文件中的名称。

我的myAVI.RC文件内容：myAVI AVI SpeedIs.AVI
用brcc32.exe成功生成myAVI.res文件
单元的实现部已加 {$R myAVI.res}
可是程序运行到： animater1.resname:='myAVI';这句就出错：Can't Open AVI
这是怎么回事？请高手指点迷津！

另外：除过http://www.delphiok.com/bcjq/all/114.htm这里介绍的关于资源文件的编程资料以外，谁还能提供更为详尽的关于资源文件的编程资料或例程？鄙人将发分表示感谢！

 

A

andy263

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #2

方法没有错误 检查一下avi文件吧！

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #3

to andy263:
speedis.avi是delphi软件包中的文件，播放没问题。我在生成资源文件时也没报错。真有些搞不懂。是不是方法上还有些什么细节我不知道呀？

 

迷

迷糊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #4

我按你的步骤作没有任何问题啊？你留个mail，我把我的demo发给你

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #5

我的Email: bjaman@163.com 谢过了！

 

C

chnplzh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #6

迷糊已经做好了，我帮你找一点帮助吧（摘自delphi帮助文件）：

Specifies the resource name of the AVI clip.

property ResName: string;

Description

Set ResName to identify a resource that should be used as the AVI clip displayed by the animation control. Use ResHandle to indicate the module that contains the resource identified by ResName.

If the resource file identifies the AVI clip by number rather than number, use the ResID property instead.

Note: Setting ResName automatically sets the CommonAVI property to aviNone, the FileName property to an empty string, and the ResID property to 0.

 

M

miaofeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #7

我也按你的方法做好了，没有问题的：）
我也把Demo发给你吧：）

 

M

miaofeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #8

邮件已发出：）

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #9

to miaofeng:
Animate1.Open;我编译你的程序，这句出错。提示：Statement expected,but expression of type 'boolean' found.我也是Delphi7，真是撞邪了。。。
如果把那句改成Animate1.Active := true;则又会出现我先前的错误Can't Open AVI
。我的系统有问题吗？你和迷糊编译过的可执行程序又都可以正常运行。郁闷ing....

 

M

miaofeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #10

不好意思，刚才的发错了，把我的代码改成下边这样的：）
var
Form1: TForm1;

implementation

{$R *.dfm}
{$R mfres.RES}

procedure TForm1.Button1Click(Sender: TObject);
begin

Animate1.ResName := 'mfavi';
Animate1.Play(1,8,Animate1.FrameCount);
end;


end

 

B

bjaman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-22

• #11

miaofeng 和迷糊各领50分，另开贴：http://www.delphibbs.com/delphibbs/dispq.asp?lid=2370212