DWORD AFXAPI _AfxOleGetLenFilePrefixOfMoniker(LPMONIKER lpmk)
{
USES_CONVERSION;
if (lpmk == NULL)
return 0;
DWORD nLen = 0;
LPMONIKER lpmkFirst = _AfxOleGetFirstMoniker(lpmk);
if (lpmkFirst != NULL)
{
DWORD dwMksys;
if (lpmkFirst->IsSystemMoniker(&dwMksys) == S_OK &&
dwMksys == MKSYS_FILEMONIKER)
{
LPBC lpbc = NULL;
SCODE sc = CreateBindCtx(0, &lpbc);
if (sc == S_OK)
{
LPOLESTR lpw = NULL;
sc = lpmkFirst->GetDisplayName(lpbc, NULL, &lpw);
LPTSTR lpsz = OLE2T(lpw);
if (sc == S_OK && lpsz != NULL)
{
nLen = lstrlen(lpsz);
CoTaskMemFree(lpw);
}
RELEASE(lpbc);
}
}
RELEASE(lpmkFirst);
}
return nLen;
}
LPMONIKER AFXAPI _AfxOleGetFirstMoniker(LPMONIKER lpmk)
{
if (lpmk == NULL)
return NULL;
DWORD dwMksys;
if (lpmk->IsSystemMoniker(&dwMksys) == S_OK
&& dwMksys == MKSYS_GENERICCOMPOSITE)
{
LPENUMMONIKER lpenumMoniker = NULL;
SCODE sc = lpmk->Enum(TRUE, &lpenumMoniker);
if (sc != S_OK)
return NULL;
ASSERT(lpenumMoniker != NULL);
LPMONIKER lpmkFirst = NULL;
sc = lpenumMoniker->Next(1, &lpmkFirst, NULL);
RELEASE(lpenumMoniker);
return lpmkFirst;
}
// otherwise -- return the moniker itself
lpmk->AddRef();
return lpmk;
}
BOOL COleServerItem::GetLinkSourceData(LPSTGMEDIUM lpStgMedium)
{
ASSERT_VALID(this);
ASSERT(AfxIsValidAddress(lpStgMedium, sizeof(STGMEDIUM)));
LPOLEOBJECT lpOleObject = GetOleObject();
ASSERT(lpOleObject != NULL);
// get moniker from ole object
LPMONIKER lpMoniker;
SCODE sc = lpOleObject->GetMoniker(OLEGETMONIKER_TEMPFORUSER,
OLEWHICHMK_OBJFULL, &lpMoniker);
if (sc != S_OK)
{
TRACE0("Warning: unable to get moniker for object.\n");
return FALSE;
}
ASSERT(lpMoniker != NULL);
// create a memory based stream to write the moniker to
LPSTREAM lpStream;
if (::CreateStreamOnHGlobal(NULL, TRUE, &lpStream) != S_OK)
{
lpMoniker->Release();
AfxThrowMemoryException();
}
ASSERT(lpStream != NULL);
// write the moniker to the stream, and add it to the clipboard
sc = ::OleSaveToStream(lpMoniker, lpStream);
lpMoniker->Release();
if (sc != S_OK)
{
lpStream->Release();
AfxThrowOleException(sc);
}
// write the class ID of the document to the stream as well
COleLinkingDoc* pDoc = GetDocument();
ASSERT(pDoc->m_pFactory != NULL);
sc = WriteClassStm(lpStream, pDoc->m_pFactory->GetClassID());
if (sc != S_OK)
{
lpStream->Release();
AfxThrowOleException(sc);
}
// setup the STGMEDIUM
lpStgMedium->tymed = TYMED_ISTREAM;
lpStgMedium->pstm = lpStream;
lpStgMedium->pUnkForRelease = NULL;
return TRUE;
}
HRESULT VLCPlugin::onLoad(void)
{
if( SysStringLen(_bstr_baseurl) == 0 )
{
/*
** try to retreive the base URL using the client site moniker, which for Internet Explorer
** is the URL of the page the plugin is embedded into.
*/
LPOLECLIENTSITE pClientSite;
if( SUCCEEDED(vlcOleObject->GetClientSite(&pClientSite)) && (NULL != pClientSite) )
{
IBindCtx *pBC = 0;
if( SUCCEEDED(CreateBindCtx(0, &pBC)) )
{
LPMONIKER pContMoniker = NULL;
if( SUCCEEDED(pClientSite->GetMoniker(OLEGETMONIKER_ONLYIFTHERE,
OLEWHICHMK_CONTAINER, &pContMoniker)) )
{
LPOLESTR base_url;
if( SUCCEEDED(pContMoniker->GetDisplayName(pBC, NULL, &base_url)) )
{
/*
** check that the moniker name is a URL
*/
if( UrlIsW(base_url, URLIS_URL) )
{
/* copy base URL */
_bstr_baseurl = SysAllocString(base_url);
}
CoTaskMemFree(base_url);
}
}
}
}
}
setDirty(FALSE);
return S_OK;
};
SCODE _AfxParseDisplayName(LPMONIKER lpmk, LPBC lpbc, LPTSTR lpszRemainder,
ULONG* cchEaten, LPMONIKER* plpmkOut)
{
USES_CONVERSION;
ASSERT(lpmk != NULL);
ASSERT(AfxIsValidString(lpszRemainder));
ASSERT(cchEaten != NULL);
ASSERT(plpmkOut != NULL);
SCODE sc;
if (lpbc != NULL)
{
// ask moniker to parse the display name itself
sc = lpmk->ParseDisplayName(lpbc, NULL, T2OLE(lpszRemainder), cchEaten,
plpmkOut);
}
else
{
// skip leading delimiters
int cEaten = 0;
LPTSTR lpszSrc = lpszRemainder;
while (*lpszSrc != '\0' && (*lpszSrc == '\\' || *lpszSrc == '/' ||
*lpszSrc == ':' || *lpszSrc == '!' || *lpszSrc == '['))
{
if (_istlead(*lpszSrc))
++lpszSrc, ++cEaten;
++lpszSrc;
++cEaten;
}
// parse next token in lpszRemainder
TCHAR szItemName[_MAX_PATH];
LPTSTR lpszDest = szItemName;
while (*lpszSrc != '\0' && *lpszSrc != '\\' && *lpszSrc != '/' &&
*lpszSrc != ':' && *lpszSrc != '!' && *lpszSrc != '[' &&
cEaten < _MAX_PATH-1)
{
if (_istlead(*lpszSrc))
*lpszDest++ = *lpszSrc++, ++cEaten;
*lpszDest++ = *lpszSrc++;
++cEaten;
}
*cchEaten = cEaten;
sc = CreateItemMoniker(OLESTDDELIMOLE, T2COLE(szItemName), plpmkOut);
}
return sc;
}
STDMETHODIMP COleUILinkInfo::GetLinkSource(
DWORD dwLink, LPTSTR* lplpszDisplayName, ULONG* lplenFileName,
LPTSTR* lplpszFullLinkType, LPTSTR* lplpszShortLinkType,
BOOL* lpfSourceAvailable, BOOL* lpfIsSelected)
{
COleClientItem* pItem = (COleClientItem*)dwLink;
ASSERT_VALID(pItem);
ASSERT_KINDOF(COleClientItem, pItem);
ASSERT(pItem->GetType() == OT_LINK);
// set OUT params to NULL
ASSERT(lplpszDisplayName != NULL);
*lplpszDisplayName = NULL;
if (lplpszFullLinkType != NULL)
*lplpszFullLinkType = NULL;
if (lplpszShortLinkType != NULL)
*lplpszShortLinkType = NULL;
if (lplenFileName != NULL)
*lplenFileName = 0;
if (lpfSourceAvailable != NULL)
*lpfSourceAvailable = !pItem->m_bLinkUnavail;
// get IOleLink interface
LPOLELINK lpOleLink = QUERYINTERFACE(pItem->m_lpObject, IOleLink);
ASSERT(lpOleLink != NULL);
// get moniker & object information
LPMONIKER lpmk;
if (lpOleLink->GetSourceMoniker(&lpmk) == S_OK)
{
if (lplenFileName != NULL)
*lplenFileName = _AfxOleGetLenFilePrefixOfMoniker(lpmk);
lpmk->Release();
}
// attempt to get the type names of the link
if (lplpszFullLinkType != NULL)
{
LPOLESTR lpOleStr = NULL;
pItem->m_lpObject->GetUserType(USERCLASSTYPE_FULL, &lpOleStr);
*lplpszFullLinkType = TASKSTRINGOLE2T(lpOleStr);
if (*lplpszFullLinkType == NULL)
{
TCHAR szUnknown[256];
VERIFY(AfxLoadString(AFX_IDS_UNKNOWNTYPE, szUnknown) != 0);
*lplpszFullLinkType = AfxAllocTaskString(szUnknown);
}
}
if (lplpszShortLinkType != NULL)
{
LPOLESTR lpOleStr = NULL;
pItem->m_lpObject->GetUserType(USERCLASSTYPE_SHORT, &lpOleStr);
*lplpszShortLinkType = TASKSTRINGOLE2T(lpOleStr);
if (*lplpszShortLinkType == NULL)
{
TCHAR szUnknown[256];
VERIFY(AfxLoadString(AFX_IDS_UNKNOWNTYPE, szUnknown) != 0);
*lplpszShortLinkType = AfxAllocTaskString(szUnknown);
}
}
// get source display name for moniker
LPOLESTR lpOleStr = NULL;
SCODE sc = lpOleLink->GetSourceDisplayName(&lpOleStr);
*lplpszDisplayName = TASKSTRINGOLE2T(lpOleStr);
lpOleLink->Release();
if (sc != S_OK)
return sc;
// see if item is selected if specified
if (lpfIsSelected)
{
*lpfIsSelected = (m_pSelectedItem == pItem);
}
return S_OK;
}
STDMETHODIMP COleUILinkInfo::SetLinkSource(
DWORD dwLink, LPTSTR lpszDisplayName, ULONG lenFileName,
ULONG* pchEaten, BOOL fValidateSource)
{
USES_CONVERSION;
COleClientItem* pItem = (COleClientItem*)dwLink;
ASSERT_VALID(pItem);
ASSERT_KINDOF(COleClientItem, pItem);
ASSERT(pItem->GetType() == OT_LINK);
LPOLEOBJECT lpObject = NULL;
CLSID clsid;
// parse the portion known to be a file name into a file moniker
TCHAR szName[_MAX_PATH];
lstrcpyn(szName, lpszDisplayName, (int)lenFileName + 1);
LPMONIKER lpmk = NULL;
SCODE sc = CreateFileMoniker(T2COLE(szName), &lpmk);
if (lpmk == NULL)
return sc;
LPBC lpbc = NULL;
if (fValidateSource)
{
sc = CreateBindCtx(0, &lpbc);
if (sc != S_OK)
{
lpmk->Release();
return sc;
}
}
// nUneaten is the number of chars left to parse
UINT nUneaten = lstrlen(lpszDisplayName) - lenFileName;
// lpszRemainder is the left over display name
LPTSTR lpszRemainder = lpszDisplayName + lenFileName;
*pchEaten = lenFileName;
// parse the rest of the display name
while (nUneaten > 0)
{
// attempt to parse next moniker
ULONG nEaten = 0;
LPMONIKER lpmkNext = NULL;
sc = _AfxParseDisplayName(lpmk, lpbc, lpszRemainder, &nEaten, &lpmkNext);
if (sc != S_OK)
{
lpmk->Release();
lpbc->Release();
return sc;
}
// advance through the display name
nUneaten -= nEaten;
*pchEaten += nEaten;
lpszRemainder += nEaten;
if (lpmkNext != NULL)
{
// create composite out of current and next
LPMONIKER lpmkTemp = NULL;
sc = CreateGenericComposite(lpmk, lpmkNext, &lpmkTemp);
if (FAILED(sc))
{
lpmk->Release();
lpmkNext->Release();
lpbc->Release();
return sc;
}
// make current = next
lpmkNext->Release();
lpmk->Release();
lpmk = lpmkTemp;
}
}
if (fValidateSource)
{
// attempt to bind the the object
sc = lpmk->BindToObject(lpbc, NULL, IID_IOleObject, (LPLP)&lpObject);
if (FAILED(sc))
{
pItem->m_bLinkUnavail = TRUE;
lpbc->Release();
lpmk->Release();
RELEASE(lpObject);
return sc;
}
ASSERT(lpObject != NULL);
// call GetUserClassID while bound so default handler updates
lpObject->GetUserClassID(&clsid);
pItem->m_bLinkUnavail = FALSE;
}
// get IOleLink interface
LPOLELINK lpOleLink = QUERYINTERFACE(pItem->m_lpObject, IOleLink);
ASSERT(lpOleLink != NULL);
// set source from moniker
sc = lpOleLink->SetSourceMoniker(lpmk, clsid);
// update the cache if object was successfully bound
if (lpObject != NULL)
{
lpObject->Update();
lpObject->Release();
}
// cleanup
lpOleLink->Release();
RELEASE(lpmk);
RELEASE(lpbc);
return sc;
}
HGLOBAL AFXAPI _AfxOleGetObjectDescriptorData(
LPOLEOBJECT lpOleObj,
LPCOLESTR lpszSrcOfCopy,
DWORD dwDrawAspect,
POINTL pointl,
LPSIZEL lpSizelHim)
{
USES_CONVERSION;
CLSID clsid;
LPOLESTR lpszFullUserTypeName = NULL;
LPMONIKER lpSrcMonikerOfCopy = NULL;
HGLOBAL hObjDesc = NULL;
IBindCtx *pbc = NULL;
SCODE sc;
SIZEL sizelHim;
BOOL bFreeSrcOfCopy = FALSE;
LPVIEWOBJECT2 lpViewObj2;
LPOLELINK lpOleLink;
BOOL fIsLink;
TCHAR szLinkedTypeFmt[80];
LPCOLESTR lpszLinkedTypeFmt;
LPOLESTR lpszBuf = NULL;
DWORD dwStatus = 0;
// query for IOleLink
lpOleLink = QUERYINTERFACE(lpOleObj, IOleLink);
fIsLink = lpOleLink != NULL;
// query for IViewObject2
lpViewObj2 = QUERYINTERFACE(lpOleObj, IViewObject2);
// Get CLSID
sc = lpOleObj->GetUserClassID(&clsid);
if (sc != S_OK)
clsid = CLSID_NULL;
// Get FullUserTypeName
sc = lpOleObj->GetUserType(USERCLASSTYPE_FULL, &lpszFullUserTypeName);
// if object is a link, then expand usertypename to be "Linked %s"
if (fIsLink && lpszFullUserTypeName != NULL)
{
// Note: If this LoadString call fails, it is likely that
// _AFX_NO_OLE_RESOURCES is defined in your .RC file.
// To correct the situation remove the following line from your
// resource script:
// #define _AFX_NO_OLE_RESOURCES
// This should be done using the Resource.Set Includes... command.
VERIFY(AfxLoadString(AFX_IDS_PASTELINKEDTYPE, szLinkedTypeFmt));
lpszLinkedTypeFmt = T2COLE(szLinkedTypeFmt);
lpszBuf = (LPOLESTR)CoTaskMemAlloc((ocslen(lpszFullUserTypeName) +
ocslen(lpszLinkedTypeFmt) + 1) * sizeof(OLECHAR));
if (lpszBuf != NULL)
{
#ifdef OLE2ANSI
sprintf(lpszBuf, lpszLinkedTypeFmt, lpszFullUserTypeName);
#else
swprintf(lpszBuf, lpszLinkedTypeFmt, lpszFullUserTypeName);
#endif
CoTaskMemFree(lpszFullUserTypeName);
lpszFullUserTypeName = lpszBuf;
}
}
// get source of copy
if (fIsLink)
{
sc = lpOleLink->GetSourceDisplayName((LPOLESTR*)&lpszSrcOfCopy);
bFreeSrcOfCopy = TRUE;
}
else if (lpszSrcOfCopy == NULL)
{
sc = lpOleObj->GetMoniker(
OLEGETMONIKER_TEMPFORUSER, OLEWHICHMK_OBJFULL, &lpSrcMonikerOfCopy);
if (sc == S_OK)
{
CreateBindCtx(0, &pbc);
lpSrcMonikerOfCopy->GetDisplayName(pbc, NULL,
(LPOLESTR*)&lpszSrcOfCopy);
RELEASE(pbc);
bFreeSrcOfCopy = TRUE;
}
}
if (lpSizelHim)
{
// Use extents passed by the caller
sizelHim = *lpSizelHim;
}
else if (lpViewObj2)
{
// Get the current extents from the object
sc = lpViewObj2->GetExtent(dwDrawAspect, -1, NULL,
(LPSIZEL)&sizelHim);
if (sc != S_OK)
sizelHim.cx = sizelHim.cy = 0;
}
else
{
sizelHim.cx = sizelHim.cy = 0;
}
// Get dwStatus
sc = lpOleObj->GetMiscStatus(dwDrawAspect, &dwStatus);
if (sc != S_OK)
dwStatus = 0;
// Get OBJECTDESCRIPTOR
hObjDesc = _AfxOleGetObjectDescriptorData(clsid, dwDrawAspect, sizelHim,
pointl, dwStatus, lpszFullUserTypeName, lpszSrcOfCopy);
// Clean up
CoTaskMemFree(lpszFullUserTypeName);
if (bFreeSrcOfCopy)
CoTaskMemFree((LPOLESTR)lpszSrcOfCopy);
RELEASE(lpSrcMonikerOfCopy);
RELEASE(lpOleLink);
RELEASE(lpViewObj2);
return hObjDesc;
}
