Воспроизведение файла

[VitalikA]

Да вобще ничего..... нужен пример что-ли
как запихнуть файл в ресурси
как извлечь....

[VitalikA]

ну как добавить звук в ресурси? програмний код нужен

[GSirr]

Пятая ссылка на этом сайте, например.
А так же все остальные.

[VitalikA]

Сделал! с помощю етой ссилки
http://demi-s.narod.ru/resources/008.html
вроде все нормально работает....
спасибо)

[DelhiProgramer]

Вот что-то нашёл:
"Как сделать так, чтобы в файле программы находился звук

В файл MyWave.rc пишем:

MyWave RCDATA LOADONCALL MyWave.wav
brcc32.exe MyWave.rc, получаешь MyWave.res.

В своей программе пишем:

{$R MyWave.res}

Все!

Предупреждая следующий вопрос "А как прочитать wave-файл из исполняемого файла?"

procedure RetrieveMyWave;
var
hResource: THandle;
pData: Pointer;
begin
hResource:=LoadResource( hInstance, FindResource(hInstance, 'MyWave', RT_RCDA TA));
try
pData := LockResource(hResource);
if pData = nil then
raise Exception.Create('Cannot read MyWave');
// Здесь pData указывает на MyWave
// Теперь можно, например, проиграть его (Win32):
PlaySound(pData, 0, SND_MEMORY);
finally
FreeResource(hResource);
end;
end;"

[VitalikA]

Вот мой код (может кому-то понадобиться)

 implementation
var rStream: TResourceStream;
 fStream: TFileStream;
 fname: string;

{$R *.dfm} {$R MyRes.res}

procedure TForm1.btn1Click(Sender: TObject);
begin
fname := ExtractFileDir(Paramstr(0)) + 'tatu.mp3';
 rStream := TResourceStream.Create(hInstance, 'xxx', RT_RCDATA) ;
 try
  fStream := TFileStream.Create(fname, fmCreate) ;
  try
   fStream.CopyFrom(rStream, 0) ;
  finally
   fStream.Free;
  end;
 finally
  rStream.Free;
 end;
 {эта часть проигрывает mp3}
 mp1.Close;
 mp1.FileName:= fname;
 mp1.Open;
end;

end.

Вот текст ТХТ файла (потом rc):

xxx RCDATA C:\Users\Администратор\Desktop\Tatu .mp3

[VitalikA]

Может кто нибудь расписать что означает каждая строка и оператор этого кода:

begin
fname := ExtractFileDir(Paramstr(0)) + 'tatu.mp3';
 rStream := TResourceStream.Create(hInstance, 'xxx', RT_RCDATA) ;
 try
  fStream := TFileStream.Create(fname, fmCreate) ;
  try
   fStream.CopyFrom(rStream, 0) ;
  finally
   fStream.Free;
  end;
 finally
  rStream.Free;
 end;