[Virus]

Доброго времени суток!
Я писал mp3 плеер, но он выдавал кучу фатальных ошибок.
Короче я слышал о возможности каким-то образом сделать плеер на стандартном (win media). Его надо как-то загрузить.
Подскажите пожалуйста, как это сделать !!!только очень подробно!!!
А он запашет под вистой???

[Кодер]

Если не ошибаюсь, то имеется компонент TMediaPlayer .. вроде он лежит в закладке System
А под Вистой не тестил

[Virus]

Не, это не то

[Virus]

Ну хотя бы дайте ссыль на рабочий исходник(только без глюков).Плиз!

[Кодер]

Так если тебе этот компонент не подходит..какой ты хочешь?Для работы с Винампом?Или всётаки стандартным?

[Burka]

первым делом тебе нужна библиотека, fmod.dll или bass**.dll(Не помню цифры), учи методы библиотеки и пиши плеер. Исходники без библиотеки ты все равно не запустишь.

[Virus]

Ладно обойдемся без этого, а Bass.dll есть!
Подскажите, как можите...

[Virus]

Что нужно написать для кнопок (код):Воспроизведение, пауза, остановка, предыдущий трек, следующий трек, фобавить файл, добавить папку.
А как изменять громкость?(тоже нужен код).
И как сделать перемотку и отоброжение прогресса песни(progpessBar) (РАБОТАЮ СО СТАНДАРТНЫМ КОМПОНЕНТОМ TMEDIAPLAYER)
Буду очень благодарен

[mak-karpov]

Для кнопок:
MediaPlayer1.Play;
MediaPlayer1.Stop;
и т.д
Текущая позиция(для отображения прогресса)-MediaPlayer1.Position(в мсек)
Всего- MediaPlayer1.Length

[Virus]

Как сделать выбор папки, кнопки след, предыд,
И полосу прогресса обьясните подробно

[mak-karpov]

MediaPlayer1.Next;
MediaPlayer1.Prev;
-------------------
MediaPlayer1.Close;
MediaPlayer1.FileName:='....';
MediaPlayer1.Open;

[Virus]

MediaPlayer1.Prev;
НЕ работает

[mak-karpov]

А полосу прогресса-

Код:

var I : Boolean;
    .
    .
    .
procedure TForm1.Timer1Timer(Sender : TObject);
begin
I := true;
TrackBar1.Position := MediaPlayer1.Position;
end;

procedure TForm1.TrackBar1Charge(Sender : TObject);
begin
If not I then MediaPlayer1.Position := TrackBar1.Position;
end;

Помоему так

[Virus]

Опять что то не так((((((((((((((((((((((((((((((((((((((((((((( ((

[mak-karpov]

MediaPlayer1.Prev*** там не помню.
По подсказке в Дельфях пошарь

А с полосой прогресса - я сам до сих пор вожусь