DELPHI
Создана: 30 Марта 2007 Птн 16:34:47.
Раздел: "Компьютерный раздел"
Сообщений в теме: 85, просмотров: 14724
-
-
-
[внешняя ссылка]
By Silhwan Hyun. TBASSPlayer is a Delphi component, which helps you make music players easily with the power of BASS audio library (bass.dll, basswma.dll, bassmidi.dll and basscd.dll). Visit [внешняя ссылка] if you want to know more about BASS audio library. TBASSPlayer can play all the file formats supported by BASS audio library such as
stream files (WAV, MP3, MP2, MP3, Ogg Vorbis, AIFF, WMA format)
music files (MOD, MO3, IT, XM, S3M, MTM, MOD, UMX format)
Winamp 2 DSP plug-ins
MIDI files (MID, MIDI, RMI, KAR format)
CD Audio tracks
URL stream (files from the internet and Shout/Icecast)
TBASSPlayer also supports "BASS add-ons" - plugin modules designed for BASS audio library which enables the playback of additional file formats. TBASSPlayer supports Winamp visualization plug-ins and Winamp DSP plug-ins also without the need of any external library to drive them. So you can enjoy the power of numerous Winamp plug-ins with that of BASS audio library.
d4,5,6,7
[внешняя ссылка]
а вообшще вбивай в поиск это
BASS.DLL
implib.exe -
-
-
-
-
-
попробуй вот это...может поможет
————————————-
procedure TForm1.TrackBar1Change(Sender: TObject);
var l,p: integer;
begin
MediaPlayer1.Stop;
l:=MediaPlayer1.TrackLength[0];
p:=TrackBar1.Position;
MediaPlayer1.StartPos:=round(p*2000/l);
MediaPlayer1.Play;
Form1.Caption:=IntToStr(MediaPlayer1.StartPos);
end; -
-
-
-
-
-
У ползунка этого наверняка должно быть свойство определяющее текущую позицию. Например, что нибудь типа CurrentPosition или ActivePosition.
Для сохранения в реестр копать в сторону TRegistry.
Например:
Код:
var
MainRegKey: TRegistry;
RegKeyName : string;
...
begin
...
MainRegKey := TRegistry.Create(KEY_ALL_ACCESS);
...
try
MainRegKey.RootKey := HKEY_CURRENT_USER;
RegKeyName := 'гы-гы-гы';
MainRegKey.OpenKey(RegKeyName, True);
// Параметры сохраняем в реестр:
MainRegKey.WriteString('Настройки', MyObject.Caption);
Писал по памяти, так что за роботоспособность отвечать не могу. Может чего забыл. Но смысл я думаю ясен.