swf资源文件释放

 

//定义一个资源文件   .rc   
  {MySwf   RC_DATA   "c:\123.swf"   
  MySwf   为资源标识符，可任意，RC_DATA　不可改   
  再用brcc32编译生成.res文件   
    
  包含资源文件}   
  {$   资源文件名}   
  //打开过程   
  procedure   TForm1.Button7Click(Sender:   TObject);   
  var   swfstream:tfilestream;   
  resstream:tresourcestream;   
  begin   
  swfstream:=tfilestream.Create('c:\myswf1.swf',fmCreate);   
  resstream:=tresourcestream.Create(0,'MySwf',rt_rcdata);   
  swfstream.CopyFrom(resstream,resstream.size);   
  resstream.free;   
  resstream.free;   
  end;