查人人中国名人网如何制作简历模板:delphi在资源文件中加入了flash可是怎么让它播放呢
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/27 03:22:20
我在ActiveX中加了一个放flash的控件，
控件加到窗体后是ShockwaveFlash1这个名。
我怎么才能加载资源文件中的flash
谢谢
我是这样写的，按了没反应，，也没有错误，又试了几次，搞不懂哪不行
procedure TForm1.Button1Click(Sender: TObject);
var
Res:TResourceStream;
begin
Res:=TResourceStream.Create(0,'aaa','swf');
Res.SaveToFile('ss.swf');
Flash1.Movie:='ss.swf';
Res.Free;
end;
资源文件叫flash.res
内容是aaa swf "qq.swf"
控件加到窗体后是ShockwaveFlash1这个名。
我怎么才能加载资源文件中的flash
谢谢
我是这样写的，按了没反应，，也没有错误，又试了几次，搞不懂哪不行
procedure TForm1.Button1Click(Sender: TObject);
var
Res:TResourceStream;
begin
Res:=TResourceStream.Create(0,'aaa','swf');
Res.SaveToFile('ss.swf');
Flash1.Movie:='ss.swf';
Res.Free;
end;
资源文件叫flash.res
内容是aaa swf "qq.swf"
procedure PlayFlash;
var
Res:TResourceStream;
begin
Res:=TResourceStream.Create(0,'资源名称','资源类型');
Res.SaveToFile('文件名');
ShockWaveFlash.Movie:='文件名';
Res.Free;
end;
补充：
你有没有正确的引用res文件？
还有就是当你用相对路径保存文件时，
首先要用SetCurrentDir函数