' ########################################################################################
' Microsoft Windows
' File: simpdc.inc
' Copyright (c) 2011 Jos? Roca
' Portions Copyright (c) Microsoft Corporation.
' All Rights Reserved.
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER
' EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES OF
' MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
' ########################################################################################
#IF NOT %DEF(PBX_simpdc_PBI)
#DEFINE PBX_simpdc_PBI
%EQUATE `SIMPDC_INC = 1
' /* header files for imported files */
#INCLUDE ONCE "Legacy/COM/OAIdl.inc"
#INCLUDE ONCE "Legacy/COM/OCIdl.inc"
' ########################################################################################
' ISimpleDataConverter interface
' IID = 78667670-3C3D-11D2-91F9-006097C97F9B
' Inherited interface = IUnknown
' ########################################################################################
#IF NOT %DEF(%ISimpleDataConverter_INTERFACE_DEFINED)
 %ISimpleDataConverter_INTERFACE_DEFINED = 1
$IID_ISimpleDataConverter = GUID$("{78667670-3C3D-11D2-91F9-006097C97F9B}")
INTERFACE ISimpleDataConverter $IID_ISimpleDataConverter
 INHERIT IUnknown
 ' =====================================================================================
 METHOD ConvertData ( ' VTable offset = 12
 BYVAL varSrc AS VARIANT
 , BYVAL vtDest AS LONG
 , BYVAL pUnknownElement AS IUnknown
 , BYREF pvarDest AS VARIANT
 ) AS LONG
 ' =====================================================================================
 METHOD CanConvertData ( ' VTable offset = 16
 BYVAL vt1 AS LONG
 , BYVAL vt2 AS LONG
 ) AS LONG
 ' =====================================================================================
END INTERFACE
#ENDIF ' /* __ISimpleDataConverter_INTERFACE_DEFINED__ */
#ENDIF
