Скачать: CL | DM;

MediaPlayer и TCPServer   Найти похожие ветки 

← →
Квэнди ©   (2007-07-13 15:34) [0]

Исопльзую вот такой код:
procedure TForm13.Button1Click(Sender: TObject);
begin
MediaPlayer1.FileName:="D:\Documents and Settings\Pavel\Рабочий стол\eva.mp3";
MediaPlayer1.Open;
MediaPlayer1.Play;
end;

procedure TForm13.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
AThread.Connection.Write("f");
end;

procedure TForm13.IdTCPServer1Execute(AThread: TIdPeerThread);
var s:string;
begin
s:=trim(AThread.Connection.Readln);
if pos("pause",s)<>0 then
 MediaPlayer1.Pause;
AThread.Connection.Disconnect;
end;

проверяю, запускаю, начинает проигрываться файл, захожу к себе телнетом на порт, который биндю, посылаю паузу (при трассировке видно, что событие срабатывает, условие корректно) , выполняется строка MediaPlayer1.Pause; но музыка как игралась, так и играется дальше. Не подскажете в чем проблема и как это решить ?

---

← →
Сергей М. ©   (2007-07-13 15:38) [1]

> в чем проблема


В том что обработчик OnExecute выполняется НЕ в основном потоке.


> как это решить ?


Вызывать методы плейера в том же потоке, в котором он был тобой создан - в основном.

---

← →
Квэнди ©   (2007-07-13 15:41) [2]

Через синхронайз или как ? можете описать примером ?

---

← →
Сергей М. ©   (2007-07-13 15:45) [3]

> Через синхронайз или как ?


До "синхронайза" ты вряд ли просто так доберешься.

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.068 c