Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2011.06.05;
Скачать: [xml.tar.bz2];

Вниз

И вновь перемотка ...... (да она самая)   Найти похожие ветки 

 
Ламерёнок   (2008-06-04 15:26) [0]

Привет всем ! Пишу плеер  , начал писать перемотку  воот как я это сделал
//Кнопка Play
procedure TForm6.Image4Click(Sender: TObject);
begin
if (listbox1.itemindex=-1) then begin
listbox1.ItemIndex:=0;
end;
If listbox1.Items.Text = "" then begin
form4.Label1.caption:="Вы не открытли список медиа файлов";
form4.Timer1.Enabled:=false;
form4.Timer1.Enabled:=true;
form4.Show;
label1.Caption:="Ошибка";
exit;
end;
If FileExists(ListBox1.items[Listbox1.ItemIndex])=false then begin
form4.Label1.caption:="Не могу найти файл";
form4.Timer1.Enabled:=false;
form4.Timer1.Enabled:=true;
form4.Show;
label1.Caption:="Нету такого файла";
exit;
end;
If ListBox1.items[Listbox1.ItemIndex]=MediaPlayer1.FileName then  begin
MediaPlayer1.Play;
exit;
end;
If (ExtractFileExt(ListBox1.items[Listbox1.ItemIndex])=".mp3")or(ExtractFileExt(Lis tBox1.items[Listbox1.ItemIndex])=".wav")or(ExtractFileExt(ListBox1.items[Listbox 1.ItemIndex])=".wave")or(ExtractFileExt(ListBox1.items[Listbox1.ItemIndex])=".Mp 3")or(ExtractFileExt(ListBox1.items[Listbox1.ItemIndex])=".MP3")or(ExtractFileEx t(ListBox1.items[Listbox1.ItemIndex])=".wmv")or(ExtractFileExt(ListBox1.items[Li stbox1.ItemIndex])=".avi") then begin
Numberofmusic:=ListBox1.ItemIndex;
MediaPlayer1.filename:=ListBox1.Items[ListBox1.itemIndex];
form4.Label1.caption:=ExtractFileName(MediaPlayer1.FileName);
form4.Timer1.Enabled:=false;
form4.Show;
Form6.Show;
Form4.Timer1.Enabled:=true;
label1.Caption:=ExtractFileName(MediaPlayer1.FileName);;
MediaPlayer1.Open;
MediaPlayer1.Play;
timer1.Enabled:=true;
TrackBar1.Max:=MediaPlayer1.Length;// определение длины файла , это та строчка ради которой писал всю процедуру....
exit;
end else

label1.Caption:="Не известный тип файла ";
form4.Label1.caption:="Не известный тип файла ";
form4.Timer1.Enabled:=false;
form4.Timer1.Enabled:=true;
form4.Show;
end;

procedure Tform6.TrackChange(Sender: TObject);
begin
 mediaplayer1.Position:=trackbar1.Position;
 mediaplayer1.Play;
 end;

procedure TForm6.Timer1Timer(Sender: TObject);//А воот эта фиговина мне и ненравится
begin
label2.Caption:=inttostr(MediaPlayer1.Position div 10);
TrackBar1.position:=MediaPlayer1.position
end;
Так воот Проблемма заключается в искаверкивании музыки в таймере , она происходит потому что ползунок двигается и обробатывается Trackbar1.change ....


 
Ламерёнок   (2008-06-04 15:29) [1]

Блин ... недописал , Как сделать так чтобы в TrackBar ползунок двигался таймером не коверкая при этом качество звука


 
Ламерёнок   (2008-06-04 16:02) [2]

Кто-нибудь может помочь мне ? Если моя процедура перемотки фиговая , вы можете дать другую.... 100% рабочую


 
Сергей М. ©   (2008-06-04 19:26) [3]


> If (ExtractFileExt(ListBox1.items[Listbox1.ItemIndex])=".
> mp3")or(ExtractFileExt(Lis tBox1.items[Listbox1.ItemIndex])=".
> wav")or(ExtractFileExt(ListBox1.items[Listbox 1.ItemIndex])=".
> wave")or(ExtractFileExt(ListBox1.items[Listbox1.ItemIndex])=".
> Mp 3")or(ExtractFileExt(ListBox1.items[Listbox1.ItemIndex])=".
> MP3")or(ExtractFileEx t(ListBox1.items[Listbox1.ItemIndex])=".
> wmv")or(ExtractFileExt(ListBox1.items[Li stbox1.ItemIndex])=".
> avi") then begin


> Блин ... недописал


Пиши исчо !
Оч интересно читать.


 
ЮЮ ©   (2008-06-05 09:57) [4]

> procedure TForm6.Timer1Timer(Sender: TObject);//А воот эта фиговина мне и ненравится
> begin
> label2.Caption:=inttostr(MediaPlayer1.Position div 10);
 TrackBar1.OnChange := nil;
 try

>   TrackBar1.position:=MediaPlayer1.position
 finally
   TrackBar1.OnChange := TrackChange;  
 end;

> end;



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

Форум: "Media";
Текущий архив: 2011.06.05;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.003 c
2-1298927662
Sashka
2011-03-01 00:14
2011.06.05
Работа с AsyncCall


3-1260280989
noob_one
2009-12-08 17:03
2011.06.05
Где хранятся домены в Interbase 7.5 ?


15-1297891798
Юрий
2011-02-17 00:29
2011.06.05
С днем рождения ! 17 февраля 2011 четверг


2-1298278775
fidel
2011-02-21 11:59
2011.06.05
Загрузка


10-1156496750
фыва
2006-08-25 13:05
2011.06.05
OleContainer и ScrollBar





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский