Chukotka
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Maks150988
Цитата:
Только хамить не надо. Одно дело, когда просят разобраться в проблеме, а другое - когда человек упорно просит разжевать штатную функцию, полностью описанную в справке. Кроме того, вам Frodo_Torbins полностью разжевал процедуру.
Цитата:| а тут не хотят написать долбанный пример |
Научитесь правильно задавать вопросы, тогда не надо будет "открывать секреты". Тут народ в основном доброжелательный, но при одном условии - когда видно, что человек перед тем, как задать вопрос, поработал сам. Вы же беретесь писать на чистом API и заботитесь о том, чтобы "программа не увеличилась на 30Кб" в результате использования дополнительной библиотеки. Может не обманывать себя, установить нормальный дистрибутив, почитать справку и реализовать все в vcl для начала?
PS. Если процедура MetaSync() является calback'ом и периодически вызывается при проигрывании, то тут вообще не нужен таймер. Отображайте время точно так же, как отображали процент скачивания:
Код: var
StartedAt: TDateTime;
const
UpdatedAt: TDateTime = 0;
OneSec = 1 / (60 * 60 * 24);
...
// при старте проигрывания
// play it!
BASS_ChannelPlay(chan, FALSE);
StartedAt := Now;
...
// при обновлении
case LoWord(wp) of
...
7:
begin
if (Now > UpdatedAt) then
begin
UpdatedAt := Now + OneSec;
Text := FormatDateTime('Время проигрывания hh:nn:ss', Now - StartedAt);
end;
end;
|
Если MetaSync() не срабатывает, то создавайте таймер и вставляйте код отображения времени в реакцию на событие таймера. |
Всего записей: 428 | Зарегистр. 01-11-2006 | Отправлено: 00:53 07-01-2008 | Исправлено: Chukotka, 01:30 07-01-2008 |
|
