델파이 7에서 XE5로 다시 컴파일 할 때 오류가 발생했습니다

Question

원본 D7 구성 요소가 가져 오는 이상한 Twebbrowser 오류를 피하려고 XE5에 다시 컴파일해야하는 오래된 프로젝트가 있습니다. 이 코드는 D7에서는 잘 작동하지만 XE5에서는 작동하지 않습니다.

function GetFrame(FrameNo: Integer; WB: TWEbbrowser): IWebbrowser2; 
    var 
     OleContainer: IOleContainer; 
     enum: IEnumUnknown; 
     unk: IUnknown; 
     Fetched: PLongint; 
    begin 
     while WB.ReadyState <> READYSTATE_COMPLETE do 
     Application.ProcessMessages; 
     if Assigned(WB.document) then 
     begin 
     Fetched := nil; 
     OleContainer := WB.Document as IOleContainer; 
     OleContainer.EnumObjects(OLECONTF_EMBEDDINGS, Enum); 
     Enum.Skip(FrameNo); 
     Enum.Next(1, Unk, Fetched); 
     Result := Unk as IWebbrowser2; 
     end 
     else 
     Result := nil; 
    end; 

내가 확인했고 EnumObjects에 대한 매개 변수는 두 버전 모두에서 동일하지만, XE5 말한다 "E2033. 실제와 공식 VAR 매개 변수의 유형이 동일해야합니다." 이 강아지를 어떻게 다시 컴파일 할 수 있습니까? 감사. 평화!

Answer 1

가변 매개 변수의 경우 실제 인수는 형식 매개 변수의 정확한 유형이어야합니다.

당신은 내가 당신의 열거 변수의 유형을 가정 할 수있다 오류가없는 유형 인 얻을 경우

enum: IEnumUnknown; 

에 : 당신은 변수 선언 섹션에서이 줄을 변경하려고 할 수 있습니다, ActiveX.IEnumUnknown

을

enum: ActiveX.IEnumUnknown;