Dephi中資源文件的應用

領測軟件測試網

procedure TfrMain.LoadIconClick(Sender: TObject); 
begin 
Animate1.ResName :=’MyAvi’ ; //資源標識 
Animate1.Active := True ; 
End ;  
  實踐中的一點結果:并不是所有的AVI資源都可以用TAnimate組件來播放，編定程序時要測試。遇到不能用TAnimate組件來播放的AVI資源，則可以把它從資源文件里分離出來，再使用相應的播放組件比如TMediaPlayer來播放。使用完再把分離出來的臨時文件刪除掉�？梢詤⒖己竺� “7�！钡恼f明。 
  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; 

文章來源于領測軟件測試網 http://www.kjueaiud.com/