[تمرين ]تضمين ملف صوتي mp3 بتطبيق دلفي

[onexite]

استعملت هذا البرنامج ; وهذا للتحوبل الى wav
السهل الممتنع

PHP كود :

procedure Play(ms:TMemoryStream);
begin
try
sndPlaySound(ms.Memory, SND_ASYNC or SND_MEMORY);
finally
FreeAndNil(ms);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Play(basit_001_ToStream)
end; 


PHP كود :

Unit basit_001;

interface
Uses Windows, Classes;


Const
basit_001_Szie=340681;


function basit_001_ToStream:TMemoryStream;

Const
basit_001_:Array[0..basit_001_Szie] of Byte=(
   $52,$49,$46,$46,$C1,$32,$05,$00,$57,$41,$56,$45,$66,$6D,$74,$20,$10,$00,.....

   $00);

implementation


function basit_001_ToStream:TMemoryStream;
begin
  Result:= TMemoryStream.Create;
  Result.Write(basit_001_,basit_001_Szie);
  Result.Position:= 0;
End;