перемотка в mp3 плеере

[Mazaxaka]

begin //в таймере
if mediaplayer1.FileName<>'' then
begin
TrackBar2.Max:=mediaplayer1.Length;
TrackBar2.Position:=mediaplayer1.Po sition;
end;

begin //в TpsSon1
If TrackBar2.Position<>mediaplayer1.Po sition then
begin
TpsSon1.Position:=TrackBar3.Positio n;
TpsSon1.Play;
end;

[spamer]

Вообще то все должно работать без проблем.Смотри в коде де то ты что то не то написал.

P.S. Иногда читай форум, вот качай, разбирайся.
Код не мой, смотри темы ниже.

[Mazaxaka]

посмотрите может че подскажите(подправите)

[spamer]

Да конешно проблем в нем много.

1.При открытии одного трека, открывается вся папка с треками.
2.При нажатии на Стоп, время воспроизведения все равно идет, хотя оно должно становится в 0.00
3.При нажатии на Стоп, а потом при нажатии на прокрутку трека, песня начинает играть, это почему же так?
4.Зачем две кнопки для паузы? Кнопка воспроизведения есть и кнопкой паузы.
5.Не выводит Проценты звука.
6.При очистки П/Л все равно идет воспроизведение последнего трека.Как то это странно, скажи же?
7.Там еще можно искать лаги, попробуй сам найти и постараться решить.

P.S. Если что то не получается, пиши - помогу.

[spamer]

1)

 var i:integer;  //Создаешь локальную переменную, в процедуре открытия файла.

//Это все пиши уже в теле процедуры.
if OpenDialog1.Execute then
  begin
    for i:=0 to opendialog1.Files.Count-1 do
      begin
        ListBox1.Items.Add(ExtractFileName(OpenDialog1.Files.Strings[i]));
      end;
 end;

Код позволяет открывать как один так и несколько файлов.

5)

Label3.Caption:=IntToStr(TrackBar1.Position);

Вставь в самый конец процедуры обработки звука.

6) А ты попробуй очисти П/Л и нажми на полосе прокрутки трека.

Дальше думай сам, если че - пиши. помогу.

слушай еще spamer. узнал тут что AIMP плеер тоже написан на борландии. исходников ни где не видел?

Нет, не видил. Та и мене кажется врядли ты найдешь его исходники.

P.S. Пиши лучше все в одном сообщении.Смысл того что подряд 3 твои сообщения идут, в одном бы написал.

[mutabor]

AIMP сделан на движке BASS, а то что он на Дельфи или на билдере или еще на чем-то не так важно. Для Дельфи есть компонент оболочка к BASS, называется TBassPlayer. Там примеры есть. Вам осталось только интерфейс создать.
Ждём вашего аналога AIMP

[Mazaxaka]

как сделать круглые кнопки? Прямоугольные портят весь видон. ПОДСКАЖИТЕ Что никудь.

[mutabor]

Можно сделать круглые кнопки (TButton) в буквальном смысле, но "видон" они не улучшат. Почитайте где нибудь про скины, и их реализацию на Дельфи.
Как вариант попроще накидайте имиджей (TImage), а в них иконки или битмапы с кнопками, красивее будет с иконками - в них есть прозрачность с альфой (32 битные иконки), и в сети есть много красивых иконок, в том числе с кнопками для плеера. Можно вместо многих имиджей один компонент положить панельку - TToolBar и ему назначить массив иконок (TImageList).

[Mazaxaka]

вот чтобы таскать форму за любую ее часть использую
Код:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Form1.Perform(WM_SysCommand,$F012,0 );
end;
А ка таскать ее, если на всей форме картинка(или panel). ВПИСЫВАЛ ЗА МЕСТО FORM1 IMAGE И PANEL. только такой ужас получается(таскается одна картинка(или панель) в пределах формы.

[mihasuper]

Ответ на:
TpsSon не юзал но объясню на TrackBar1 далее делай по аналогии
TrackBar1.Max:=MediaPlayer1.Length; // задаем макисмальное значение т.е. длина трека
TrackBar1.Position:=MediaPlayer1.Po sition; // позиция TrackBar1 при проигрывании трека пиши на OnTimer
MediaPlayer1.Position:=TrackBar1.Po sition; // изменение позиции трека

___________________________________ ___________________________________ ________________________

MediaPlayer1.Position:=TrackBar1.Po sition;
Не работает!!! Ты сам-то проверял???
Вот нужный код:
If MediaPleyer1.Position<>TrackBar1.Po sition then
Begin
MediaPlayer1.Position:=TrackBar1.Po sition;
MediaPlayer1.Play;
end;
!!!!!!!!!!!