VPF::DSPack - Форум программистов

Ak47black

Дата 19.1.2007, 23:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0

Привет всем.
Использую BSpack и немогу найти функцию или свойство при помоши которого можно расшитать сколько процентов в процессе перекодировки прошло и осталось.

M
Girder

Название темы - должно отражать его суть!

Bitter

Дата 20.1.2007, 01:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный лентяй

Профиль
Группа: Завсегдатай
Сообщений: 1209
Регистрация: 15.8.2004
Где: Харьков, Ukraine

Репутация: 6
Всего: 27

Может Вы имели ввиду DSPack? Или всё таки BSPack?

Ak47black

Дата 20.1.2007, 11:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0

Пардон

. Вот полное название DSPack 2.3.3
Извиняюсь что перепутал.

Ak47black

Дата 20.1.2007, 16:07 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0

Если так делаю

Код


var
  CurrPos : Int64;
  MaxPos: Int64;
begin
  FilterGraph.QueryInterface(IMediaSeeking, MediaSeeking);
  MediaSeeking.GetCurrentPosition(CurrPos);
  MediaSeeking.GetDuration(MaxPos);
  Label2.Caption:= IntToStr(CurrPos);
  Label3.Caption:= IntToStr(MaxPos);
  Label4.Caption:= FloatToStr(CurrPos*100 / MaxPos)+' %';

То проценты неполучаеться правильно высшитать.

Это сообщение отредактировал(а) Ak47black - 20.1.2007, 16:10

Romikgy

Дата 20.1.2007, 16:31 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: нет
Всего: 146

Цитата(Ak47black @ 20.1.2007, 15:07

)

Label4.Caption:= FloatToStr(CurrPos*100 / MaxPos)+' %';

Код


Label4.Caption:= FloatToStr(Double(CurrPos)*100.0 / Double(MaxPos))+' %';

А так?

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Ak47black

Дата 20.1.2007, 16:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0

Не тут проблемма в том что я немогу получить MaxPos значение и может CurrPos неправильно получаю.

Ak47black

Дата 20.1.2007, 17:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2205
Регистрация: 2.12.2005

Репутация: нет
Всего: 0

На этом форуме похожая тема уже была, которая так и не была решена.
http://forum.vingrad.ru/topic-73545/unread...king/index.html

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »