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

Вопрос по потокам.   Найти похожие ветки 

← →
iNew ©   (2003-06-04 14:50) [0]

Есть форма, на ней TMediaPlayer и кнопки.
procedure TForm1.ButtonOpen(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
end;
end;

procedure TForm1.ButtonPlay(Sender: TObject);
begin
MediaPlayer1.Play;
end;

procedure TForm1.ButtonPause(Sender: TObject);
begin
MediaPlayer1.Pause;
end;

procedure TForm1.ButtonPause(Sender: TObject);
begin
MediaPlayer1.Pause;
MediaPlayer1.Position:=0;
end;

Далее зашел в File\New\Other\Thread Object и создал отдельный юнит, а дальше как незнаю.
Вопрос в том как события этих кнопок загнать в один поток.

---

← →
Polevi ©   (2003-06-04 15:34) [1]

зачем в поток, player в своем потоке играет

---

← →
iNew ©   (2003-06-04 16:04) [2]

Я об этом не знал.
Пусть это будет как пример. Всётаки как это сделать?

---

← →
Skier ©   (2003-06-04 16:11) [3]

>iNew © (04.06.03 16:04)

> Всётаки как это сделать?

1) Спортивный интерес ?
2) В Delphi есть примеры по работе с TThread
3) Но главное не забыть что работа с VCL должна происходить
в контексте основного потока приложения, поэтому обязательным
здесь будет использование метода TThread.Synchronize(...)

---

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

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



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