我把FLASH的123.SWF文件做成了资源文件,但在程序中如何用FLASH控件调用呢,我在move的属性中直接输入123.SWF没有用?

解决方案 »

  1.   

    http://expert.csdn.net/Expert/topic/1529/1529669.xml?temp=.233288
      

  2.   

    先要把该资源释放出来,产生真正的123.SWF文件,再播放.
    Function GetFileFromResData(const ResName,ResType:String): String;
    var
      Res: TResourceStream;
      // 得到一个临时文件名称
      function GetTempFileName(FileName,Ext:String): String;
      begin
        Result := GetTempPathEx + FileName + '.' + IntToStr(GetTickCount) + '.' + Ext;
      end;
    begin
      Result := GetTempFileName(ResName,ResType);
      Res := TResourceStream.Create(Hinstance,ResName,PChar(ResType));
      try
        try
          Res.SaveToFile(Result);
        finally
          Res.Free;
        end;
      except
        On Exception do Result := '';
      end;
    end;如下调用:
    Flash.Movie := GetFileFromResData('123','SWF');