+- Город Джунов (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;
________________________________________________
что нужно дописать?
и второй мне нужен код для кнопни повтор при нажатии которой трек проигрывается бесконечное кол-во раз
если не трудно напшите код
__
__всем большое спасибо__ __[ 01 августа 2002: Изменил: Baltozar ]</p>
Кодинг - серега - 01.08.2002
Бальтозар а что конкретно ты хочешь сделать? Ролик? Клип? :unsure:
Кодинг - Baltozar - 02.08.2002
серега я же написал плеер-это штукенция такая хитроумная он воспроизводит видео и аудио файлы
Кодинг - 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
Кодинг - 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
Кодинг - 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
Всем большушее спасибо, выручили
Кодинг - Baltozar - 09.08.2002
Хм...
Казалось бы что может быть проще, но... на этом я и застопорился.
1)Нужно по клику на кнопке открыть форму (Form2)
__________________________________________________
procedure TForm1.Button1Click(Sender: TObject);
begin
А тут чаво???
end;
__________________________________________________
2)И по нажатию другой кнопки что бы открылось невидимое(Visible:= false)окно Memo
__________________________________________________
procedure TForm1.Button2Click(Sender: TObject);
begin
А тут чаво2
???end;
__________________________________________________
>>программисты хелп<<
Кодинг - 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
Пасибо, но есть еще вопросик при нажатии Alt+P (в проигрывателе) должно начаться воспроизведение т.е. действие анологичное кнопке Play
__________________________________________________
procedure TForm1.PlayClick(Sender: TObject);
begin
with MediaPlayer1 do
begin
Close;
FileName:=FileListBox1.FileName;
Open;
Play;
end;
end;
__________________________________________________
я разместил на форме компонент hotkey но так с ним и не разобрался.
Обьясните плиз как это делается