Город Джунов
Кодинг - Версия для печати

+- Город Джунов (https://www.gipat.ru/forum)
+-- Форум Обсуждение Проклятых Земель (https://www.gipat.ru/forum/forum-19.html)
+--- Форум Флейм (https://www.gipat.ru/forum/forum-1.html)
+--- Темы: Кодинг (/thread-169.html)



Кодинг - Baltozar - 01.08.2002

Господа Гипатские-программисты
Я пишу в дельфине плеер и вот по этому поводу есть пара вопросов:
немного запутался с кнопкой pause мне нужно чтобы при повторном нажатии воспроизведение продолжилось
вот мой код для Паузы
_______________________________________________
procedure TForm1.PauseClick(Sender: TObject);
begin
with MediaPlayer1 do
begin
Close;
FileName:=FileListBox1.FileName;
Open;
Pause;
end;
end;
________________________________________________
что нужно дописать?
и второй мне нужен код для кнопни повтор при нажатии которой трек проигрывается бесконечное кол-во раз
если не трудно напшите код
__ Smile __всем большое спасибо__ Smile __

[ 01 августа 2002: Изменил: Baltozar ]</p>


Кодинг - серега - 01.08.2002

Бальтозар а что конкретно ты хочешь сделать? Ролик? Клип? :unsure:


Кодинг - Baltozar - 02.08.2002

серега я же написал плеер-это штукенция такая хитроумная он воспроизводит видео и аудио файлы Smile Wink


Кодинг - Baltozar - 02.08.2002

Да забыл еще узнать как мне нажав на кнопку перейти к файлу ворда
типа нажал и в новом окне открылся тот самый файл ворда :unsure:

[ 02 августа 2002: Изменил: Baltozar ]</p>


Кодинг - benedict - 02.08.2002

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

Big Grin


Кодинг - benedict - 02.08.2002

P.S.: Vnaciale i =-1 a ne nuliu nu karoche ideiu ti ponial :wacko:


Кодинг - benedict - 02.08.2002

P.P.S.: i v kontse i=-1 i esho nada end; pripsati vrode vsio Smile


Кодинг - Baltozar - 02.08.2002

Спасибо щас попробую о результате сообщю


Кодинг - Baltozar - 02.08.2002

benedict
дельфин отказывается понимать
i =-1
и все в токам роде
видимо нужно что-то другое


Кодинг - Baltozar - 03.08.2002

:angry: :angry: :angry:


Кодинг - Alexy III - 03.08.2002

Может стоит i := -1 ?
Судя по коду.


Кодинг - Nivea - 03.08.2002

Если правильно понял.........................
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 - 03.08.2002

Можно было много проще. расположить две одинаковых кнопки. одна по умолчанию hide вторая - play - show. При нажатии на паузу
begin
mediaplayer.play;
pause.show;
play.hide;
end;

и вторая кнопка - pause
begin
mediaplayer.pause;
pause.hide;
play.show;
end;

все просто.


Кодинг - ALaKO - 03.08.2002

и еще, в лист бокс лучше авто файлы добавлять из директории, набросал тут...

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 - 03.08.2002

Smile Всем большушее спасибо, выручили Big Grin


Кодинг - Baltozar - 09.08.2002

Хм...
Казалось бы что может быть проще, но... на этом я и застопорился.
1)Нужно по клику на кнопке открыть форму (Form2)
__________________________________________________
procedure TForm1.Button1Click(Sender: TObject);
begin
А тут чаво???
end;
__________________________________________________
2)И по нажатию другой кнопки что бы открылось невидимое(Visible:= false)окно Memo
__________________________________________________
procedure TForm1.Button2Click(Sender: TObject);
begin
А тут чаво2 Smile ???
end;
__________________________________________________
>>программисты хелп<< Smile


Кодинг - Alexy III - 10.08.2002

1. Form2.showmodal();
2. Не помню. В mfc window.showwindow( SW_SHOW ) В дельфях, возможно, что-то типа того


Кодинг - ALaKO - 10.08.2002

form2.showmodal
memo1.show;


Кодинг - Baltozar - 11.08.2002

Big Grin Пасибо, но есть еще вопросик Smile
при нажатии Alt+P (в проигрывателе) должно начаться воспроизведение т.е. действие анологичное кнопке Play
__________________________________________________
procedure TForm1.PlayClick(Sender: TObject);
begin
with MediaPlayer1 do
begin
Close;
FileName:=FileListBox1.FileName;
Open;
Play;
end;
end;
__________________________________________________

я разместил на форме компонент hotkey но так с ним и не разобрался.
Обьясните плиз как это делается