IMediaSeeking <- 요넘만 들어가면 ▶(RUN)이 않됩니다.
[Error] player.pas(298): Undeclared identifier: 'IMediaSeeking'
왜 이러는지 많이 난감합니다.
문제점이 예상돼시는 고수님의 조언을 부탁드립니다.
<!--CodeS-->
procedure TForm1.OpenMenuClick(Sender: TObject);
var
Value, H, M, S : Integer;
MediaSeeking: IMediaSeeking;
pStart, pStop : int64;
begin
if OpenDialog.Execute then
begin
if not FilterGraph.Active then FilterGraph.Active := true;
FilterGraph.ClearGraph;
FilterGraph.RenderFile(OpenDialog.FileName);
FilterGraph.QueryInterface(IMediaSeeking, MediaSeeking);
with MediaSeeking do begin
MediaSeeking.GetPositions(pStart,pStop);
Value := Trunc(pStop / 10000000);
H := value div 3600;
M := (value mod 3600) div 60;
S := (value mod 3600) mod 60;
TotalTime.Caption := Format('%d:%2.2d:%2.2d', [H, M, S]);
end;
TitleTxt.Caption := ExtractFilename(OpenDialog.FileName);
FilterGraph.Play;
end;
<!--CodeE-->
안녕하세요?
uses절에 DirectShow를 빼먹으신것은 아닌지...
그럼 즐코하세요 ^^