Windows Media Player в Delphi

[bookkc]

Где взять компонент Windows Media Player в Delphi.

Недавно в Visual Basic 6.0 видел такой, интересукт где взять его для Delphi7

[Alex Cones]

Третий значок

[raxp]

...не об ActiveX ли речь/

[bookkc]

О стандартном Windows Media Player который будет в формe Delphi

[bookkc]

Спасибо, поставил через ActiveX.

Теперь вопрос, как сделать регулировку звука через обычный Scroll ?

[Hacker19_90]

Вот тебе код для установки звука, ну а как связать его со скролом сам поймёшь я думаю!

uses
   MPlayer, MMSystem;

 const
   MCI_SETAUDIO = $0873;
   MCI_DGV_SETAUDIO_VOLUME = $4002;
   MCI_DGV_SETAUDIO_ITEM = $00800000;
   MCI_DGV_SETAUDIO_VALUE = $01000000;
   MCI_DGV_STATUS_VOLUME = $4019;

 type
   MCI_DGV_SETAUDIO_PARMS = record
     dwCallback: DWORD;
     dwItem: DWORD;
     dwValue: DWORD;
     dwOver: DWORD;
     lpstrAlgorithm: PChar;
     lpstrQuality: PChar;
   end;

 type
   MCI_STATUS_PARMS = record
     dwCallback: DWORD;
     dwReturn: DWORD;
     dwItem: DWORD;
     dwTrack: DWORD;
   end;

 procedure SetMPVolume(MP: TMediaPlayer; Volume: Integer);
   { Volume: 0 - 1000 }
 var
   p: MCI_DGV_SETAUDIO_PARMS;
 begin
   { Volume: 0 - 1000 }
   p.dwCallback := 0;
   p.dwItem := MCI_DGV_SETAUDIO_VOLUME;
   p.dwValue := Volume;
   p.dwOver := 0;
   p.lpstrAlgorithm := nil;
   p.lpstrQuality := nil;
   mciSendCommand(MP.DeviceID, MCI_SETAUDIO,
     MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p));
 end;

 function GetMPVolume(MP: TMediaPlayer): Integer;
 var
    p: MCI_STATUS_PARMS;
 begin
   p.dwCallback := 0;
   p.dwItem := MCI_DGV_STATUS_VOLUME;
   mciSendCommand(MP.DeviceID, MCI_STATUS, MCI_STATUS_ITEM, Cardinal(@p));
   Result := p.dwReturn;
   { Volume: 0 - 1000 }
 end;

 // Example, Beispiel: 

procedure TForm1.Button1Click(Sender: TObject);
 begin
   SetMPVolume(MediaPlayer1, 500);
 end;

[bookkc]

о_О

И ещё кое что,

Как сделать так что бы информацию о названии например пести показывало в label ?

[bookkc]

Сообщение от Hacker19_90

Вот тебе код для установки звука, ну а как связать его со скролом сам поймёшь я думаю!

Регается на строчку

SetMPVolume(WindowsMediaPlayer1, 500);

[Hacker19_90]

Сообщение от bookkc

Регается на строчку

SetMPVolume(WindowsMediaPlayer1, 500);

А у тя как медиаплеер как называется????
Смотри поле name

[bookkc]

У меня не Media Player который во вкладке system. А Windows Media Player из ActiveX