С Новым годом! Форум программистов, компьютерный форум, киберфорум
C++ Builder
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++ > C++ > C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
0 / 0 / 0
Регистрация: 25.05.2009
Сообщений: 9

Удаленное управление Windows Media Player

25.12.2012, 20:10. Показов 2473. Ответов 2
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Доброго времени суток!!! Помогите исправить программу, она управляет Winamp`ом, а вот что надо исправить чтоб управляла Windows Media Player так же по сети??? Код написан на C++Builder 6
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83

//Файл MyHostAmpImpl.cpp, описывающий методы сервера:
// MYHOSTAMPIMPL : Implementation of TMyHostAmpImpl (CoClass: MyHostAmp, Interface: IMyHostAmp)
#include <vcl.h>
//#include "Unit1.h"
#pragma hdrstop
#include "Winamp\wa_ipc.h"
#include "MYHOSTAMPIMPL.H"
/////////////////////////////////////////////////////////////////////////////
// TMyHostAmpImpl
// Метод управления громкостью
STDMETHODIMP TMyHostAmpImpl::set_SetVolume(int Param1)
{
  try
  {
  SendMessage(handle,WM_WA_IPC,Param1,IPC_SETVOLUME);
  Form1->Memo1->Text= "Громкость изменена на " + AnsiString(Param1*100/255) + "%";
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IMyHostAmp);
  }
  return S_OK;
};
// Метод добавления нового трека
STDMETHODIMP TMyHostAmpImpl::set_AddTrack(BSTR* Param1)
{
  try
  {
  AnsiString k;
  k = AnsiString(WideString(*Param1));
  COPYDATASTRUCT cds = {0};
  cds.dwData = IPC_ENQUEUEFILE;
  cds.lpData = (void*)k.c_str();
  cds.cbData = lstrlen((char*)cds.lpData)+1;  // include space for null char
  SendMessage(handle,WM_COPYDATA,0,(LPARAM)&cds);
  Form1->Memo1->Text= "Добавлен трек:\r\n" + k;
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IMyHostAmp);
  }
  return S_OK;
};
// Метод управления воспроизведением
STDMETHODIMP TMyHostAmpImpl::set_ClickBut(int Param1)
{
  try
  {
  if (Param1==1) {SendMessage(handle, WM_COMMAND, 40044, 0); Form1->Memo1->Text= "Нажата клавиша \"Предыдущий трек\"";}
  if (Param1==2) {SendMessage(handle, WM_COMMAND, 40045, 0); Form1->Memo1->Text= "Нажата клавиша \"Воспроизведение\"";}
  if (Param1==3) {SendMessage(handle, WM_COMMAND, 40046, 0); Form1->Memo1->Text= "Нажата клавиша \"Пауза\"";}
  if (Param1==4) {SendMessage(handle, WM_COMMAND, 40047, 0); Form1->Memo1->Text= "Нажата клавиша \"Стоп\"";}
  if (Param1==5) {SendMessage(handle, WM_COMMAND, 40048, 0); Form1->Memo1->Text= "Нажата клавиша \"Следующий трек\"";}
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IMyHostAmp);
  }
  return S_OK;
};
// Метод поиска приложения и первоначальной настройки
STDMETHODIMP TMyHostAmpImpl::get_Start(short* Value)
{
  try
  {
  handle = FindWindow("Winamp v1.x",NULL);
  if (handle)
   {
   SendMessage(handle,WM_WA_IPC,0,IPC_DELETE);          // Очистить playlist
   SendMessage(handle,WM_WA_IPC,0,IPC_SET_SHUFFLE);     // Выключить random
   *Value = 1;
   Form1->Memo1->Text= "WinAmp найден и присоединен.";
   }
   else
   {*Value = 0;
   Form1->Memo1->Text= "WinAmp не найден.";}
  }
  catch(Exception &e)
  {
    return Error(e.Message.c_str(), IID_IMyHostAmp);
  }
  return S_OK;
};
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54

//Файл MyHostAmpImpl.h, описывающий интерфейс:
// MYHOSTAMPIMPL.H : Declaration of the TMyHostAmpImpl
#ifndef MyHostAmpImplH
#define MyHostAmpImplH
#define ATL_APARTMENT_THREADED
#include "Unit1.h"
#include "Server_TLB.H"
 
/////////////////////////////////////////////////////////////////////////////
// TMyHostAmpImpl     Implements IMyHostAmp, default interface of MyHostAmp
// ThreadingModel : Apartment
// Dual Interface : TRUE
// Event Support  : FALSE
// Default ProgID : Server.MyHostAmp
// Description    : My WinAmp Driver 1.0
/////////////////////////////////////////////////////////////////////////////
class ATL_NO_VTABLE TMyHostAmpImpl : 
  public CComObjectRootEx<CComSingleThreadModel>,
  public CComCoClass<TMyHostAmpImpl, &CLSID_MyHostAmp>,
  public IDispatchImpl<IMyHostAmp, &IID_IMyHostAmp, &LIBID_Server>
{
public:
  TMyHostAmpImpl()
  {
  }
  // Data used when registering Object 
  //
  DECLARE_THREADING_MODEL(otApartment);
  DECLARE_PROGID("Server.MyHostAmp");
  DECLARE_DESCRIPTION("My WinAmp Driver 1.0");
  // Function invoked to (un)register object
  //
  static HRESULT WINAPI UpdateRegistry(BOOL bRegister)
  {
    TTypedComServerRegistrarT<TMyHostAmpImpl> 
    regObj(GetObjectCLSID(), GetProgID(), GetDescription());
    return regObj.UpdateRegistry(bRegister);
  }
BEGIN_COM_MAP(TMyHostAmpImpl)
  COM_INTERFACE_ENTRY(IMyHostAmp)
  COM_INTERFACE_ENTRY2(IDispatch, IMyHostAmp)
END_COM_MAP()
 
// IMyHostAmp
public:
 
  STDMETHOD(set_SetVolume(int Param1));
  STDMETHOD(set_AddTrack(BSTR* Param1));
  STDMETHOD(set_ClickBut(int Param1));
  STDMETHOD(get_Start(short* Value));
};
 
HWND handle;
#endif //MyHostAmpImplH
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107

//Файл Unit1.cpp, описывающий действия клиента:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{}
//------- Разрыв соединения при выходе
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
m_obj.Unbind();
}
//------- Соединение с сервером
void __fastcall TForm1::b_connClick(TObject *Sender)
{
if(!m_obj.IsBound())
{
AnsiString strHost;
 
 if (InputQuery("Create Server", "Enter computer name:", strHost))
 {
  if (strHost.IsEmpty())
  OleCheck(CoMyHostAmp::Create(m_obj));
  else
  OleCheck(CoMyHostAmp::CreateRemote(WideString(strHost),m_obj));
  short vback;
 OleCheck(m_obj.get_Start(&vback));
 if (vback==0)
 {Application->MessageBoxA("WinAmp на удаленном\r\nкомпьютере не запущен.","Ошибка",NULL);
 Close();}
 else
 {
 b_addmp3->Enabled = true;
 b_conn->Enabled = false;
 }
 }
}
}
//------ Добавить трек
void __fastcall TForm1::b_addmp3Click(TObject *Sender)
{
if (Open1->Execute())
{
Memo1->Lines->AddStrings(Open1->Files);
 
WideString strValue;
for (int i=0; i<Open1->Files->Count; i++)
 {
 strValue = Open1->Files->Strings[i];
 OleCheck(m_obj.set_AddTrack(&strValue));
 }
b_next->Enabled = true;
b_pause->Enabled = true;
b_play->Enabled = true;
b_prev->Enabled = true;
b_stop->Enabled = true;
Volume->Enabled = true;
}
}
//------- Предыдущий трек
void __fastcall TForm1::b_prevClick(TObject *Sender)
{
OleCheck(m_obj.set_ClickBut(1));
}
//------- Востроизведение
void __fastcall TForm1::b_playClick(TObject *Sender)
{
OleCheck(m_obj.set_ClickBut(2));        
}
//------- Пауза
void __fastcall TForm1::b_pauseClick(TObject *Sender)
{
OleCheck(m_obj.set_ClickBut(3));        
}
//------- Стоп
void __fastcall TForm1::b_stopClick(TObject *Sender)
{
OleCheck(m_obj.set_ClickBut(4));        
}
//------- Следующий трек
void __fastcall TForm1::b_nextClick(TObject *Sender)
{
OleCheck(m_obj.set_ClickBut(5));        
}
//-------- Изменение громкости
void __fastcall TForm1::VolumeChange(TObject *Sender)
{
OleCheck(m_obj.set_SetVolume(255 - Volume->Position));
}
//-------- Действия при первом открытии формы
void __fastcall TForm1::FormActivate(TObject *Sender)
{
b_next->Enabled = false;
b_pause->Enabled = false;
b_play->Enabled = false;
b_prev->Enabled = false;
b_stop->Enabled = false;
Volume->Enabled = false;
b_addmp3->Enabled = false;
}
//---------------------------------------------------------------------------
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

Файл Unit1.h:
//---------------------------------------------------------------------------
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "..\Server\Server_TLB.h"
#include <ComCtrls.hpp>
#include <Dialogs.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *b_conn;
        TPanel *Panel1;
        TGroupBox *GroupBox1;
        TButton *b_addmp3;
        TMemo *Memo1;
        TGroupBox *GroupBox2;
        TButton *b_play;
        TButton *b_next;
        TButton *b_pause;
        TButton *b_prev;
        TButton *b_stop;
        TTrackBar *Volume;
        TOpenDialog *Open1;
        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
        void __fastcall b_connClick(TObject *Sender);
        void __fastcall b_addmp3Click(TObject *Sender);
        void __fastcall b_prevClick(TObject *Sender);
        void __fastcall b_playClick(TObject *Sender);
        void __fastcall b_pauseClick(TObject *Sender);
        void __fastcall b_stopClick(TObject *Sender);
        void __fastcall b_nextClick(TObject *Sender);
        void __fastcall VolumeChange(TObject *Sender);
        void __fastcall FormActivate(TObject *Sender);
private:    // User declarations
        TCOMIMyHostAmp m_obj;
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
 25.12.2012, 20:10
Ответы с готовыми решениями:

Управление Windows Media Player
Как нажать кнопку Play?? Нашел код Но он на делфи:procedure TForm1.Button1Click(Sender: TObject); var h:hwnd; begin ...

Управление компонентом Windows Media Player
Доброго времени суток. Подскажите команды по управлению WMP в С++ Builder. Тоесть не удаленно а я сам WMP кинул на форму . Создала...

Windows Media Player в Builder 'е
Доброго времени суток! Я хочу чтобы при нажатии на кнопку у меня открывался WMP. Подскажите как это сделать? заранее благодарен

2
Модератор
 Аватар для vxg
3407 / 2178 / 354
Регистрация: 13.01.2012
Сообщений: 8,448
25.12.2012, 23:49
а вы вообще уверены что этот плеер управляется? тем более образом аналогичным винампу?
0
 Аватар для raxper
10236 / 6614 / 498
Регистрация: 28.12.2010
Сообщений: 21,154
Записей в блоге: 1
26.12.2012, 01:30
https://www.cyberforum.ru/post3793465.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
 26.12.2012, 01:30
Помогаю со студенческими работами здесь

как создать видео формат любой чтобы мог прочитать обычный плеер как Windows Media Player
Создал программу, с камеры делает фотки вот проблема в сохранение каждую фотку сохранять о дельно очень много и не удобно как из...

Media Player
Создаю простенький Media Player. Отшлифовал код до 2 ошибок:) Ошибки: Unit1.cpp(16): E2285 Could not find a match for...

Пропал звук в видео Media Player
Здравствуйте, все было нормально, звук работал пока я не использовал функцию waveOutSetVolume(0, MAKELONG(TrackBar1-&gt;Position,...

Снимок кадра с видео потока Media Player
Здравствуйте, учусь работать с видео, уже сделано: просмотр, регулировка громкости, прокрутка скоро будет, но снимок экрана не получается,...

Фильтр для Media Player Classic - Home Cinema
Привет всем. Может кто нибудь помочь сделать фильтр для Media Player Classic - Home Cinema? Сразу скажу, что это эксперимент моего друга,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути
Programma_Boinc 01.01.2026
Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
 Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru