Плеер, Одна проблемка. Опции

[Артемий]

Вожусь с плеером.Ктонибудь не подскажет одну вещь: допустим я использую свой плеер по умолчанию (

  if not ('' = System.ParamStr(1)) then
    with MediaPlayer1 do
    begin
    try
      Filename := System.ParamStr(1);
       {Ну и так далее...}

) Так вот когда я не закрывая первого экземпляра плеера открываю другой муз. файл, то открывается второй экземпляр плеера и там играет вторая мелодия. А я хочу чтобы 2-я мелодия играла в первом экземпляре.

Сообщение отредактировано: Артемий2 - 2.12.2006 21:27

[hiv]

Алгоритм такой:
1) Проверяешь при старте программы (onCreateForm) не запущен ли еще один экземпляр твоего плеера. Как сделать смотри Получение списка запущенных приложений
2) Если экземпляр есть, то шли сообщение ему (PostMessage), в котором указано имя нового файла для воспроизведения и завершай работу программы (только не первого экземпляра ;) ).
3) Организуй обработку своего события (т.н. сообщения - например const WM_ADD_IN_PLAYLIST = WM_USER + 1010; ) как это сделать - пример из стандартного хелпа:

//The following code handles a custom message that the application sends to itself when a file is ready for reading.

const
 WM_FILEREADY = WM_USER + 2000;
procedure TForm1.FormCreate(Sender: TObject);

begin
  Application.OnMessage := AppMessage;
end;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.message = WM_FILEREADY then
  begin
    Memo1.Lines.LoadFromFile(StrPas(PChar(Msg.lParam)));
    Handled := True;

  end;

  { for all other messages, Handled remains False }
  { so that other message handlers can respond }
end;

Удачи

Сообщение отредактировано: hiv - 5.12.2006 20:01

[Артемий]

Примерно что-то вроде этого думал, но не знал как сделать. Спасибо.

Сообщение отредактировано: Артемий2 - 5.12.2006 23:13

[Артемий]

2) Если экземпляр есть, то шли сообщение ему (PostMessage), в котором указано имя нового файла для воспроизведения и завершай работу программы (только не первого экземпляра ;) ).

Извиняюсь за тормоз! А как именно приложению отправить это имя? В смысле в PostMessage не разбираюсь.. (отписался и забыл про эту тему,теперь вспомнил)

[hiv]

В смысле в PostMessage не разбираюсь..

Вот так посылать сообщения:

PostMessage(hWnd, WM_FILEREADY, 0, MusicFileName);
Close;

где hWnd - хендлер уже запущенного твоего плеера (как его найти я давал ссылку вверху).
Close - означает выход из текущего плеера...

Сообщение отредактировано: hiv - 22.08.2007 21:10

[Bokul]

Как я понимаю на этапе использования PostMessage, ты уже уверен что твое приложение запущенно. А значит можешь идентифицировать его, например, по названию оконного заголовка или класса окна. Для этого в WinApi есть функция FindWindow. Первый параметр - название класса окна, второй - название заголовка окна. Есть возможность искать только по одному из параметров (в случае когда второй неизвестен), подставляя под значение другого nil, но гарантия нахождения именно твоего окна увеличивается при задании сразу двух параметров. Результат этой функции, в случае успешного выполнения, вернет handle твоего окна (того, что стартовало первым). Именно за этим мы использовали FindWindow, ибо первый аргумент функции PostMessage и есть handle окна, которому ты хочешь отправить сообщение. В качестве Msg можешь указать WM_ADD_IN_PLAYLIST (из поста hiv'a), а полезную нагрузку будут выполнять два оставшихся параметра. Вернее в нашем случае понадобиться только один. Тип каждого из них это DWord, который занимает 4 байта. Как раз как и pointer или pChar... Т.е. ты просто приводишь свою строку к DWord и передаешь получившиеся как аргумент в функцию.

[Артемий]

Т.е. ты просто приводишь свою строку к DWord

А как привести строку к dword?

Сообщение отредактировано: Артемий - 22.08.2007 21:18

[Bokul]

dword(PChar). Хотя правильнее будет WPARAM(PChar) или LPARAM (PChar), в соответствии с типом аргумента в котором ты захочешь передавать данные.

Сообщение отредактировано: Bokul - 22.08.2007 21:21

[Артемий]

Пасибо ребят! (если будут вопросы - отпишусь ) а пока - +1 Bokul и +1 hiv! Вы реально помогли!

[volvo]

1) Проверяешь при старте программы (onCreateForm) не запущен ли еще один экземпляр твоего плеера. Как сделать смотри Получение списка запущенных приложений

Гораздо надежнее было бы использовать CreateMutex с заранее сгенерированным GUID-ом в качестве третьего параметра для отлова второй копии приложения...

P.S. С цитатой сначала промахнулся... Исправил...

Сообщение отредактировано: volvo - 22.08.2007 23:09

[Bokul]

P.S. С цитатой сначала промахнулся... Исправил...

А если вернуться к первоначальной, как повысить надежность нахождения нужного окна? На ум приходит только явное сохранение handle в заданном месте, например в файле или атоме..

[volvo]

Ага, сейчас прямо... Все дела забросим и будем файлы плодить

mailslots никто не отменял: Ассоциированные файлы и предотвращение запуска второй копии приложения

[Артемий]

Блин, при компиляции программы FindWindow сразу находит первый экземпляр..Что не так?

procedure TForm1.FormCreate(Sender: TObject);
var
d: PChar;
h: hwnd;
begin
Application.OnMessage := AppMessage;
d := PChar(System.ParamStr(1));
h := FindWindow(nil,'MP3 1.8.0.7');
 if h<>0 then begin
  PostMessage(h,WM_ADD_TO_PLAYLIST,0,lparam(d));
  Application.Terminate;
 end;
end;

Сообщение отредактировано: Артемий - 23.08.2007 1:57

[volvo]

Ну, во-первых, ты где прописал Caption формы? В Object Inspector-е? Надо бы здесь:

begin
  Application.OnMessage := AppMessage;
  d := PChar(System.ParamStr(1));
  h := FindWindow(nil,'MP3 1.8.0.7'); // <--- Здесь ищешь именно первое приложение
  if h<>0 then begin
    PostMessage(h,WM_ADD_TO_PLAYLIST,0,lparam(d));
    Application.Terminate;
  end;

  // Вот тут, уже после FindWindow, можно менять Caption формы...
  Form1.Caption := 'MP3 1.8.0.7';
  ...

Должно работать... А если у тебя Caption прописан в Инспекторе, то получишь то, что получаешь

[Артемий]

Ага,я понял.Спасибо за помощь!

[Артемий]

Это опять я. Сообщение от второго экзэмпляра первому передается,только первое нифига нормально обработать не может:

procedure TForm1.FormCreate(Sender: TObject);
var
d: PChar;
h: hwnd;
begin
Application.OnMessage := AppMessage;
d := PChar(System.ParamStr(1));
h := FindWindow(nil,'MP3 1.8.0.7');
 if (h<>0) then begin
  PostMessage(h,WM_ADD_TO_PLAYLIST,0,lparam(d));
  Application.Terminate;
 end;
end;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.message = WM_ADD_TO_PLAYLIST then
  begin
    MediaPlayer1.FileName := StrPas(PChar(Msg.lParam)); {<--------  Вот тут произходит ошибка!!!!!}
    MediaPlayer1.Open;

Сообщение отредактировано: Артемий - 24.08.2007 22:52

[volvo]

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var s: string;
begin
  if Msg.message = WM_ADD_TO_PLAYLIST then
  begin
    s := StrPas(PChar(Msg.lParam));
    MediaPlayer1.FileName := s; // Вот так ошибка не произойдет, если передано правильное имя файла
    MediaPlayer1.Open;
...

[Артемий]

Теперь ошибка происходит в этой строке:

s := StrPas(PChar(Msg.lParam));

Добавлено через 2 мин.
Дело еще в том,что значение lParam(d) в процедуре FormCreate одно, а в процедуре AppMessage Msg.lParam значение другое..я сравнил...

[volvo]

У меня не происходит... Покажи, как ты передаешь имя файла, может там проблема...

Добавлено через 4 мин.
А, у тебя берется параметр командной строки... Я сделал вот так:

var
  d: PChar; // Глобально !!!

procedure TForm1.FormCreate(Sender: TObject);
var h: hwnd;
begin
  Application.OnMessage := AppMessage;
  d := PChar(ExtractFilePath(ParamStr(0)) + 'sound.wav');
  h := FindWindow(nil,'MP3 1.8.0.7');
  if h<>0 then begin
    PostMessage(h,WM_ADD_TO_PLAYLIST,0,lparam(d));
    Application.Terminate;
  end;
  Form1.Caption := 'MP3 1.8.0.7';
  ...
end;

const
  WM_ADD_TO_PLAYLIST = WM_USER + 1010;

procedure TForm1.AppMessage(var Msg: TMsg; var Handled: Boolean);
var s: string;
begin
  if Msg.message = WM_ADD_TO_PLAYLIST then
  begin

    s := StrPas(PChar(Msg.lParam));
    MediaPlayer1.FileName := S;
    MediaPlayer1.Open;
    Handled := True;

  end;
end;

- все отработало...

Сообщение отредактировано: volvo - 24.08.2007 23:20

[Артемий]

В смысле как передаю? System.ParamStr(1)?

Добавлено через 8 мин.
Все равно пишет ошибку! (сволочь (извините))