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를 빼먹으신것은 아닌지...
그럼 즐코하세요 ^^