void COleClientItem::SetLinkUpdateOptions(OLEUPDATE dwUpdateOpt)
{
ASSERT_VALID(this);
ASSERT(m_lpObject != NULL);
LPOLELINK lpOleLink = QUERYINTERFACE(m_lpObject, IOleLink);
ASSERT(lpOleLink != NULL); // perhaps not a link?
SCODE sc = lpOleLink->SetUpdateOptions(dwUpdateOpt);
lpOleLink->Release();
CheckGeneral(sc);
}
OLEUPDATE COleClientItem::GetLinkUpdateOptions()
{
ASSERT_VALID(this);
ASSERT(m_lpObject != NULL);
LPOLELINK lpOleLink = QUERYINTERFACE(m_lpObject, IOleLink);
ASSERT(lpOleLink != NULL); // perhaps not a link?
DWORD dwUpdateOpt;
SCODE sc = lpOleLink->GetUpdateOptions(&dwUpdateOpt);
lpOleLink->Release();
CheckGeneral(sc); // may throw an exception
return (OLEUPDATE)dwUpdateOpt;
}
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;
}
STDMETHODIMP COlePropertiesDialog::XOleUIObjInfo::GetObjectInfo(
DWORD dwObject, DWORD* lpdwObjSize, LPTSTR* lplpszLabel,
LPTSTR* lplpszType, LPTSTR* lplpszShortType, LPTSTR* lplpszLocation)
{
COleClientItem* pItem = (COleClientItem*)dwObject;
ASSERT_VALID(pItem);
BOOL bIsLink = (pItem->GetType() == OT_LINK);
if (lpdwObjSize != NULL)
{
ASSERT(pItem->m_lpStorage != NULL);
// try ILockBytes first, then IStorage
STATSTG statStg;
if ((pItem->m_lpLockBytes == NULL ||
pItem->m_lpLockBytes->Stat(&statStg, STATFLAG_NONAME) != S_OK) &&
pItem->m_lpStorage->Stat(&statStg, STATFLAG_NONAME) != S_OK)
{
*lpdwObjSize = 0xFFFFFFFF;
}
else
{
ASSERT(statStg.pwcsName == NULL);
if (statStg.cbSize.HighPart > 0)
*lpdwObjSize = 0xFFFFFFFE;
else if (statStg.cbSize.LowPart == 0)
*lpdwObjSize = 0xFFFFFFFF;
else
*lpdwObjSize = statStg.cbSize.LowPart;
}
}
if (lplpszLabel != NULL)
{
TCHAR szFormatLink[128];
AfxLoadString(AFX_IDS_PASTELINKEDTYPE, szFormatLink, _countof(szFormatLink));
TCHAR szFormatObj[] = _T("%s");
LPTSTR lpszFormat = bIsLink ? szFormatLink : szFormatObj;
CString strType;
pItem->GetUserType(USERCLASSTYPE_FULL, strType);
CString strResult;
strResult.Format(lpszFormat, (LPCTSTR)strType);
*lplpszLabel = AfxAllocTaskString(strResult);
}
if (lplpszType != NULL)
{
LPOLESTR lpOleStr;
pItem->m_lpObject->GetUserType(USERCLASSTYPE_FULL, &lpOleStr);
*lplpszType = TASKSTRINGOLE2T(lpOleStr);
}
if (lplpszShortType != NULL)
{
LPOLESTR lpOleStr;
pItem->m_lpObject->GetUserType(USERCLASSTYPE_SHORT, &lpOleStr);
*lplpszShortType = TASKSTRINGOLE2T(lpOleStr);
}
if (lplpszLocation != NULL)
{
if (bIsLink)
{
LPOLELINK lpOleLink = NULL;
pItem->m_lpObject->QueryInterface(IID_IOleLink, (LPVOID*)&lpOleLink);
ASSERT(lpOleLink != NULL);
LPOLESTR lpOleStr;
lpOleLink->GetSourceDisplayName(&lpOleStr);
*lplpszLocation = TASKSTRINGOLE2T(lpOleStr);
lpOleLink->Release();
}
else
{
CDocument* pDoc = (CDocument*)pItem->GetDocument();
CString strLocation = pDoc->GetPathName();
if (strLocation.IsEmpty())
strLocation = pDoc->GetTitle();
*lplpszLocation = AfxAllocTaskString(strLocation);
}
}
return S_OK;
}