Автор |
Сообщение |
Baltozar
Опытный воин
Пришел: 22.03.2002
Сообщения: 519
Откуда: Пятигорск
|
Добавлено: 01 августа 2002, 20:10 |
![[?]](templates/subSilver/images/lang_russian/icon_profile.gif "Посмотреть профиль")
![[PM]](templates/subSilver/images/lang_russian/icon_pm.gif "Отправить личное сообщение")
![[M]](templates/subSilver/images/lang_russian/icon_email.gif "Отправить e-mail")
![[«»]](templates/subSilver/images/lang_russian/icon_quote.gif "Ответить с цитатой")
|
|
Господа Гипатские-программисты
Я пишу в дельфине плеер и вот по этому поводу есть пара вопросов:
немного запутался с кнопкой pause мне нужно чтобы при повторном нажатии воспроизведение продолжилось
вот мой код для Паузы
_______________________________________________
procedure TForm1.PauseClick(Sender: TObject);
begin
with MediaPlayer1 do
begin
Close;
FileName:=FileListBox1.FileName;
Open;
Pause;
end;
end;
________________________________________________
что нужно дописать?
и второй мне нужен код для кнопни повтор при нажатии которой трек проигрывается бесконечное кол-во раз
если не трудно напшите код
__ images/smiles/icon_smile.gif __всем большое спасибо__ images/smiles/icon_smile.gif __
[ 01 августа 2002: Изменил: Baltozar ] |
|
 |
серега
Опытный воин
Пришел: 11.07.2002
Сообщения: 639
Откуда: Inferno
|
|
|
Baltozar
Опытный воин
Пришел: 22.03.2002
Сообщения: 519
Откуда: Пятигорск
|
|
|
Baltozar
Опытный воин
Пришел: 22.03.2002
Сообщения: 519
Откуда: Пятигорск
|
|
Добавлено: 02 августа 2002, 01:46 |
|
|
Да забыл еще узнать как мне нажав на кнопку перейти к файлу ворда
типа нажал и в новом окне открылся тот самый файл ворда images/smiles/converted/upset.gif
[ 02 августа 2002: Изменил: Baltozar ] |
|
|
benedict
Загонщик
Пришел: 09.07.2002
Сообщения: 13
Откуда: Ottuda
|
|
Добавлено: 02 августа 2002, 03:29 |
![[w]](templates/subSilver/images/lang_russian/icon_www.gif "Посетить сайт автора")
|
|
Pstavi v entot svoi tsikl peremrnnuiu skajem i
procedure TForm1.PauseClick(Sender: TObject);
var i:integer;
begin
i=0;
with MediaPlayer1 do
begin
i:=i+1;
Close;
FileName:=FileListBox1.FileName;
Open;
Pause;
if i=1 then
begin
Play;" ili sho tam nada dlia togo shobi on zapel dalishe "
i=0;
end;
end;
Vrode doljno srabotati
images/smiles/converted/type.gif |
|
|
benedict
Загонщик
Пришел: 09.07.2002
Сообщения: 13
Откуда: Ottuda
|
|
|
benedict
Загонщик
Пришел: 09.07.2002
Сообщения: 13
Откуда: Ottuda
|
|
|
Baltozar
Опытный воин
Пришел: 22.03.2002
Сообщения: 519
Откуда: Пятигорск
|
|
Добавлено: 02 августа 2002, 11:59 |
|
|
| Спасибо щас попробую о результате сообщю |
|
|
Baltozar
Опытный воин
Пришел: 22.03.2002
Сообщения: 519
Откуда: Пятигорск
|
|
Добавлено: 02 августа 2002, 18:13 |
|
|
benedict
дельфин отказывается понимать
i =-1
и все в токам роде
видимо нужно что-то другое |
|
|
Baltozar
Опытный воин
Пришел: 22.03.2002
Сообщения: 519
Откуда: Пятигорск
|
|
|
Alexy III
Оружейник
Пришел: 22.12.2001
Сообщения: 198
Откуда: Ярославль
|
|
Добавлено: 03 августа 2002, 01:59 |
|
|
Может стоит i := -1 ?
Судя по коду. |
|
|
Nivea
Смерть гоблинов
Пришел: 21.12.2001
Сообщения: 266
Откуда: Samara
|
|
Добавлено: 03 августа 2002, 03:58 |
|
|
Если правильно понял.........................
procedure TForm1.PauseClick(Sender: TObject);
begin
with MediaPlayer1 do
if Pause.Caption = 'Play' then
begin
Pause.Caption := 'Pause';
Play;
end
else
begin
Pause.Caption := 'Play';
MediaPlayer1.Pause;
end;
end;
end;
кстати переименуй кнопку Pause,
а то называется также как метод pause, от греха |
|
|
ALaKO
Привратник
Пришел: 22.02.2002
Сообщения: 390
|
|
Добавлено: 03 августа 2002, 08:43 |
|
|
Можно было много проще. расположить две одинаковых кнопки. одна по умолчанию hide вторая - play - show. При нажатии на паузу
begin
mediaplayer.play;
pause.show;
play.hide;
end;
и вторая кнопка - pause
begin
mediaplayer.pause;
pause.hide;
play.show;
end;
все просто. |
|
|
ALaKO
Привратник
Пришел: 22.02.2002
Сообщения: 390
|
|
Добавлено: 03 августа 2002, 08:49 |
|
|
и еще, в лист бокс лучше авто файлы добавлять из директории, набросал тут...
var
searchrec:Tsearchrec;
begin
if findfirst(ExtractFilePath(application.ExeName)+'path/*.mp3', faanyfile,searchrec)=0 then
begin
form1.listbox1.Items.Add
while (findnext(searchrec)=0) do
begin
form1.listbox1.Items.Add(d);
end;end; |
|
|
Baltozar
Опытный воин
Пришел: 22.03.2002
Сообщения: 519
Откуда: Пятигорск
|
|
|
Baltozar
Опытный воин
Пришел: 22.03.2002
Сообщения: 519
Откуда: Пятигорск
|
|
Добавлено: 09 августа 2002, 20:16 |
|
|
Хм...
Казалось бы что может быть проще, но... на этом я и застопорился.
1)Нужно по клику на кнопке открыть форму (Form2)
__________________________________________________
procedure TForm1.Button1Click(Sender: TObject);
begin
А тут чаво???
end;
__________________________________________________
2)И по нажатию другой кнопки что бы открылось невидимое(Visible:= false)окно Memo
__________________________________________________
procedure TForm1.Button2Click(Sender: TObject);
begin
А тут чаво2 images/smiles/icon_smile.gif ???
end;
__________________________________________________
>>программисты хелп<< images/smiles/converted/voldar04.gif |
|
|
Alexy III
Оружейник
Пришел: 22.12.2001
Сообщения: 198
Откуда: Ярославль
|
|
Добавлено: 10 августа 2002, 08:41 |
|
|
1. Form2.showmodal();
2. Не помню. В mfc window.showwindow( SW_SHOW ) В дельфях, возможно, что-то типа того |
|
|
ALaKO
Привратник
Пришел: 22.02.2002
Сообщения: 390
|
|
Добавлено: 10 августа 2002, 09:51 |
|
|
form2.showmodal
memo1.show; |
|
|
Baltozar
Опытный воин
Пришел: 22.03.2002
Сообщения: 519
Откуда: Пятигорск
|
|
Добавлено: 11 августа 2002, 00:29 |
|
|
images/smiles/icon_biggrin.gif Пасибо, но есть еще вопросик images/smiles/icon_smile.gif
при нажатии Alt+P (в проигрывателе) должно начаться воспроизведение т.е. действие анологичное кнопке Play
__________________________________________________
procedure TForm1.PlayClick(Sender: TObject);
begin
with MediaPlayer1 do
begin
Close;
FileName:=FileListBox1.FileName;
Open;
Play;
end;
end;
__________________________________________________
я разместил на форме компонент hotkey но так с ним и не разобрался.
Обьясните плиз как это делается |
|
|
|
