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

PHP كود :

function MainDlgFunc(hWnd: hWnd; uMSG: Dword; wParam: wParam; lParam: lParam)
  : Bool; stdcall;

begin
  Result := True;
  case uMSG of
    WM_INITDIALOG:
      begin
        CheckRadioButton(hWnd, 12, 13, 12);
        BoxedAppSDK_Init;
        hFile := BoxedAppSDK_CreateVirtualFile(PAnsiChar('fox.mp3'),
          // MyMP3.mp3  fox
          GENERIC_WRITE, FILE_SHARE_READ, nil, CREATE_NEW, 0, 0);
        HandleStream := THandleStream.Create(hFile);
        ResourceStream := TResourceStream.Create(0, 'intro', RT_RCDATA);
        HandleStream.CopyFrom(ResourceStream, ResourceStream.Size);
      end;
    WM_CLOSE:
      EndDialog(hWnd, 0);

    WM_DESTROY:
      PostQuitMessage(0);

    WM_COMMAND:
      begin
        case wParam of
          11:
            begin
              if IsDlgButtonChecked(hWnd, 12) = BST_CHECKED then
              begin
                _FreeAll;
                if not FSOUND_Init(44100, 32, 0) then
                  MessageBox(0, 'Error initializing audio!', nil, 0);
                hMod := FSOUND_Stream_Open('fox.mp3', 1, 0, 0);
                if (hMod = nil) then
                  MessageBox(0, 'Could not create user stream', nil, 0);
                if FSOUND_Stream_Play(0, hMod) < 0 then
                  MessageBox(0, 'Error playing music!', nil, 0);
              end;
              if IsDlgButtonChecked(hWnd, 13) = BST_CHECKED then
              begin
                _FreeAll;
                if not BASS_Init(-1, 44100, 0, 0, nil) then
                  MessageBox(0, 'Error initializing audio!', nil, 0);
                mods := BASS_StreamCreateFile(false, Pchar('fox.mp3'), 0, 0,
                  BASS_MUSIC_RAMP);
                if (mods = 0) then
                  MessageBox(0, 'Could not create user stream', nil, 0);
                if not BASS_ChannelPlay(mods, True) then
                  MessageBox(0, 'Error playing music!', nil, 0);
              end;
            end;
        end;
      end
  else
    Result := false;
  end;
end;

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;