archive
/
windows-xp
mirror of https://github.com/tongzx/nt5src
2
0
Fork 0
Code Issues Projects Releases Wiki Activity
Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
8 Commits
1 Branch
0 Tags
2.0 GiB
 
 
 
 
 
 
Tree: 744f0b4006
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from '744f0b4006'
${ noResults }
windows-xp/Source/XPSP1/NT/com/ole32/olethunk/ole16/compobj/comdthk.c

801 lines
18 KiB
Raw Blame History

//+-------------------------------------------------------------------------
//
// Microsoft Windows
// Copyright (C) Microsoft Corporation, 1992 - 1993.
//
// File: Comdthk.c (16 bit target)
//
// Contents: CompObj Directly Thunked APIs
//
// Functions:
//
// History: 16-Dec-93 JohannP Created
// 07-Mar-94 BobDay Moved into COMTHUNK.C from COMAPI.CXX
//
//--------------------------------------------------------------------------
#include <headers.cxx>
#pragma hdrstop
#include <call32.hxx>
#include <apilist.hxx>
STDAPI_(BOOL) GUIDFromString(LPCSTR lpsz, LPGUID pguid);
//+---------------------------------------------------------------------------
//
// Function: Straight thunk routines
//
// Synopsis: The following routines do not need to do any special
// processing on the 16-bit side so they thunk straight
// through
//
// History: 18-Feb-94 JohannP Created
//
// Notes: "Review to ensure these don't have to do any work"
// 15-Feb-2000 I'm pretty sure they don't. JohnDoty
//
//----------------------------------------------------------------------------
//+---------------------------------------------------------------------------
//
// Function: CLSIDFromString, Remote
//
// History: Straight from OLE2 sources
//
//----------------------------------------------------------------------------
STDAPI CLSIDFromString(LPSTR lpsz, LPCLSID pclsid)
{
HRESULT hr;
thkDebugOut((DEB_ITRACE, "CLSIDFromString\n"));
//
// The 16-bit OLE2 application "Family Tree Maker" always passes a bad
// string to CLSIDFromString. We need to make sure we fail in the exact
// same way with the interop layer. This will also provide a speed
// improvement since we only need to remote to the 32bit version of
// CLSIDFromString when the string provided does not start with '{'.
//
if (lpsz[0] == '{')
return GUIDFromString(lpsz, pclsid)
? NOERROR : ResultFromScode(CO_E_CLASSSTRING);
// Note: Corel calls this function prior to calling
// CoInitialize so use CheckInit
return (HRESULT)CallObjectInWOWCheckInit(THK_API_METHOD(THK_API_CLSIDFromString),
PASCAL_STACK_PTR(lpsz));
}
//+---------------------------------------------------------------------------
//
// Function: CoGetClassObject, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [rclsid] --
// [dwClsContext] --
// [pvReserved] --
// [riid] --
// [ppv] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoGetClassObject(REFCLSID rclsid, DWORD dwClsContext, LPVOID pvReserved,
REFIID riid, LPVOID FAR* ppv)
{
thkDebugOut((DEB_ITRACE, " CoGetClassObject\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoGetClassObject),
PASCAL_STACK_PTR(rclsid) );
}
//+---------------------------------------------------------------------------
//
// Function: CoRegisterClassObject, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [rclsid] --
// [pUnk] --
// [dwClsContext] --
// [flags] --
// [lpdwRegister] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoRegisterClassObject(REFCLSID rclsid, LPUNKNOWN pUnk,
DWORD dwClsContext, DWORD flags,
LPDWORD lpdwRegister)
{
thkDebugOut((DEB_ITRACE, " CoRegisterClassObject\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoRegisterClassObject),
PASCAL_STACK_PTR(rclsid));
}
//+---------------------------------------------------------------------------
//
// Function: CoRevokeClassObject, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [dwRegister] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoRevokeClassObject(DWORD dwRegister)
{
thkDebugOut((DEB_ITRACE, " CoRevokeClassObject\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoRevokeClassObject),
PASCAL_STACK_PTR(dwRegister) );
}
//+---------------------------------------------------------------------------
//
// Function: CoMarshalInterface, Unknown
//
// Synopsis:
//
// Effects:
//
// Arguments: [pStm] --
// [riid] --
// [pUnk] --
// [dwDestContext] --
// [pvDestContext] --
// [mshlflags] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoMarshalInterface(LPSTREAM pStm, REFIID riid, LPUNKNOWN pUnk,
DWORD dwDestContext, LPVOID pvDestContext,
DWORD mshlflags)
{
thkDebugOut((DEB_ITRACE, " CoMarshalInterface\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoMarshalInterface),
PASCAL_STACK_PTR(pStm));
}
//+---------------------------------------------------------------------------
//
// Function: CoUnmarshalInterface, Unknown
//
// Synopsis:
//
// Effects:
//
// Arguments: [pStm] --
// [riid] --
// [ppv] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoUnmarshalInterface(LPSTREAM pStm, REFIID riid, LPVOID FAR* ppv)
{
thkDebugOut((DEB_ITRACE, "CoUnmarshalInterface\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoUnmarshalInterface),
PASCAL_STACK_PTR(pStm));
}
//+---------------------------------------------------------------------------
//
// Function: CoReleaseMarshalData, Unknown
//
// Synopsis:
//
// Effects:
//
// Arguments: [pStm] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoReleaseMarshalData(LPSTREAM pStm)
{
thkDebugOut((DEB_ITRACE, "CoReleaseMarshalData\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoReleaseMarshalData),
PASCAL_STACK_PTR(pStm));
}
//+---------------------------------------------------------------------------
//
// Function: CoDisconnectObject, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [pUnk] --
// [dwReserved] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoDisconnectObject(LPUNKNOWN pUnk, DWORD dwReserved)
{
thkDebugOut((DEB_ITRACE, "CoDisconnectObject\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoDisconnectObject),
PASCAL_STACK_PTR(pUnk));
}
//+---------------------------------------------------------------------------
//
// Function: CoLockObjectExternal, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [pUnk] --
// [fLock] --
// [fLastUnlockReleases] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoLockObjectExternal(LPUNKNOWN pUnk, BOOL fLock,
BOOL fLastUnlockReleases)
{
thkDebugOut((DEB_ITRACE, "CoLockObjectExternal\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoLockObjectExternal),
PASCAL_STACK_PTR(pUnk));
}
//+---------------------------------------------------------------------------
//
// Function: CoGetStandardMarshal, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [riid] --
// [pUnk] --
// [dwDestContext] --
// [pvDestContext] --
// [mshlflags] --
// [ppMarshal] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoGetStandardMarshal(REFIID riid, LPUNKNOWN pUnk,
DWORD dwDestContext, LPVOID pvDestContext,
DWORD mshlflags,
LPMARSHAL FAR* ppMarshal)
{
thkDebugOut((DEB_ITRACE, "CoGetStandardMarshal\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoGetStandardMarshal),
PASCAL_STACK_PTR(riid));
}
//+---------------------------------------------------------------------------
//
// Function: CoIsHandlerConnected, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [pUnk] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI_(BOOL) CoIsHandlerConnected(LPUNKNOWN pUnk)
{
thkDebugOut((DEB_ITRACE, "CoIsHandlerConnected\n"));
return (BOOL)CallObjectInWOW(THK_API_METHOD(THK_API_CoIsHandlerConnected),
PASCAL_STACK_PTR(pUnk));
}
//+---------------------------------------------------------------------------
//
// Function: CoCreateInstance, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [rclsid] --
// [pUnkOuter] --
// [dwClsContext] --
// [riid] --
// [ppv] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoCreateInstance(REFCLSID rclsid, LPUNKNOWN pUnkOuter,
DWORD dwClsContext, REFIID riid, LPVOID FAR* ppv)
{
thkDebugOut((DEB_ITRACE, "CoCreateInstance\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoCreateInstance),
PASCAL_STACK_PTR(rclsid) );
}
//+---------------------------------------------------------------------------
//
// Function: CoIsOle1Class, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [rclsid] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI_(BOOL) CoIsOle1Class(REFCLSID rclsid)
{
thkDebugOut((DEB_ITRACE, "CoIsOle1Class\n"));
return (BOOL)CallObjectInWOW(THK_API_METHOD(THK_API_CoIsOle1Class),
PASCAL_STACK_PTR(rclsid) );
}
//+---------------------------------------------------------------------------
//
// Function: ProgIDFromCLSID, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [clsid] --
// [lplpszProgID] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI ProgIDFromCLSID(REFCLSID clsid, LPSTR FAR* lplpszProgID)
{
thkDebugOut((DEB_ITRACE, "ProgIDFromCLSID\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_ProgIDFromCLSID),
PASCAL_STACK_PTR(clsid) );
}
//+---------------------------------------------------------------------------
//
// Function: CLSIDFromProgID, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [lpszProgID] --
// [lpclsid] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CLSIDFromProgID(LPCSTR lpszProgID, LPCLSID lpclsid)
{
thkDebugOut((DEB_ITRACE, "CLSIDFromProgID\n"));
// Note: Word 6 calls this function prior to calling
// CoInitialize so use CheckInit
return (HRESULT)CallObjectInWOWCheckInit(THK_API_METHOD(THK_API_CLSIDFromProgID),
PASCAL_STACK_PTR(lpszProgID) );
}
//+---------------------------------------------------------------------------
//
// Function: CoCreateGuid, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [pguid] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoCreateGuid(GUID FAR *pguid)
{
thkDebugOut((DEB_ITRACE, "CoCreateGuid\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoCreateGuid),
PASCAL_STACK_PTR(pguid));
}
//+---------------------------------------------------------------------------
//
// Function: CoFileTimeToDosDateTime, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [lpFileTime] --
// [lpDosDate] --
// [lpDosTime] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI_(BOOL) CoFileTimeToDosDateTime(FILETIME FAR* lpFileTime,
LPWORD lpDosDate, LPWORD lpDosTime)
{
thkDebugOut((DEB_ITRACE, "CoFileTimeToDosDateTime\n"));
return (BOOL)CallObjectInWOW(THK_API_METHOD(THK_API_CoFileTimeToDosDateTime),
PASCAL_STACK_PTR(lpFileTime));
}
//+---------------------------------------------------------------------------
//
// Function: CoDosDateTimeToFileTime, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [nDosDate] --
// [nDosTime] --
// [lpFileTime] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI_(BOOL) CoDosDateTimeToFileTime(WORD nDosDate, WORD nDosTime,
FILETIME FAR* lpFileTime)
{
thkDebugOut((DEB_ITRACE, "CoDosDateTimeToFileTime\n"));
return (BOOL)CallObjectInWOW(THK_API_METHOD(THK_API_CoDosDateTimeToFileTime),
PASCAL_STACK_PTR(nDosDate));
}
//+---------------------------------------------------------------------------
//
// Function: CoFileTimeNow, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [lpFileTime] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoFileTimeNow(FILETIME FAR* lpFileTime)
{
thkDebugOut((DEB_ITRACE, "CoFileTimeNow\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoFileTimeNow),
PASCAL_STACK_PTR(lpFileTime));
}
//+---------------------------------------------------------------------------
//
// Function: CoRegisterMessageFilter, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [lpMessageFilter] --
// [lplpMessageFilter] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoRegisterMessageFilter(LPMESSAGEFILTER lpMessageFilter,
LPMESSAGEFILTER FAR* lplpMessageFilter)
{
thkDebugOut((DEB_ITRACE, "CoRegisterMessageFilter\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoRegisterMessageFilter),
PASCAL_STACK_PTR(lpMessageFilter) );
}
//+---------------------------------------------------------------------------
//
// Function: CoGetTreatAsClass, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [clsidOld] --
// [pClsidNew] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoGetTreatAsClass(REFCLSID clsidOld, LPCLSID pClsidNew)
{
thkDebugOut((DEB_ITRACE, "CoGetTreatAsClass\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoGetTreatAsClass),
PASCAL_STACK_PTR(clsidOld) );
}
//+---------------------------------------------------------------------------
//
// Function: CoTreatAsClass, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [clsidOld] --
// [clsidNew] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoTreatAsClass(REFCLSID clsidOld, REFCLSID clsidNew)
{
thkDebugOut((DEB_ITRACE, "CoTreatAsClass\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoTreatAsClass),
PASCAL_STACK_PTR(clsidOld) );
}