지금 만들고 있는 프로그램에서 ActiveX콘트롤을 하나 사용하고 있습니다...

근데 문제는 ICustomLine라는 인터페이스가 있는데..

그 인터페이스는 제가 직접 구현해야 하는 인터페이스 입니다...

타입 라이브러리에 있는 구조는 아래와 같습니다...

ICustomLine = interface(IUnknown)

['{9BD6A69A-CE75-11D1-AF04-204C4F4F5020}']

function SetupDC(hDC: Integer; dpi: Double; const pBaseSym: IDispatch): HResult; stdcall;

function ResetDC(hDC: Integer): HResult; stdcall;

function Draw(hDC: Integer; var points: Integer; var partCounts: Integer; numParts: Integer): HResult; stdcall;

end;



제 프로그램에서

type

TMyLine = class(TInterfacedObject, ICustomLine)

function SetupDC(hDC: Integer; dpi: Double; const pBaseSym: IDispatch): HResult; stdcall;

function ResetDC(hDC: Integer): HResult; stdcall;

function Draw(hDC: Integer; var points: Integer; var partCounts: Integer; numParts: Integer): HResult; stdcall;

end;

머 이런 식으로 선언해 사용할려니까 자꾸 에러가 남니다...



ActiveX콘트롤에서 인터페이스만 선언해 놓는 경우는 첨이구...

VB나 VC++은 소스가 있는데... Delphi는 소스도 없네요..

이것때문에 벌써 이주째 이러구 있습니다..

TInterfacedObject라는걸 쓰는게 아니라 따른걸 쓰는거 같꺼든요...

아시는분은 꼭좀 가르켜 주세요...