Delphi 인터페이스 상속 : 왜 조상 인터페이스의 멤버에 액세스 할 수 없습니까?

Question

는 다음 있다고 가정 :

//Note the original example I posted didn't reproduce the problem so 
//I created an clean example 
    type 
    IParent = interface(IInterface) 
    ['{85A340FA-D5E5-4F37-ABDD-A75A7B3B494C}'] 
     procedure DoSomething; 
    end; 

    IChild = interface(IParent) 
    ['{15927C56-8CDA-4122-8ECB-920948027015}'] 
     procedure DoSomethingElse; 
    end; 

    TGrandParent = class(TInterfacedObject) 
    end; 

    TParent = class(TGrandParent) 
    end; 

    TChild = class(TParent, IChild) 
    private 
     FChildDelegate: IChild; 
    public 
     property ChildDelegate:IChild read FChildDelegate implements IChild; 
    end; 

    TChildDelegate = class(TInterfacedObject, IChild) 
    public 
     procedure DoSomething; 
     procedure DoSomethingElse; 
    end; 

나는 이것이 당신이 DoSomething를 호출 할 수 것이라고 생각하지만,이 경우 될 것 같지 않습니다

:

procedure CallDoSomething(Parent: TParent); 
begin 
    if Parent is TChild then 
    TChild(Parent).DoSomething; 
end; 

컴파일러는 분명 그 것을 IParent의 멤버가 구현되어 있지 않으면 클래스가 컴파일되지 않으므로 인터페이스 상속을 적용합니다. 그럼에도 불구하고 컴파일러는 클래스가 인스턴스화되어 사용될 때 IParent의 멤버를 확인할 수 없습니다.

내가 명시 적으로 TMyClass의 클래스 선언에 IParent을 포함하여이 문제를 해결할 수 있습니다

TMyClass = class(TInterfacedObject, IChild, IParent) 

신경 끄시 고,이 아무것도 해결되지 않습니다.

Answer 1

문제는 인터페이스 선언 또는 클래스 구현에없는,하지만 소비자 코드 :

procedure CallDoSomething(Parent: TParent); 
begin 
    if Parent is TChild then 
    TChild(Parent).DoSomething; // << This is wrong 
end; 

이 TChild는 방법 " 해봐요"을 가지고 있지 않기 때문에 작동하지 않을 것입니다. TChild 는 직접 IChild 을 구현된다면 TChild이 방법을 구현하는 것이기 때문에, 다음이 정상적으로 가능할 것이다 직접 및 IChild 인터페이스의 일부로서.

참고하지만, TChild이 개인 범위에 해봐요를 구현하는 경우,이 인터페이스하지만 정상 범위 지정 규칙을 통해 계속 액세스 할 것이라고는 여전히 클래스/유니 외부에서 (그것을 호출 할 수 없다는 것을 의미한다) TChild 참조를 사용하십시오. 귀하의 경우에는

, 당신은 단순히 적절한 인터페이스를 얻어 다음 인터페이스를 통해 필요한 방법을 호출해야합니다, 당신이 결정하기 위해 클래스 타입 테스트를 사용하지만

if Parent is TChild then 
    (Parent as IChild).DoSomething; 

을 (추론) 존재 구현 세부 사항 (TChild 구현 : IChild)에 의존하는 인터페이스의 일부입니다. 난 당신이 대신 그 구현 세부 사항에서이 종속성을 분리, 직접 인터페이스 테스트를 사용해야 제안 :

이

var 
    parentAsChild: IChild; 

    begin 
    if Parent.GetInterface(IChild, parentAsChild) then 
     parentAsChild.DoSomething; 
    end; 

Answer 2

편집 :이 질문에 대한 답은 원래 질문이 수정되기 전에 게시 되었기 때문에 더 이상 적합하지 않습니다.

---

이 델파이 2010에서 컴파일 : 그것은 상속 된 인터페이스를 지원한다는 구현하는 클래스를 선언하지 않는 경우

이

type 
    IParent = interface(IInterface) 
    function DoSomething: String; 
    end; 

    IChild = interface(IParent) 
    function DoSomethingElse: string; 
    end; 

    TMyClass = class(TInterfacedObject, IChild) 
    private 
    public 
    function DoSomething: String; 
    function DoSomethingElse: String; 
    end; 

// ... 

procedure Test; 
var 
    MyObject : IChild; 
begin 
    MyObject := TMyClass.Create; 
    MyObject.DoSomething; 
end; 

Answer 3

, 다음 클래스는 상속 된 인터페이스의 변수와 호환 할당되지 않습니다. 게시 한 코드 샘플은 잘 작동해야하지만 (IChild 인터페이스 사용), TMyClass 인스턴스에서 IParent 변수로 지정하려고하면 문제가 발생합니다.

이유는 COM 및 ActiveX가 구현에서 하위 인터페이스 (IChild)를 구현하지만 해당 인터페이스의 조상 (IParent)을 거부하기 때문입니다. 델파이 인터페이스는 COM 호환이 가능하기 때문에이게 이상한 유물입니다.

약 10 년 또는 12 년 전에이 기사를 쓴 적이 있지만, 볼랜드 블로그는 Embarcadero 서버로의 전환을 견디지 못했습니다.

이 동작을 변경하는 컴파일러 지시문이있을 수 있습니다. 기억하지 않습니다.

Answer 4

QueryInterface의 델파이 구현 표준까지 없습니다. The ways people mess up IUnknown::QueryInterface 블로그 항목에서 Raymond Chen은 일반적인 구현 실패를 열거합니다. 가장 주목할만한 세 번째 점은

기본 인터페이스에 응답하지 않음. 파생 인터페이스를 구현할 때 기본 인터페이스를 암시 적으로 구현하므로 도 해당 인터페이스에 응답하는 것을 잊지 마십시오.

IShellView *psv = some object; 
IOleView *pow; 
psv->QueryInterface(IID_IOleView, (void**)&pow); 

일부 개체는 잊어 버리고 E_NOINTERFACE로 QueryInterface가 실패합니다.

상속 된 인터페이스가 클래스 나 그 조상 중 하나에 명시 적으로 연결되어 있지 않으면 델파이가이를 찾지 못한다. 객체의 인터페이스 테이블과 상속 된 유형을 탐색하고 인터페이스 ID가 일치 하는지를 확인하기 만하면 기본 인터페이스를 확인하지 않습니다.