怎样读取RES中的SWF文件，然后用Flash控件播放，请指点！

Question

我把一个SWF文件打包到RES文件中，然后想用程序中的Flash控件去调用这样文件然后播放，请问各位我该怎样做?    在下先谢谢了！

Answer 1

{$R test.res}
.....
procedure TForm1.FormCreate(Sender: TObject);
var
  hResInfo : THandle;
  Ptrexe : PChar;
  hRes : THandle;
begin
  new(ptrexe);
  hResInfo := FindResource(HInstance, 'flash', 'swf');
  hRes := LoadResource(HInstance, hResInfo);
  if hRes > 32 then  ptrexe:=LockResource(hRes);
  ShockwaveFlash2.Movie:= ptrexe;
  ShockwaveFlash2.Play;
  dosp.....
......
......
end;

Answer 2

一般都是把资源释放之后再播放吧
直接播放在res中的swf没听说过,wav到是可以

Answer 3

wav,JPG我都试过，没有问题，就SWF好像不行还是怎么的，搞不懂。希望各位能指点一二，谢谢！

Answer 4

各位知不知道怎么样调用资源文件中的icon资源阿

Answer 5

释放以后,你看看用tstream能读出来吗?