I have an ExchangeExtension that uses the IExchExtPropertySheets
interface, the type declaration in the base ExchExt unit reads:
type
IExchExtPropertySheets = interface(IUnknown)
['{00020D17-0000-0000-C000-000000000046}']
function GetMaxPageCount(ulFlags : ULONG):ULONG;stdcall;
function GetPages(lpeecb : IEXCHEXTCALLBACK; ulFlags : ULONG;
lppsp : PPROPSHEETPAGE; var lpcpsp :
ULONG):HResult;stdcall;
procedure FreePages(lppsp : PPROPSHEETPAGE; ulFlags : ULONG; cpsp :
ULONG);stdcall;
end;
and the declaration in my type is:
TExchangeExtension = class(TComObject,
IOutlookExtCallback,
IExchExt,
IExchExtCallback,
IExchExtCommands,
IExchExtPropertySheets,
IExchExtUserEvents)
private
.
//IExchExtPropertySheets
function GetMaxPageCount(ulFlags : ULONG):ULONG;stdcall;
function GetPages(lpeecb : IEXCHEXTCALLBACK; ulFlags : ULONG;
lppsp : PPROPSHEETPAGE; var lpcpsp :
ULONG):HRESULT;stdcall;
procedure FreePages(lppsp : PPROPSHEETPAGE; ulFlags : ULONG; cpsp :
ULONG);stdcall;
.
When I try to compile this, I get:
[Error] ExchangeExtension.pas(147): Declaration of 'GetPages' differs
from declaration in interface 'IExchExtPropertySheets'
[Error] ExchangeExtension.pas(147): Declaration of 'FreePages' differs
from declaration in interface 'IExchExtPropertySheets'
but the declarations are the same, does anyone know why the compiler is
doing this, the ExchExt unit is in a Runtime Package.
Jason.
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
