TShockwaveFlash加载FLASH的问题!(5分)

  • 主题发起人 陈桂坚
  • 开始时间

陈桂坚

Unregistered / Unconfirmed
GUEST, unregistred user!
TShockwaveFlash能加载流文件吗?
例如我把所有的FLASH文件BACC32到资源文件RESOURCE.RES里,
那TShockwaveFlash怎样PLAY这些资源文件里的文件!!
TShockwaveFlash只有这个加载函数:
TShockwaveFlash.LoadMovie(layer: SYSINT;
const url: WideString);
没有加载流文件的函数!!!!
不要告诉我什么先把资源文件里的FLASH文件保存到一个目录,然后再加载!!!!
 
好像没办法,只能LoadMovie,如果有,我也想知道。以前有一个帖子,实现的方法不太完美。
 
TO liuchong:
能把以前的帖子网址提供一下吗?
 
收藏的,怎么没了,我找找
 
大侠们,flash能不能放到数据库里,调出来播放呀。
 
收藏的帖子会自动没啊!
to huanghq123:任何文件都可以放在数据库里啊。
 
to liuchong,
哪我怎麽存到数据库,如何播放阿。
能不能给点儿代码,谢谢啦。
或者:qinghh2002@yahoo.com.cn 发个例子。
 
存取文件到数据库:

存取文件另一方法:
procedure TForm1.btn1Click(Sender: TObject);
var
S:TMemoryStream;
begin

S:=TMemoryStream.Create;
S.LoadFromFile('a.txt');
S.Position:=0;
with ADOQuery1do

begin

SQL.Clear;
SQL.Append('INSERT INTO AA(A1) VALUES:)A1)');
Parameters.ParamByName('A1').LoadFromStream(S,ftBlob);
ExecSQL;
end;

FreeAndNil(S);
end;


procedure TForm1.btn2Click(Sender: TObject);
var
S:TMemoryStream;
begin

S:=TMemoryStream.Create;
with ADOQuery1do

begin

SQL.Clear;
SQL.Append('SELECT A1 FROM AA');
Open;
TBlobField(FieldByName('A1')).SaveToStream(S);
end;

S.SaveToFile('b.txt');
FreeAndNil(S);
end;
 
to liuchong,
很感谢,那现在回到了楼主的问题上,我从数据库以流文件的形式取出,如何用TShockwaveFlash播放这个流文件呢?
 
我也没有办法,如三楼所说。
 
哦,谢谢你的指导。也谢谢楼主,借你的宝地,问了一些自己的问题,不好意思。
 
模拟http流
 
var
FlashFile: TFileName;
FStream: TResourceStream;
begin

FStream := TResourceStream.Create(Hinstance, 'frmMainFlash', RT_RCDATA);
FlashFile := SysUtils.ExtractFilePath(Application.ExeName) + 'Flash.swf';
FStream.SaveToFile(FlashFile);
Self.FlashButton1.Movie := FlashFile;
end;
 
http://www.flashplayercontrol.com
 
to 风铃夜思雨,
我看了看,网站上说,支持流。你有没有现成的代码。参考一下,谢谢。
 
好象要注册的哦~
 
在WIN98下不能使用,不好用
 
查了一整天大富翁离线资料都没有答案....
郁闷呀........................
 
mime filter
http://www.euromind.com/iedelphi/app/mimefilter.htm
 
顶部