IMediaSeeking

[Gordon_2007]

Hello World! Я патаюсь написать проигрыватель на DirectShow9. И в принципе всё идет нормально, но тут в друг столкнулся с глупой проблемой, не могу установить позицию с помощью IMediaSeeking.SetPositions(); Вобще, какие именно параметры и флаги надо поставить. Вот получить текущюю позицию не проблема, я сделал это так:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
SSeek.GetPositions(CurPos,StopPos);
Progress.Position:= CurPos div 1000000;
end;

А как утановить позицию? т.е. мне надо что бы можно было перематывать вперед и назад с помощью TrackBar.

В документации из DirectShow SDK, ImediaSeeking.SetPositions написан так:

HRESULT SetPositions(
LONGLONG *pCurrent,
DWORD dwCurrentFlags,
LONGLONG *pStop,
DWORD dwStopFlags
);

В первый параметр что надо передать? Текущюю позицию или позицию на которую надо установить, а какой флаг для надо установить(второй параметр), а третий параметр? Нифига не пойму, третий день ищю в интернете хоть что нибуть, но ничего не могу найти .
Поэтому я и решил попробывать что нибуть разузнать на этом форуме.
Пожалуйста, кто знает, HELP ME
_________________
GoRdoN Freeman HL

[xchg]

1 параметр - позиция
2 - AM_SEEKING_AbsolutePositioning
3 - NULL
4 - AM_SEEKING_NoPositioning

пример (на асме)
mseeking SetPositions,pSeeking,addr position1,AM_SEEKING_AbsolutePositioning,\
NULL, AM_SEEKING_NoPositioning

[Gordon_2007]

Спасибо конечно, но всё таки нифига не заработало, я попробывал поставить все флаги, как ты мне написал, но блин в делфи параметра NULL нема(я так понял), но я попробывал написать nil - все равно не прокатило, потом попробывал объявить переменую и назначить ей параметр NULL, и вот программа моя, т.е. плеер запустиля, но когда я её, то вылазиет вот такое сообщение:

Could not convert variant of type (Null) into type (int64).

И заикается... т.к. мой таймер срабатывает 0,5 раз/сек. то и сообщение это вылазиет два раза в секунду .
Вообщем может кто по конкретней что подскажет? Я если что могу свой исходник кому нить отправить (Delphi), или может кто то свой исходничок отправит мне (artyoam@yandex.ru - желательно Delphi или С/С++).
_________________
GoRdoN Freeman HL

[AndrеySol]

Может проще через интерфейс IMediaPosition

double ReleasedPos = (double)m_sliderctrl.GetPos();
piMediaPosition->put_CurrentPosition(ReleasedPos);

[Gordon_2007]

Щас попробую
_________________
GoRdoN Freeman HL

[Gordon_2007]

О, чудо!!! Получилось, большое тебе спасибо xchg, я теперь вообще удалю из своей программы интерфейс IMediaSeeking, теперь все будет на IMediaPosition.
_________________
GoRdoN Freeman HL

[xchg]

Если я не ошибаюсь мсдн рекомендует использовать IMediaSeeking))
я наоборот не мог IMediaPosition заставить работать))

[WondeRu]

[Vasiliy]

Вот куски кода, у меня работает нормально, может пригодится

[Gordon_2007]

Спасибочки Vasiliy за кусок кода! А кто знает как определить, что файл проигрался и находится в состоянии STOP, или в состоянии PAUSE.
_________________
GoRdoN Freeman HL

[Gordon_2007]

[Vasiliy]

{DirectShow9}
TFilterState = (
State_Stopped,
State_Paused,
State_Running);

var AState: TFilterState;

IMediaControl.GetState(0,AState)

[AndrеySol]