今天写了一个从流播放Flash的控件,心情比较好,来散200分

*本来想象在大富翁那样散300分,但是CSDN只让我散200 :(flash.ocx直接用,只能从网络或者临时文件打开动画文件,这样做FLASH浏览器的时候就会产生一些临时文件,比较不爽.我经过一个星期的痛苦摸索,终于找到一个从流播放FLASH的方法,程序上周已经实现,今天把它封装成VCL. :)很久没写控件了,很多东西都不知道怎么弄了,这个VCL封得很简单,和FLASH相关的只有两个属性,一个是背景颜色,一个是SwfStream.SwfStream是一个内存流,给它赋值(SWF的内容)就可以播放.这是演示代码:
procedure TForm1.Button1Click(Sender: TObject);
var
  MemStream: TMemoryStream;
begin
  MemStream := TMemoryStream.Create;
  MemStream.LoadFromFile('d:\my.swf');
  StreamFlashPlayer1.SwfStream := MemStream;
  MemStream.Free;
end;控件及演示程序下载:
http://www.milsoft.net/soft/StreamFlashPlayer.zip