Dephi中资源文件的应用

发布: 2008-5-19 10:42 | 作者: 不详 | 来源: coderpub | 查看: 246次 | 进入软件测试论坛讨论

procedure TfrMain.LoadIconClick(Sender: TObject);
begin
Animate1.ResName :=’MyAvi’ ; //资源标识
Animate1.Active := True ;
End ;
  实践中的一点结果:并不是所有的AVI资源都可以用TAnimate组件来播放，编定程序时要测试。遇到不能用TAnimate组件来播放的AVI资源，则可以把它从资源文件里分离出来，再使用相应的播放组件比如TMediaPlayer来播放。使用完再把分离出来的临时文件删除掉。可以参考后面 “7。”的说明。
  5。存取资源文件中的JPEG
  把jpeg单元加入到Interface的uses中。
procedure TForm1.LoadJPGClick(Sender: TObject);
var
  Fjpg    : TJpegImage ;
  FStream : TResourceStream ;
begin
  Fjpg := TJpegImage.Create ;
  FStream := TResourceStream.Create(hInstance,’资源标识符’,RT_RCDATA) ;
  FJpg.LoadFromStream(FStream) ;
  Image1.Picture.Bitmap.Assign(FJpg);
end;
  6。存取资源文件中的Wave
  把MMSystem加入到Interface的uses中
procedure TForm1.LoadWaveClick(Sender: TObject);
begin
  PlaySound(’MyWav’,hInstance,Snd_ASync or Snd_Memory or snd_Resource) ;
end;