Есть вопрос.
Мне нужно изменить, что бы вместо направление пути трэка в листбоксе, писало название самой музыки, формат и время которое оно всего идет.
Вопросы выше уже были, читал, пробовал да что-то не получается.
Вот код:
Код
function Tform_player.lentime(filename1:string):string;
var
TrackLen: Double;
ValLen: Double;
Channel1 : DWORD;
begin
//освобаждаем канал
BASS_StreamFree(Channel1);
//пытаемся загрузить файл и получить дескриптор канала
Channel1 := BASS_StreamCreateFile(FALSE, PChar(FileName1), 0, 0, 0 {$IFDEF UNICODE} or BASS_UNICODE {$ENDIF});
//получаем время воспроизведения
TrackLen:=BASS_ChannelBytes2Seconds(Channel1,BASS_ChannelGetLength(Channel1,BASS_POS_BYTE));
ValLen:=TrackLen / (24 * 3600);
Lentime:=FormatDateTime('hh:mm:ss',ValLen);
//освобаждаем канал
BASS_StreamFree(Channel1);
end;
function TForm_player.MinToSec(tim: string): string;
var n: integer;
a: string;
begin
n := 1;
a := '';
repeat
a := a + tim[n];
Inc(n);
until tim [n]= ':';
Delete(tim, 1, Length(a) + 1);
result := IntToStr((StrToInt(a) * 60) + StrToInt(tim));
end;
Точно такой же как и писали выше. Процедуры все указаны, программа запускается, только ничего не происходит.
Помогите пожалуйста. Может я что-то не то делаю..
