/****************************** Module Header ******************************\
* Module Name: LEDDE.C
*
* Purpose: ?????
*
* Created: 1990
*
* Copyright (c) 1990, 1991 Microsoft Corporation
*
* History:
* Raor, Srinik (../../1990,91) Designed and coded
*
\***************************************************************************/
#include <windows.h>
#include "dde.h"
#include "dll.h"
#define LN_FUDGE 16 // [],(), 3 * 3 (2 double quotes and comma)
#define RUNITEM
#define OLEVERB_CONNECT 0xFFFF
// Definitions for sending the server sys command.
char *srvrSysCmd[] = {"StdNewFromTemplate",
"StdNewDocument",
"StdEditDocument",
"StdOpenDocument"
};
#define EMB_ID_INDEX 11 // index of ones digit in #00
extern char embStr[];
extern BOOL gbCreateInvisible;
extern BOOL gbLaunchServer;
extern ATOM aMSDraw;
extern BOOL (FAR PASCAL *lpfnIsTask) (HANDLE);
// !!! set error hints
OLESTATUS FARINTERNAL LeDoVerb (lpobj, verb, fShow, fActivate)
LPOBJECT_LE lpobj;
WORD verb;
BOOL fShow;
BOOL fActivate;
{
PROBE_ASYNC (lpobj);
PROBE_SVRCLOSING(lpobj);
if (!QueryOpen(lpobj))
return OLE_OK;
lpobj->verb = verb;
lpobj->fCmd = ACT_DOVERB;
if (fActivate)
lpobj->fCmd |= ACT_ACTIVATE;
if (fShow)
lpobj->fCmd |= ACT_SHOW;
InitAsyncCmd (lpobj, OLE_RUN, DOCSHOW);
return DocShow (lpobj);
}
OLESTATUS FARINTERNAL LeShow (lpobj, fActivate)
LPOBJECT_LE lpobj;
BOOL fActivate;
{
PROBE_ASYNC (lpobj);
PROBE_SVRCLOSING(lpobj);
if (!QueryOpen(lpobj))
return OLE_OK;
lpobj->fCmd = ACT_SHOW;
InitAsyncCmd (lpobj, OLE_SHOW, DOCSHOW);
return DocShow (lpobj);
}
// DocShow : If the server is connected, show the item
// for editing. For embedded objects us NULL Item.
OLESTATUS DocShow (lpobj)
LPOBJECT_LE lpobj;
{
switch (lpobj->subRtn) {
case 0:
SendStdShow (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 1:
ProcessErr (lpobj);
return EndAsyncCmd (lpobj);
default:
DEBUG_OUT ("Unexpected subroutine", 0);
return OLE_ERROR_GENERIC;
}
}
void SendStdShow (lpobj)
LPOBJECT_LE lpobj;
{
WORD len;
WORD size;
LPSTR lpdata = NULL;
HANDLE hdata = NULL;
BOOL bShow;
lpobj->subErr = OLE_OK;
if (lpobj->verb == OLEVERB_CONNECT) {
lpobj->verb = NULL;
return;
}
if (!(lpobj->fCmd & (ACT_SHOW | ACT_DOVERB)))
return;
if (bShow = (!lpobj->bOleServer || !(lpobj->fCmd & ACT_DOVERB))) {
// show is off, do not show the server.
if (!(lpobj->fCmd & ACT_SHOW))
return;
SETERRHINT(lpobj, OLE_ERROR_SHOW);
// and 18 "[StdShowItem(\"")for 5 extra for ",FALSE
len = 18 + 7;
} else {
// 19 for the string [StdDoVerbItem(\"") and
// 18 extra is for ",000,FALSE,FALSE
SETERRHINT(lpobj, OLE_ERROR_DOVERB);
len = 19 + 18;
}
len += GlobalGetAtomLen (lpobj->item);
len += 4; // ")]" + NULL
hdata = GlobalAlloc (GMEM_DDESHARE, size = len);
if (hdata == NULL || (lpdata = (LPSTR)GlobalLock (hdata)) == NULL)
goto errRtn;
if (bShow)
lstrcpy (lpdata, "[StdShowItem(\"");
else
lstrcpy (lpdata, "[StdDoVerbItem(\"");
len = lstrlen (lpdata);
if (lpobj->item)
GlobalGetAtomName (lpobj->item , lpdata + len, size - len);
if (!bShow) {
lstrcat (lpdata, (LPSTR)"\",");
// assume that the number of verbs are < 10
len = lstrlen (lpdata);
#ifdef FIREWALLS
ASSERT ( (lpobj->verb & 0x000f) < 9 , "Verb value more than 9");
#endif
lpdata += len;
*lpdata++ = (char)((lpobj->verb & 0x000f) + '0');
*lpdata = 0;
if (lpobj->fCmd & ACT_SHOW)
lstrcat (lpdata, (LPSTR) ",TRUE");
else
lstrcat (lpdata, (LPSTR) ",FALSE");
// StdVerbItem (item, verb, TRUE
// add TRUE/FALSE constant for the activate
if (!(lpobj->fCmd & ACT_ACTIVATE))
lstrcat (lpdata, (LPSTR) ",TRUE)]");
else
lstrcat (lpdata, (LPSTR) ",FALSE)]");
// [StdDoVerb ("item", verb, FALSE, FALSE)]
} else
lstrcat (lpdata, (LPSTR)"\")]");
// apps like excel and wingraph do not suuport activate at
// item level.
GlobalUnlock (hdata);
DocExecute (lpobj, hdata);
return;
errRtn:
if (lpdata)
GlobalUnlock (hdata);
if (hdata)
GlobalFree (hdata);
lpobj->subErr = OLE_ERROR_MEMORY;
return;
}
OLESTATUS FARINTERNAL LeQueryOpen (LPOBJECT_LE lpobj)
{
if (QueryOpen(lpobj))
return OLE_OK;
else
return OLE_ERROR_NOT_OPEN;
}
BOOL INTERNAL QueryOpen (LPOBJECT_LE lpobj)
{
if (lpobj->pDocEdit && lpobj->pDocEdit->hClient) {
if (IsServerValid (lpobj))
return TRUE;
// destroy the windows and pretend as if the server was never
// connected.
DestroyWindow (lpobj->pDocEdit->hClient);
if (lpobj->pSysEdit && lpobj->pSysEdit->hClient)
DestroyWindow (lpobj->pSysEdit->hClient);
}
return FALSE;
}
OLESTATUS FARINTERNAL LeActivate (lpobj, verb, fShow, fActivate, hWnd, lprc)
LPOBJECT_LE lpobj;
WORD verb;
BOOL fShow;
BOOL fActivate;
HWND hWnd;
LPRECT lprc;
{
lpobj->verb = verb;
if (lpobj->head.ctype == CT_EMBEDDED)
return EmbOpen (lpobj, fShow, fActivate, hWnd, lprc);
#ifdef FIREWALLS
ASSERT (lpobj->head.ctype == CT_LINK, "unknown object");
#endif
return LnkOpen (lpobj, fShow, fActivate, hWnd, lprc);
}
OLESTATUS FARINTERNAL LeUpdate (lpobj)
LPOBJECT_LE lpobj;
{
if (lpobj->head.ctype == CT_EMBEDDED)
return EmbUpdate (lpobj);
#ifdef FIREWALLS
ASSERT (lpobj->head.ctype == CT_LINK, "unknown object");
#endif
return LnkUpdate (lpobj);
}
OLESTATUS FARINTERNAL EmbOpen (lpobj, fShow, fActivate, hWnd, lprc)
LPOBJECT_LE lpobj;
BOOL fShow;
BOOL fActivate;
HWND hWnd;
LPRECT lprc;
{
PROBE_ASYNC (lpobj);
PROBE_SVRCLOSING(lpobj);
if(QueryOpen (lpobj))
return LeDoVerb (lpobj, lpobj->verb, fShow, fActivate);
// show the window
// advise for data only on close
// and shut down the conv after the advises.
lpobj->fCmd = LN_EMBACT | ACT_DOVERB | ACT_ADVISE | ACT_CLOSE;
if (fActivate)
lpobj->fCmd |= ACT_ACTIVATE;
if (fShow)
lpobj->fCmd |= ACT_SHOW;
InitAsyncCmd (lpobj, OLE_ACTIVATE, EMBOPENUPDATE);
return EmbOpenUpdate (lpobj);
}
/***************************** Public Function ****************************\
* OLESTATUS FARINTERNAL EmbUpdate (lpobj)
*
* This function updates an EMB object. If the server is connected
* simply send a request for the native as well as the display formats.
* If the server is connected, then tries to start the conversationa and
* get the data. If the conversation fails, then load the server and
* start the conversation. The embeded objects may have links in it.
*
* Effects:
*
* History:
* Wrote it.
\***************************************************************************/
OLESTATUS FARINTERNAL EmbUpdate (lpobj)
LPOBJECT_LE lpobj;
{
// if we are loading the server, then definitly unload.
// if the connection is established, then unload if it is
// to be unloaded, when all the previous requests are satisfied.
PROBE_ASYNC (lpobj);
PROBE_SVRCLOSING(lpobj);
lpobj->fCmd = LN_EMBACT | ACT_REQUEST | (QueryOpen(lpobj) ? 0 : ACT_UNLAUNCH);
InitAsyncCmd (lpobj, OLE_UPDATE, EMBOPENUPDATE);
return EmbOpenUpdate (lpobj);
}
OLESTATUS FARINTERNAL EmbOpenUpdate (lpobj)
LPOBJECT_LE lpobj;
{
switch (lpobj->subRtn) {
case 0:
SKIP_TO (QueryOpen(lpobj), step6);
SendSrvrMainCmd (lpobj, lpobj->lptemplate);
lpobj->lptemplate = NULL;
WAIT_FOR_ASYNC_MSG (lpobj);
case 1:
if (ProcessErr (lpobj))
goto errRtn;
// Init doc conversation should set the failure error
if (!InitDocConv (lpobj, !POPUP_NETDLG))
goto errRtn;
// If there is no native data, do not do any poke.
// creates will not have any poke data to start with
SKIP_TO (!(lpobj->hnative), step6);
PokeNativeData (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 2:
if (ProcessErr (lpobj))
goto errRtn;
// Now poke the hostnames etc stuff.
PokeHostNames (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 3:
// do not worry about the poke hostname errors
PokeTargetDeviceInfo (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 4:
PokeDocDimensions (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 5:
PokeColorScheme (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 6:
step6:
// wingraph does not accept the doc dimensions
// after sttedit.
CLEAR_STEP_ERROR (lpobj);
SETSTEP (lpobj, 6);
STEP_NOP (lpobj);
// step_nop simply increments the step numebr
// merge the steps later on
case 7:
if (ProcessErr (lpobj))
goto errRtn;
SKIP_TO (!(lpobj->fCmd & ACT_ADVISE), step11);
lpobj->optUpdate = oleupdate_onsave;
lpobj->pDocEdit->nAdviseSave = 0;
AdviseOn (lpobj, cfNative, aSave);
WAIT_FOR_ASYNC_MSG (lpobj);
case 8:
// do not go for errors on /save. Some servers may not support
// this.
CLEAR_STEP_ERROR (lpobj);
AdvisePict (lpobj, aSave);
WAIT_FOR_ASYNC_MSG (lpobj);
case 9:
// do not worry about the error case for save. Ignore them
CLEAR_STEP_ERROR (lpobj);
lpobj->optUpdate = oleupdate_onclose;
lpobj->pDocEdit->nAdviseClose = 0;
AdviseOn (lpobj, cfNative, aClose);
WAIT_FOR_ASYNC_MSG (lpobj);
case 10:
if (ProcessErr(lpobj))
goto errRtn;
AdvisePict (lpobj, aClose);
WAIT_FOR_ASYNC_MSG (lpobj);
case 11:
step11:
SETSTEP (lpobj, 11);
if (ProcessErr(lpobj))
goto errRtn;
SKIP_TO (!(lpobj->fCmd & ACT_REQUEST), step13);
// we don't want to send OLE_CHANGED when we get this data, if we
// are going to request for picture data also.
lpobj->pDocEdit->bCallLater = ((lpobj->lpobjPict) ? TRUE: FALSE);
RequestOn (lpobj, cfNative);
WAIT_FOR_ASYNC_MSG (lpobj);
// If request pict fails, then native and pict are
// not in sync.
case 12:
if (ProcessErr(lpobj))
goto errRtn;
lpobj->pDocEdit->bCallLater = FALSE;
RequestPict (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 13:
step13:
SETSTEP(lpobj, 13);
if (ProcessErr(lpobj))
goto errRtn;
SendStdShow (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 14:
if (ProcessErr(lpobj))
goto errRtn;
SKIP_TO ((lpobj->fCmd & ACT_UNLAUNCH), step15);
return EndAsyncCmd (lpobj);
case 15:
errRtn:
step15:
ProcessErr (lpobj);
if ((lpobj->asyncCmd == OLE_UPDATE)
&& (!(lpobj->fCmd & ACT_UNLAUNCH)))
return EndAsyncCmd (lpobj);
// if we launched and error, unlaunch (send stdexit)
NextAsyncCmd (lpobj, EMBLNKDELETE);
lpobj->fCmd |= ACT_UNLAUNCH;
EmbLnkDelete (lpobj);
return lpobj->mainErr;
default:
DEBUG_OUT ("Unexpected subroutine", 0);
return OLE_ERROR_GENERIC;
}
}
OLESTATUS FARINTERNAL LnkOpen (lpobj, fShow, fActivate, hWnd, lprc)
LPOBJECT_LE lpobj;
BOOL fShow;
BOOL fActivate;
HWND hWnd;
LPRECT lprc;
{
PROBE_ASYNC (lpobj);
PROBE_SVRCLOSING(lpobj);
if(QueryOpen (lpobj))
return LeDoVerb (lpobj, lpobj->verb, fShow, fActivate);
// Just end the system conversation. we are not unloading
// this instance at all.
lpobj->fCmd = LN_LNKACT | ACT_DOVERB;
if (lpobj->optUpdate == oleupdate_always)
lpobj->fCmd |= ACT_ADVISE | ACT_REQUEST;
else if (lpobj->optUpdate == oleupdate_onsave)
lpobj->fCmd |= ACT_ADVISE;
if (fActivate)
lpobj->fCmd |= ACT_ACTIVATE;
if (fShow)
lpobj->fCmd |= ACT_SHOW;
InitAsyncCmd (lpobj, OLE_ACTIVATE, LNKOPENUPDATE);
return LnkOpenUpdate (lpobj);
}
OLESTATUS FARINTERNAL LnkUpdate (lpobj)
LPOBJECT_LE lpobj;
{
// if we are loading the server, then definitly unload.
// if the connection is established, then unload if it is
// to be unloaded, when all the previous requests are satisfied.
PROBE_ASYNC (lpobj);
PROBE_SVRCLOSING(lpobj);
lpobj->fCmd = LN_LNKACT | ACT_REQUEST | (QueryOpen (lpobj) ? 0 : ACT_UNLAUNCH);
InitAsyncCmd (lpobj, OLE_UPDATE, LNKOPENUPDATE);
return LnkOpenUpdate (lpobj);
}
OLESTATUS FARINTERNAL LnkOpenUpdate (lpobj)
LPOBJECT_LE lpobj;
{
switch (lpobj->subRtn) {
case 0:
SKIP_TO (QueryOpen(lpobj), step2);
InitDocConv (lpobj, !POPUP_NETDLG);
if (QueryOpen(lpobj)) {
if (lpobj->app == aPackage)
RemoveLinkStringFromTopic (lpobj);
goto step2;
}
SendSrvrMainCmd (lpobj, NULL);
WAIT_FOR_ASYNC_MSG (lpobj);
case 1:
if (ProcessErr (lpobj))
goto errRtn;
if (lpobj->app == aPackage)
RemoveLinkStringFromTopic (lpobj);
if (!InitDocConv (lpobj, POPUP_NETDLG)) {
lpobj->subErr = OLE_ERROR_OPEN;
goto errRtn;
}
case 2:
step2:
SETSTEP (lpobj, 2);
PokeTargetDeviceInfo (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 3:
if (ProcessErr (lpobj))
goto errRtn;
SKIP_TO (!(lpobj->fCmd & ACT_ADVISE), step6);
SKIP_TO (!(lpobj->fCmd & ACT_NATIVE), step4);
AdviseOn (lpobj, cfNative, NULL);
WAIT_FOR_ASYNC_MSG (lpobj);
case 4:
step4:
SETSTEP (lpobj, 4);
if (ProcessErr (lpobj))
goto errRtn;
AdvisePict (lpobj, NULL);
WAIT_FOR_ASYNC_MSG (lpobj);
case 5:
if (ProcessErr (lpobj))
goto errRtn;
// Now send advise for renaming the documnet.
AdviseOn (lpobj, cfBinary, aStdDocName);
WAIT_FOR_ASYNC_MSG (lpobj);
case 6:
step6:
// if name advise fails ignore it
SETSTEP (lpobj, 6);
CLEAR_STEP_ERROR (lpobj);
SKIP_TO (!(lpobj->fCmd & ACT_REQUEST), step8);
SKIP_TO (!(lpobj->fCmd & ACT_NATIVE), step7);
// we don't want to send OLE_CHANGED when we get this data, if we
// are going to request for picture data also.
lpobj->pDocEdit->bCallLater = ((lpobj->lpobjPict) ? TRUE: FALSE);
RequestOn (lpobj, cfNative);
WAIT_FOR_ASYNC_MSG (lpobj);
case 7:
step7:
SETSTEP (lpobj, 7);
if (ProcessErr (lpobj))
goto errRtn;
lpobj->pDocEdit->bCallLater = FALSE;
RequestPict (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 8:
step8:
SETSTEP (lpobj, 8);
if (ProcessErr (lpobj))
goto errRtn;
SKIP_TO (!(lpobj->fCmd & ACT_TERMDOC), step10);
// terminate the document conversataion.
TermDocConv (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 9:
if (ProcessErr (lpobj))
goto errRtn;
// delete the server edit block
DeleteDocEdit (lpobj);
SKIP_TO ((lpobj->fCmd & ACT_UNLAUNCH), step14);
return EndAsyncCmd (lpobj);
case 10:
step10:
SETSTEP (lpobj, 10);
if (ProcessErr (lpobj))
goto errRtn;
SKIP_TO (!(lpobj->fCmd & ACT_TERMSRVR), step12);
// terminate the server conversataion.
TermSrvrConv (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 11:
if (ProcessErr (lpobj))
goto errRtn;
// delete the server edit block
DeleteSrvrEdit (lpobj);
return EndAsyncCmd (lpobj);
case 12:
step12:
SETSTEP (lpobj, 12);
if (ProcessErr (lpobj))
goto errRtn;
SendStdShow (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 13:
if (ProcessErr (lpobj))
goto errRtn;
SKIP_TO ((lpobj->fCmd & ACT_UNLAUNCH), step14);
return EndAsyncCmd (lpobj);
case 14:
errRtn:
step14:
ProcessErr (lpobj);
if ((lpobj->asyncCmd == OLE_UPDATE)
&& (!(lpobj->fCmd & ACT_UNLAUNCH)))
return EndAsyncCmd (lpobj);
// if we launched and error, unlaunch (send stdexit)
NextAsyncCmd (lpobj, EMBLNKDELETE);
lpobj->fCmd |= ACT_UNLAUNCH;
EmbLnkDelete (lpobj);
return lpobj->mainErr;
default:
DEBUG_OUT ("Unexpected subroutine", 0);
return OLE_ERROR_GENERIC;
}
}
OLESTATUS EmbLnkClose (lpobj)
LPOBJECT_LE lpobj;
{
switch (lpobj->subRtn) {
case 0:
TermDocConv (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 1:
// delete the edit block
DeleteDocEdit (lpobj);
TermSrvrConv (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 2:
// Do not set any errors, just delete the object.
// delete the server edit block
DeleteSrvrEdit (lpobj);
return EndAsyncCmd (lpobj);
default:
DEBUG_OUT ("Unexpected subroutine", 0);
return OLE_ERROR_GENERIC;
}
}
OLESTATUS FARINTERNAL LeClose (lpobj)
LPOBJECT_LE lpobj;
{
PROBE_ASYNC (lpobj);
if (IS_SVRCLOSING(lpobj))
return OLE_OK;
lpobj->fCmd = 0;
if (lpobj->head.ctype == CT_EMBEDDED) {
InitAsyncCmd (lpobj, OLE_CLOSE, EMBLNKDELETE);
return EmbLnkDelete (lpobj);
}
else {
InitAsyncCmd (lpobj, OLE_CLOSE, EMBLNKCLOSE);
return EmbLnkClose (lpobj);
}
}
OLESTATUS FARINTERNAL LeReconnect (lpobj)
LPOBJECT_LE lpobj;
{
// check for the existing conversation.
// if the client window is non-null, then
// connection exits.
if (lpobj->head.ctype != CT_LINK)
return OLE_ERROR_NOT_LINK; // allow only for linked
PROBE_ASYNC (lpobj);
PROBE_SVRCLOSING(lpobj);
if (QueryOpen (lpobj))
return OLE_OK;
// start just the conversation. Do not load
// the app.
if (!InitDocConv (lpobj, !POPUP_NETDLG))
return OLE_OK; // document is not loaded , it is OK.
lpobj->fCmd = LN_LNKACT;
if (lpobj->optUpdate == oleupdate_always)
lpobj->fCmd |= ACT_ADVISE | ACT_REQUEST;
InitAsyncCmd (lpobj, OLE_RECONNECT, LNKOPENUPDATE);
return LnkOpenUpdate (lpobj);
}
OLESTATUS INTERNAL PokeNativeData (lpobj)
LPOBJECT_LE lpobj;
{
SETERRHINT(lpobj, OLE_ERROR_POKE_NATIVE);
return SendPokeData (lpobj,
lpobj->item,
lpobj->hnative,
cfNative);
}
BOOL INTERNAL PostMessageToServer (pedit, msg, lparam)
PEDIT_DDE pedit;
WORD msg;
LONG lparam;
{
#ifdef FIREWALLS
ASSERT (pedit, "Dde edit block is NULL");
#endif
// save the lparam and msg fpr possible reposting incase of error.
// we are in abort state. no messages except for terminate.
if (pedit->bAbort && msg != WM_DDE_TERMINATE)
return FALSE;
pedit->lParam = lparam;
pedit->msg = msg;
if (pedit->hClient && pedit->hServer) {
while (TRUE){
if (!IsWindowValid (pedit->hServer))
return FALSE;
if (PostMessage (pedit->hServer, msg, pedit->hClient, lparam) == FALSE)
Yield ();
else
return TRUE;
}
}
return FALSE;
}
OLESTATUS FARINTERNAL LeCreateFromTemplate (lpclient, lptemplate, lhclientdoc, lpobjname, lplpoleobject, optRender, cfFormat)
LPOLECLIENT lpclient;
LPSTR lptemplate;
LHCLIENTDOC lhclientdoc;
LPSTR lpobjname;
LPOLEOBJECT FAR * lplpoleobject;
OLEOPT_RENDER optRender;
OLECLIPFORMAT cfFormat;
{
char buf[MAX_STR];
if (!MapExtToClass (lptemplate, (LPSTR)buf, MAX_STR))
return OLE_ERROR_CLASS;
return CreateFromClassOrTemplate (lpclient, (LPSTR) buf, lplpoleobject,
optRender, cfFormat, LN_TEMPLATE, lptemplate,
lhclientdoc, lpobjname);
}
OLESTATUS FARINTERNAL LeCreate (lpclient, lpclass, lhclientdoc, lpobjname, lplpoleobject, optRender, cfFormat)
LPSTR lpclass;
LPOLECLIENT lpclient;
LHCLIENTDOC lhclientdoc;
LPSTR lpobjname;
LPOLEOBJECT FAR * lplpoleobject;
OLEOPT_RENDER optRender;
OLECLIPFORMAT cfFormat;
{
if (gbCreateInvisible) {
// this is in fact a call for invisible create
return LeCreateInvisible (lpclient, lpclass, lhclientdoc, lpobjname,
lplpoleobject, optRender, cfFormat, gbLaunchServer);
}
return CreateFromClassOrTemplate (lpclient, lpclass, lplpoleobject,
optRender, cfFormat, LN_NEW, NULL,
lhclientdoc, lpobjname);
}
OLESTATUS FARINTERNAL CreateFromClassOrTemplate (lpclient, lpclass, lplpoleobject, optRender, cfFormat, lnType, lptemplate, lhclientdoc, lpobjname)
LPOLECLIENT lpclient;
LPSTR lpclass;
LPOLEOBJECT FAR * lplpoleobject;
OLEOPT_RENDER optRender;
OLECLIPFORMAT cfFormat;
WORD lnType;
LPSTR lptemplate;
LHCLIENTDOC lhclientdoc;
LPSTR lpobjname;
{
OLESTATUS retval = OLE_ERROR_MEMORY;
LPOBJECT_LE lpobj = NULL;
ATOM aServer;
char chVerb [2];
if (!(aServer = GetAppAtom (lpclass)))
return OLE_ERROR_CLASS;
if(!(lpobj = LeCreateBlank (lhclientdoc, lpobjname, CT_EMBEDDED))) {
GlobalDeleteAtom (aServer);
goto errRtn;
}
// Now set the server.
lpobj->head.lpclient = lpclient;
lpobj->app = GlobalAddAtom (lpclass);
SetEmbeddedTopic (lpobj);
lpobj->item = NULL;
lpobj->bOleServer = QueryVerb (lpobj, 0, (LPSTR)&chVerb, 2);
lpobj->aServer = aServer;
// launch the app and start the system conversation.
if (!CreatePictObject (lhclientdoc, lpobjname, lpobj,
optRender, cfFormat, lpclass))
goto errRtn;
// show the window. Advise for data and close on receiving data
lpobj->fCmd = lnType | ACT_SHOW | ACT_ADVISE | ACT_CLOSE;
InitAsyncCmd (lpobj, lptemplate? OLE_CREATEFROMTEMPLATE : OLE_CREATE, EMBOPENUPDATE);
*lplpoleobject = (LPOLEOBJECT)lpobj;
lpobj->lptemplate = lptemplate;
if ((retval = EmbOpenUpdate (lpobj)) <= OLE_WAIT_FOR_RELEASE)
return retval;
// If there is error afterwards, then the client app should call
// to delete the object.
errRtn:
// for error termination OleDelete will terminate any conversation
// in action.
if (lpobj) {
// This oledelete will not result in asynchronous command.
OleDelete ((LPOLEOBJECT)lpobj);
*lplpoleobject = NULL;
}
return retval;
}
OLESTATUS FARINTERNAL CreateEmbLnkFromFile (lpclient, lpclass, lpfile, lpitem, lhclientdoc, lpobjname, lplpoleobject, optRender, cfFormat, objType)
LPOLECLIENT lpclient;
LPSTR lpclass;
LPSTR lpfile;
LPSTR lpitem;
LHCLIENTDOC lhclientdoc;
LPSTR lpobjname;
LPOLEOBJECT FAR * lplpoleobject;
OLEOPT_RENDER optRender;
OLECLIPFORMAT cfFormat;
LONG objType;
{
OLESTATUS retval = OLE_ERROR_MEMORY;
LPOBJECT_LE lpobj = NULL;
ATOM aServer;
char buf[MAX_STR];
OLE_RELEASE_METHOD releaseMethod;
WORD wFlags = NULL;
char chVerb[2];
if (!lpclass && (lpclass = (LPSTR) buf)
&& !MapExtToClass (lpfile, (LPSTR)buf, MAX_STR))
return OLE_ERROR_CLASS;
if (!(aServer = GetAppAtom (lpclass)))
return OLE_ERROR_CLASS;
if (!(lpobj = LeCreateBlank (lhclientdoc, lpobjname, CT_LINK))) {
GlobalDeleteAtom (aServer);
goto errFileCreate;
}
lpobj->head.lpclient = lpclient;
lpobj->app = GlobalAddAtom (lpclass);
lpobj->topic = GlobalAddAtom (lpfile);
lpobj->aServer = aServer;
lpobj->bOleServer = QueryVerb (lpobj, 0, (LPSTR)&chVerb, 2);
if ((retval = SetNetName (lpobj)) != OLE_OK)
goto errFileCreate;
if (lpitem)
lpobj->item = GlobalAddAtom (lpitem);
if (!CreatePictObject (lhclientdoc, lpobjname, lpobj,
optRender, cfFormat, lpclass)) {
retval = OLE_ERROR_MEMORY;
goto errFileCreate;
}
*lplpoleobject = (LPOLEOBJECT) lpobj;
if (objType == CT_EMBEDDED) {
releaseMethod = OLE_CREATEFROMFILE;
if ((optRender == olerender_format) && (cfFormat == cfNative))
wFlags = 0;
else
wFlags = ACT_NATIVE;
}
else {
// caller wants linked object to be created
// if no presentation data is requested and the link is to the whole
// file, then there is no need to launch the server.
if ((optRender == olerender_none) && !lpobj->item)
return FileExists (lpobj);
// we want to establish hot link
wFlags = ACT_ADVISE;
releaseMethod = OLE_CREATELINKFROMFILE;
}
lpobj->fCmd = LN_LNKACT | ACT_REQUEST | ACT_UNLAUNCH | wFlags;
InitAsyncCmd (lpobj, releaseMethod , LNKOPENUPDATE);
if ((retval = LnkOpenUpdate (lpobj)) <= OLE_WAIT_FOR_RELEASE)
return retval;
// If there is error afterwards, then the client app should call
// to delete the object.
errFileCreate:
if (lpobj) {
// This oledelete will not result in asynchronous command.
OleDelete ((LPOLEOBJECT)lpobj);
*lplpoleobject = NULL;
}
return retval;
}
//////////////////////////////////////////////////////////////////////////////
//
// OLESTATUS FARINTERNAL LeCreateInvisible (lpclient, lpclass, lhclientdoc, lpobjname, lplpoleobject, optRender, cfFormat, bActivate)
//
// Arguments:
//
// lpclient -
// lpclass -
// lhclientdoc -
// lpobjname -
// lplpoleobject -
// optRender -
// cfFormat -
// fActivate -
//
// Returns:
//
// OLE_ERROR_CLASS -
// OLE_OK -
// EmbOpenUpdate (lpobj) -
// retval -
//
// Effects:
//
//////////////////////////////////////////////////////////////////////////////
OLESTATUS FARINTERNAL LeCreateInvisible (lpclient, lpclass, lhclientdoc, lpobjname, lplpoleobject, optRender, cfFormat, fActivate)
LPSTR lpclass;
LPOLECLIENT lpclient;
LHCLIENTDOC lhclientdoc;
LPSTR lpobjname;
LPOLEOBJECT FAR * lplpoleobject;
OLEOPT_RENDER optRender;
OLECLIPFORMAT cfFormat;
BOOL fActivate;
{
OLESTATUS retval = OLE_ERROR_MEMORY;
LPOBJECT_LE lpobj = NULL;
ATOM aServer;
char chVerb [2];
if (!(aServer = GetAppAtom (lpclass)))
return OLE_ERROR_CLASS;
if(!(lpobj = LeCreateBlank (lhclientdoc, lpobjname, CT_EMBEDDED))) {
GlobalDeleteAtom (aServer);
goto errRtn;
}
// Now set the server.
lpobj->head.lpclient = lpclient;
lpobj->app = GlobalAddAtom (lpclass);
lpobj->item = NULL;
lpobj->bOleServer = QueryVerb (lpobj, 0, (LPSTR)&chVerb, 2);
lpobj->aServer = aServer;
lpobj->lptemplate = NULL;
SetEmbeddedTopic (lpobj);
if (!CreatePictObject (lhclientdoc, lpobjname, lpobj,
optRender, cfFormat, lpclass))
goto errRtn;
*lplpoleobject = (LPOLEOBJECT)lpobj;
if (!fActivate)
return OLE_OK;
// show the window. Advise for data and close on receiving data
lpobj->fCmd = LN_NEW | ACT_ADVISE | ACT_CLOSE;
InitAsyncCmd (lpobj, OLE_CREATEINVISIBLE, EMBOPENUPDATE);
// launch the app and start the system conversation.
if ((retval = EmbOpenUpdate (lpobj)) <= OLE_WAIT_FOR_RELEASE)
return retval;
// If there is error afterwards, then the client app should call
// to delete the object.
errRtn:
// for error termination OleDelete will terminate any conversation
// in action.
if (lpobj) {
// This oledelete will not result in asynchronous command.
OleDelete ((LPOLEOBJECT)lpobj);
*lplpoleobject = NULL;
}
return retval;
}
// LeSetUpdateOptions: sets the update options. If the server
// is connectd then it unadvises for the current options and
// advises for the new options.
OLESTATUS FARINTERNAL LeSetUpdateOptions (lpobj, options)
LPOBJECT_LE lpobj;
OLEOPT_UPDATE options;
{
PROBE_OLDLINK (lpobj);
PROBE_ASYNC (lpobj);
//!!! make sure the options are within range.
if (lpobj->head.ctype != CT_LINK)
return (OLE_ERROR_OBJECT);
if (options > oleupdate_oncall)
return OLE_ERROR_OPTION;
if (lpobj->optUpdate == options)
return OLE_OK;
if (!QueryOpen (lpobj) || IS_SVRCLOSING(lpobj)) {
lpobj->optUpdate = options;
return OLE_OK;
}
lpobj->optNew = options;
lpobj->fCmd = 0;
InitAsyncCmd (lpobj, OLE_SETUPDATEOPTIONS, LNKSETUPDATEOPTIONS);
return LnkSetUpdateOptions (lpobj);
}
OLESTATUS LnkSetUpdateOptions (lpobj)
LPOBJECT_LE lpobj;
{
switch (lpobj->subRtn) {
case 0:
if (lpobj->optUpdate == oleupdate_oncall)
goto step1;
// If the server is active then unadvise for old
// options.
UnAdvisePict (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 1:
step1:
SETSTEP (lpobj, 1);
ProcessErr (lpobj);
lpobj->optUpdate = lpobj->optNew;
if (lpobj->optUpdate == oleupdate_oncall)
goto step3;
AdvisePict (lpobj, NULL);
WAIT_FOR_ASYNC_MSG (lpobj);
case 2:
SETSTEP (lpobj, 2);
if (ProcessErr (lpobj))
goto errRtn;
if (lpobj->optUpdate == oleupdate_onsave)
goto step3;
RequestPict (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 3:
errRtn:
step3:
ProcessErr (lpobj);
return EndAsyncCmd (lpobj);
default:
DEBUG_OUT ("Unexpected subroutine", 0);
return OLE_ERROR_GENERIC;
}
}
//AdvisePict: Sends advise for pict data
void INTERNAL AdvisePict (lpobj, aAdvItem)
LPOBJECT_LE lpobj;
ATOM aAdvItem;
{
int cftype;
if (cftype = GetPictType (lpobj))
AdviseOn (lpobj, cftype, aAdvItem);
}
//UnAdvisePict: Sends unadvise for pict data
void INTERNAL UnAdvisePict (lpobj)
LPOBJECT_LE lpobj;
{
int cftype;
SETERRHINT (lpobj, OLE_ERROR_ADVISE_PICT);
if (cftype = GetPictType (lpobj))
UnAdviseOn (lpobj, cftype);
}
// GetPictType: Given the object, returns the pict type.
int INTERNAL GetPictType (lpobj)
LPOBJECT_LE lpobj;
{
if (lpobj->lpobjPict)
return (int)(*lpobj->lpobjPict->lpvtbl->EnumFormats)
(lpobj->lpobjPict, NULL);
return NULL;
}
// AdviseOn : Sends advise for a given picture type
// Send advise only if the advise options is not on call.
void INTERNAL AdviseOn (lpobj, cftype, advItem)
LPOBJECT_LE lpobj;
int cftype;
ATOM advItem;
{
HANDLE hopt = NULL;
DDEADVISE FAR *lpopt = NULL;
ATOM item = NULL;
PEDIT_DDE pedit;
OLESTATUS retval;
if (cftype == (int)cfNative)
SETERRHINT (lpobj, OLE_ERROR_ADVISE_NATIVE);
else {
if (cftype == (int)cfBinary)
SETERRHINT (lpobj, OLE_ERROR_ADVISE_RENAME);
else
SETERRHINT (lpobj, OLE_ERROR_ADVISE_PICT);
}
if (lpobj->optUpdate == oleupdate_oncall)
return;
if(!(hopt = GlobalAlloc (GMEM_DDESHARE | GMEM_ZEROINIT, sizeof(DDEADVISE))))
goto errRtn;
retval = OLE_ERROR_MEMORY;
if(!(lpopt = (DDEADVISE FAR *) GlobalLock (hopt)))
goto errRtn;
pedit = lpobj->pDocEdit;
lpopt->fAckReq = TRUE;
// get data always. Currently there is no way for the
// deferred updates.
lpopt->fDeferUpd = 0;
lpopt->cfFormat = cftype;
GlobalUnlock (hopt);
pedit->hopt = hopt;
if (advItem == aStdDocName)
item = DuplicateAtom (advItem);
else
item = ExtendAtom (lpobj, lpobj->item);
retval = OLE_ERROR_COMM;
if (!PostMessageToServer(pedit, WM_DDE_ADVISE, MAKELONG (hopt, item)))
goto errRtn;
#ifdef FIREWALLS
ASSERT (!pedit->bTerminating, "trying to post while termination")
ASSERT (pedit->awaitAck == NULL, "Trying to Post msg while waiting for ack")
#endif
pedit->awaitAck = AA_ADVISE;
lpobj->bAsync = TRUE;
if (advItem == aClose)
lpobj->pDocEdit->nAdviseClose++;
else if (advItem == aSave)
lpobj->pDocEdit->nAdviseSave++;
return;
errRtn:
if (item)
GlobalDeleteAtom (item);
if (lpopt)
GlobalUnlock (hopt);
if (hopt)
GlobalFree (hopt);
lpobj->subErr = retval;
return ;
}
//UnAdviseOn: Sends unadvise for an item.
void INTERNAL UnAdviseOn (lpobj, cftype)
LPOBJECT_LE lpobj;
int cftype;
{
ATOM item;
PEDIT_DDE pedit;
pedit = lpobj->pDocEdit;
item = ExtendAtom (lpobj, lpobj->item);
if (!PostMessageToServer(pedit, WM_DDE_UNADVISE, MAKELONG (NULL, item)))
lpobj->subErr = OLE_ERROR_COMM;
else {
#ifdef FIREWALLS
ASSERT (!pedit->bTerminating, "trying to post while termination")
ASSERT (pedit->awaitAck == NULL, "Trying to Post msg while waiting for ack")
#endif
lpobj->bAsync = TRUE;
pedit->awaitAck = AA_UNADVISE;
}
}
// RequestOn: Semd WM_DDE_REQUEST for the item of the
// for a given type;
void INTERNAL RequestOn (lpobj, cftype)
LPOBJECT_LE lpobj;
int cftype;
{
ATOM item = NULL;
PEDIT_DDE pedit;
OLESTATUS retval = OLE_ERROR_COMM;
if (cftype == (int)cfNative)
SETERRHINT (lpobj, OLE_ERROR_REQUEST_NATIVE);
else
SETERRHINT (lpobj, OLE_ERROR_REQUEST_PICT);
pedit = lpobj->pDocEdit;
item = DuplicateAtom (lpobj->item);
if (!PostMessageToServer (pedit, WM_DDE_REQUEST, MAKELONG (cftype, item)))
goto errRtn;
#ifdef FIREWALLS
ASSERT (!pedit->bTerminating, "trying to post while termination")
ASSERT (pedit->awaitAck == NULL, "Trying to Post msg while waiting for ack")
#endif
lpobj->bAsync = TRUE;
pedit->awaitAck = AA_REQUEST;
return;
errRtn:
if (item)
GlobalDeleteAtom (item);
return ;
}
//RequestPict: Sends request for apicture type.
void INTERNAL RequestPict (lpobj)
LPOBJECT_LE lpobj;
{
int cftype;
if (cftype = GetPictType (lpobj))
RequestOn (lpobj, cftype);
}
// LeSetHostNames: Sets the host names. If the server is connected
// send the host names to the server.
OLESTATUS FARINTERNAL LeSetHostNames (lpobj, lpclientName, lpdocName)
LPOBJECT_LE lpobj;
LPSTR lpclientName;
LPSTR lpdocName;
{
OLESTATUS retval = OLE_ERROR_MEMORY;
if (lpobj->head.ctype != CT_EMBEDDED)
return OLE_ERROR_OBJECT;
PROBE_ASYNC (lpobj);
if ((retval = SetHostNamesHandle (lpobj, lpclientName, lpdocName))
!= OLE_OK)
return retval;
// If the server is connected poke the hostnames
InitAsyncCmd (lpobj, OLE_OTHER, NULL);
if ((retval = PokeHostNames (lpobj)) != OLE_WAIT_FOR_RELEASE)
CLEARASYNCCMD(lpobj);
return retval;
}
OLESTATUS FARINTERNAL LeSetTargetDevice (lpobj, hdata)
LPOBJECT_LE lpobj;
HANDLE hdata;
{
HANDLE hdup = NULL;
OLESTATUS retval;
PROBE_ASYNC (lpobj);
if (!hdata) {
// hdata == NULL means we should not make the target device sticky.
// This will give the flexibility to the client app. Note that this
// will not be effective till the next activation.
if (lpobj->htargetDevice) {
GlobalFree (lpobj->htargetDevice);
lpobj->htargetDevice = NULL;
}
return OLE_OK;
}
if(!(hdup = DuplicateGlobal (hdata, GMEM_MOVEABLE)))
return OLE_ERROR_MEMORY;
if (lpobj->htargetDevice)
GlobalFree (lpobj->htargetDevice);
lpobj->htargetDevice = hdup;
InitAsyncCmd (lpobj, OLE_OTHER, NULL);
if ((retval = PokeTargetDeviceInfo (lpobj)) != OLE_WAIT_FOR_RELEASE)
CLEARASYNCCMD(lpobj);
return retval;
}
OLESTATUS FARINTERNAL LeSetBounds(lpobj, lprcBounds)
LPOBJECT_LE lpobj;
LPRECT lprcBounds;
{
OLESTATUS retval = OLE_ERROR_MEMORY;
HANDLE hdata = NULL;
LPBOUNDSRECT lprc = NULL;
PROBE_ASYNC (lpobj);
if (lpobj->head.ctype != CT_EMBEDDED)
return OLE_ERROR_OBJECT;
if(!(hdata = GlobalAlloc (GMEM_MOVEABLE, (WORD)sizeof (BOUNDSRECT))))
return OLE_ERROR_MEMORY;
if (!(lprc = (LPBOUNDSRECT)GlobalLock (hdata)))
goto errrtn;
// Now set the data
lprc->defaultWidth = lprcBounds->right - lprcBounds->left;;
lprc->defaultHeight = -(lprcBounds->bottom - lprcBounds->top);
lprc->maxWidth = lprcBounds->right - lprcBounds->left;;
lprc->maxHeight = -(lprcBounds->bottom - lprcBounds->top);
GlobalUnlock (hdata);
if (lpobj->hdocDimensions)
GlobalFree (lpobj->hdocDimensions);
lpobj->hdocDimensions = hdata;
InitAsyncCmd (lpobj, OLE_OTHER, NULL);
if ((retval = PokeDocDimensions (lpobj)) != OLE_WAIT_FOR_RELEASE)
CLEARASYNCCMD(lpobj);
return retval;
errrtn:
if (lprc)
GlobalUnlock (hdata);
if (hdata)
GlobalFree (hdata);
return retval;
}
OLESTATUS FARINTERNAL LeSetData (lpobj, cfFormat, hData)
LPOBJECT_LE lpobj;
OLECLIPFORMAT cfFormat;
HANDLE hData;
{
OLESTATUS retVal = OLE_OK;
BOOL fKnown = FALSE;
PROBE_ASYNC (lpobj);
if ((cfFormat == cfObjectLink) || (cfFormat == cfOwnerLink))
return ChangeDocAndItem (lpobj, hData);
if (fKnown = (cfFormat && (cfFormat == ((WORD) GetPictType (lpobj))))) {
retVal = (*lpobj->lpobjPict->lpvtbl->ChangeData) (lpobj->lpobjPict,
hData, lpobj->head.lpclient, FALSE);
(*lpobj->lpobjPict->lpvtbl->GetData) (lpobj->lpobjPict,
cfFormat, &hData);
}
else if (fKnown = (cfFormat == cfNative)) {
retVal = LeChangeData (lpobj, hData, lpobj->head.lpclient, FALSE);
hData = lpobj->hnative;
}
if (retVal != OLE_OK)
return retVal;
if (fKnown)
ContextCallBack (lpobj, OLE_CHANGED);
if (!QueryOpen (lpobj) || IS_SVRCLOSING(lpobj)) {
if (!fKnown)
return OLE_ERROR_NOT_OPEN;
return OLE_OK;
}
// except for the following formats all the other data will be copied
// into DDEPOKE block. So there is no need to duplicate the data of the
// other formats
if ((cfFormat == CF_METAFILEPICT) || (cfFormat == CF_BITMAP)
|| (cfFormat == CF_DIB)) {
if (!(hData = DuplicateGDIdata (hData, cfFormat)))
return OLE_ERROR_MEMORY;
}
// *** The last parameter must be NULL, don't change it ***
InitAsyncCmd (lpobj, OLE_SETDATA, NULL);
if ((retVal = SendPokeData (lpobj, lpobj->item, hData, cfFormat))
!= OLE_WAIT_FOR_RELEASE)
CLEARASYNCCMD(lpobj);
return retVal;
}
OLESTATUS FARINTERNAL LeSetColorScheme (lpobj, lplogpal)
LPOBJECT_LE lpobj;
LPLOGPALETTE lplogpal;
{
HANDLE hdup = NULL;
DWORD cblogpal;
OLESTATUS retval;
LPBYTE lptemp;
lptemp = (LPBYTE) lplogpal;
if (lpobj->head.ctype != CT_EMBEDDED)
return OLE_ERROR_OBJECT;
PROBE_ASYNC (lpobj);
if (!lplogpal) {
// lplogpal == NULL means we should not make color scheme sticky.
// This will give the flexibility to the client app. Note that this
// will not be effective till next activation.
if (lpobj->hlogpal) {
GlobalFree (lpobj->hlogpal);
lpobj->hlogpal = NULL;
}
return OLE_OK;
}
FARPROBE_READ(lptemp + (cblogpal = 2*sizeof(WORD)));
cblogpal += ((sizeof(PALETTEENTRY) * lplogpal->palNumEntries) -1);
if (!FarCheckPointer (lptemp + cblogpal, READ_ACCESS))
return OLE_ERROR_PALETTE;
if (!(hdup = CopyData ((LPSTR) lplogpal, cblogpal)))
return OLE_ERROR_MEMORY;
if (lpobj->hlogpal)
GlobalFree (lpobj->hlogpal);
lpobj->hlogpal = hdup;
InitAsyncCmd (lpobj, OLE_OTHER, NULL);
if ((retval = PokeColorScheme (lpobj)) != OLE_WAIT_FOR_RELEASE)
CLEARASYNCCMD(lpobj);
return retval;
}
//PokeHostNames: Pokes hostname data to the server
OLESTATUS INTERNAL PokeHostNames (lpobj)
LPOBJECT_LE lpobj;
{
OLESTATUS retVal = OLE_ERROR_MEMORY;
// if the server is connectd then poke the host names
if (!QueryOpen (lpobj) || IS_SVRCLOSING(lpobj))
return OLE_OK;
if (!lpobj->hhostNames)
return OLE_OK;
aStdHostNames = GlobalAddAtom ("StdHostNames");
return SendPokeData (lpobj,aStdHostNames,lpobj->hhostNames,cfBinary);
}
OLESTATUS INTERNAL PokeTargetDeviceInfo (lpobj)
LPOBJECT_LE lpobj;
{
// if the server is connectd then poke the host names
if (!QueryOpen (lpobj) || IS_SVRCLOSING(lpobj))
return OLE_OK;
if (!lpobj->htargetDevice)
return OLE_OK;
aStdTargetDevice = GlobalAddAtom ("StdTargetDevice");
return SendPokeData (lpobj, aStdTargetDevice,
lpobj->htargetDevice,
cfBinary);
}
OLESTATUS INTERNAL PokeDocDimensions (lpobj)
LPOBJECT_LE lpobj;
{
// if the server is connectd then poke the host names
if (!QueryOpen (lpobj) || IS_SVRCLOSING(lpobj))
return OLE_OK;
if (!lpobj->hdocDimensions)
return OLE_OK;
aStdDocDimensions = GlobalAddAtom ("StdDocDimensions");
return SendPokeData (lpobj, aStdDocDimensions,
lpobj->hdocDimensions,
cfBinary);
}
OLESTATUS INTERNAL PokeColorScheme (lpobj)
LPOBJECT_LE lpobj;
{
// if the server is connected then poke the palette info
if (!QueryOpen (lpobj) || IS_SVRCLOSING(lpobj))
return OLE_OK;
if (!lpobj->hlogpal)
return OLE_OK;
aStdColorScheme = GlobalAddAtom ("StdColorScheme");
return SendPokeData (lpobj, aStdColorScheme,
lpobj->hlogpal,
cfBinary);
}
OLESTATUS INTERNAL SendPokeData (lpobj, aItem, hdata, cfFormat)
LPOBJECT_LE lpobj;
ATOM aItem;
HANDLE hdata;
OLECLIPFORMAT cfFormat;
{
HANDLE hdde = NULL;
DDEPOKE FAR * lpdde = NULL;
LPSTR lpdst = NULL;
LPSTR lpsrc = NULL;
OLESTATUS retval = OLE_ERROR_MEMORY;
DWORD dwSize = NULL;
PEDIT_DDE pedit;
BOOL bGDIdata = FALSE;
pedit = lpobj->pDocEdit;
// If it is GDI data then we can stuff the handle into POKE block.
// Otherwise we have to copy the data into DDE data block. There
// is a special case with old MSDraw, that will be handled by
// the routine CanPutHandleInPokeBlock()
if (!(bGDIdata = CanPutHandleInPokeBlock (lpobj, cfFormat))) {
if (!(dwSize = GlobalSize (hdata)))
return OLE_ERROR_MEMORY;
if (!(lpsrc = (LPSTR) GlobalLock (hdata)))
return OLE_ERROR_MEMORY;
GlobalUnlock (hdata);
}
// Now allocate the DDE data block
if (!(hdde = GlobalAlloc (GMEM_DDESHARE | GMEM_ZEROINIT,
(dwSize + sizeof(DDEPOKE) - sizeof(BYTE) + sizeof(HANDLE)))))
goto errRtn;
if (!(lpdde = (DDEPOKE FAR *)GlobalLock (hdde)))
goto errRtn;
GlobalUnlock (hdde);
// !!! We may want to set it TRUE, for performance reasons. But it
// will require some rework on the server side
lpdde->fRelease = 0;
lpdde->cfFormat = cfFormat;
if (bGDIdata)
*(LPHANDLE)lpdde->Value = hdata;
else {
lpdst = (LPSTR)lpdde->Value;
UtilMemCpy (lpdst, lpsrc, dwSize);
// For the CF_METAFILEPICT format, we would come here only if we are
// dealing with the old version of MSDraw. In that case we want to
// free the handle to METAFILEPICT strcuture, because we've already
// copied its contents to DDEPOKE structure.
// Note that that the old MSDraw expects the contents of METAFILEPICT
// structure to be part of DDEPOKE, rather than the handle to it.
if (cfFormat == CF_METAFILEPICT) {
GlobalFree (hdata);
hdata = NULL;
}
}
// *** From here onwards if there is an error call FreePokeData(), don't
// jump to errRtn
aItem = DuplicateAtom (aItem);
ASSERT(pedit->hData == NULL, "Poke data is not null");
pedit->hData = hdde;
if (!PostMessageToServer (pedit, WM_DDE_POKE, MAKELONG (hdde, aItem))) {
if (aItem)
GlobalDeleteAtom (aItem);
FreePokeData (lpobj, pedit);
return (lpobj->subErr = OLE_ERROR_COMM);
}
#ifdef FIREWALLS
ASSERT (!pedit->bTerminating, "trying to post while termination")
ASSERT (pedit->awaitAck == NULL, "Trying to Post msg while waiting for ack")
#endif
if (lpobj->asyncCmd == OLE_NONE)
lpobj->asyncCmd = OLE_OTHER;
lpobj->bAsync = TRUE;
pedit->awaitAck = AA_POKE;
// !!! after poke of the hostnames etc. we are not processing error.,
// Data is freed after the Poke is acknowledged. OLE_RELEASE will be sent
// to when ACK comes.
return OLE_WAIT_FOR_RELEASE;
errRtn:
if (hdata)
FreeGDIdata (hdata, cfFormat);
if (hdde)
GlobalFree (hdde);
pedit->hData = NULL;
return (lpobj->subErr = retval);
}
// FreePokeData: Frees the poked data.
void INTERNAL FreePokeData (lpobj, pedit)
LPOBJECT_LE lpobj;
PEDIT_DDE pedit;
{
DDEPOKE FAR * lpdde;
#ifdef FIREWALLS
ASSERT (pedit->hData, "Poke data handle is null");
#endif
if (lpdde = (DDEPOKE FAR *) GlobalLock (pedit->hData)) {
GlobalUnlock (pedit->hData);
// The old version of MSDraw expects the contents of METAFILEPICT
// structure to be part of DDEPOKE, rather than the handle to it.
if (!lpobj->bOleServer && (lpobj->app == aMSDraw)
&& (lpdde->cfFormat == CF_METAFILEPICT)) {
DeleteMetaFile (((LPMETAFILEPICT) ((LPSTR) &lpdde->Value))->hMF);
}
else {
FreeGDIdata (*(LPHANDLE)lpdde->Value, lpdde->cfFormat);
}
}
GlobalFree (pedit->hData);
pedit->hData = NULL;
}
BOOL INTERNAL SendSrvrMainCmd (lpobj, lptemplate)
LPOBJECT_LE lpobj;
LPSTR lptemplate;
{
WORD size;
WORD len;
OLESTATUS retval;
int cmd;
HANDLE hInst = NULL;
LPSTR lpdata= NULL;
HANDLE hdata = NULL;
BOOL bLaunch = TRUE;
Puts("Launch App and Send Sys command");
#ifdef FIREWALLS
ASSERT (lpobj->aServer, "Serevr is NULL");
#endif
if (!lpobj->aServer) {
retval = OLE_ERROR_REGISTRATION;
goto errRtn;
}
if (!lpobj->bOldLink) {
bLaunch = !(lpobj->fCmd & ACT_NOLAUNCH);
cmd = lpobj->fCmd & LN_MASK;
}
if (cmd == LN_LNKACT) {
// take care of network based document
char cDrive = lpobj->cDrive;
if ((retval = CheckNetDrive (lpobj, POPUP_NETDLG)) != OLE_OK) {
lpobj->cDrive = cDrive;
goto errRtn;
}
if (cDrive != lpobj->cDrive)
ContextCallBack (lpobj, OLE_RENAMED);
}
if (!InitSrvrConv (lpobj, hInst)) {
if (!bLaunch)
goto errRtn;
if (!(hInst = LeLaunchApp (lpobj))) {
// We failed to launch the app. If it is a linked object, see
// whether the docname is valid for new servers. We wouldn't
// have given the doc name on the command line for the old
// servers. So, there is no point in checking for file existance
// in that case.
if (lpobj->bOleServer && (lpobj->bOldLink || (cmd == LN_LNKACT))){
if ((retval = FileExists (lpobj)) != OLE_OK)
goto errRtn;
}
retval = OLE_ERROR_LAUNCH;
goto errRtn;
}
if (lpobj->bOldLink)
return TRUE;
if (lpobj->bOleServer && (cmd == LN_LNKACT)) {
// We are not using any data blocks if the object is old link.
// we launched with docname, and don't have to establish system
// level and also we don't have to send exec strings.
// for non-ole servers like excel, we do want to connect at
// the system level, so that we can send "StdOpen". We also
// have to send "StdExit" for the server to exit in the
// invisible launch case.
return TRUE;
}
retval = OLE_ERROR_COMM;
if(!InitSrvrConv (lpobj, hInst))
goto errRtn;
#ifdef OLD
if (!lpobj->bOleServer && (cmd == LN_LNKACT))
return TRUE;
#endif
}
if (!lpobj->bOldLink) {
cmd = lpobj->fCmd & LN_MASK;
len = lstrlen (srvrSysCmd[cmd >> LN_SHIFT]);
// for template and new, add the class name also
if (cmd == LN_NEW || cmd == LN_TEMPLATE)
len += GlobalGetAtomLen (lpobj->app);
// Now add the document length.
len += GlobalGetAtomLen (lpobj->topic);
// add the length of the template name
if (lptemplate)
len += lstrlen (lptemplate);
// now add the fudge factor for the Quotes etc.
len += LN_FUDGE;
// allocate the buffer and set the command.
hdata = GlobalAlloc (GMEM_DDESHARE, size = len);
retval = OLE_ERROR_MEMORY;
SETERRHINT(lpobj, OLE_ERROR_MEMORY);
if (hdata == NULL || (lpdata = (LPSTR)GlobalLock (hdata)) == NULL)
goto errRtn;
}
lstrcpy (lpdata, (LPSTR)"["); // [
lstrcat (lpdata, srvrSysCmd[cmd >> LN_SHIFT]); // [Std....
lstrcat (lpdata, "(\""); // [std...("
if (cmd == LN_NEW || cmd == LN_TEMPLATE) {
len = lstrlen (lpdata);
GlobalGetAtomName (lpobj->app, (LPSTR)lpdata + len, size - len);
// [std...("class
lstrcat (lpdata, "\",\""); // [std...("class", "
}
len = lstrlen (lpdata);
// now get the topic name.
GlobalGetAtomName (lpobj->topic, lpdata + len, (WORD)size - len);
// [std...("class","doc
if (lptemplate) {
lstrcat (lpdata, "\",\""); // [std...("class","doc","
lstrcat (lpdata, lptemplate); // [std...("class","doc","temp
}
lstrcat (lpdata, "\")]"); // [std...("class","doc","temp")]
GlobalUnlock (hdata);
// !!!optimize with mapping.
SETERRHINT(lpobj, (OLE_ERROR_TEMPLATE + (cmd >> LN_SHIFT)));
return SrvrExecute (lpobj, hdata);
errRtn:
if (lpdata)
GlobalUnlock (hdata);
if (hdata)
GlobalFree (hdata);
lpobj->subErr = retval;
return FALSE;
}
// ExtendAtom: Create a new atom, which is the old one plus extension
ATOM INTERNAL ExtendAtom (lpobj, item)
LPOBJECT_LE lpobj;
ATOM item;
{
char buffer[MAX_ATOM+1];
LPSTR lpext;
Puts("ExtendAtom");
buffer[0] = 0;
if (item)
GlobalGetAtomName (item, buffer, MAX_ATOM);
switch (lpobj->optUpdate) {
case oleupdate_always:
lpext = (LPSTR)"";
break;
case oleupdate_onsave:
lpext = (LPSTR)"/Save";
break;
case oleupdate_onclose:
lpext = (LPSTR)"/Close";
break;
default:
ASSERT (FALSE, "on call options not expected here");
break;
}
lstrcat (buffer, lpext);
if (buffer[0])
return GlobalAddAtom (buffer);
else
return NULL;
}
BOOL INTERNAL CreatePictObject (lhclientdoc, lpobjname, lpobj, optRender, cfFormat, lpclass)
LHCLIENTDOC lhclientdoc;
LPSTR lpobjname;
LPOBJECT_LE lpobj;
OLEOPT_RENDER optRender;
OLECLIPFORMAT cfFormat;
LPSTR lpclass;
{
LPOLEOBJECT lpPictObj = NULL;
ATOM aClass;
lpobj->lpobjPict = NULL;
if (optRender == olerender_format) {
switch (cfFormat) {
case NULL:
return FALSE;
case CF_METAFILEPICT:
if (!(lpPictObj = (LPOLEOBJECT) MfCreateBlank (lhclientdoc,
lpobjname, CT_PICTURE)))
return FALSE;
break;
case CF_DIB:
if (!(lpPictObj = (LPOLEOBJECT) DibCreateBlank (lhclientdoc,
lpobjname, CT_PICTURE)))
return FALSE;
break;
case CF_BITMAP:
if (!(lpPictObj = (LPOLEOBJECT) BmCreateBlank (lhclientdoc,
lpobjname, CT_PICTURE)))
return FALSE;
break;
default:
aClass = GlobalAddAtom (lpclass);
if (!(lpPictObj = (LPOLEOBJECT) GenCreateBlank (lhclientdoc,
lpobjname, CT_PICTURE, aClass)))
return FALSE;
((LPOBJECT_GEN)lpPictObj)->cfFormat = cfFormat;
break;
}
}
else if (optRender == olerender_draw) {
if (!(lpPictObj = (LPOLEOBJECT) MfCreateBlank (lhclientdoc,
lpobjname, CT_PICTURE)))
return FALSE;
#ifdef LATER
if (AdviseOn (lpobj, (cfFormat = CF_METAFILEPICT), NULL))
lpPictObj = (LPOLEOBJECT) MfCreateBlank (lhclientdoc,
lpobjname, CT_PICTURE);
// !!! for the time being take assume we need to get metafile.
else if (AdviseOn (lpobj, (cfFormat = CF_DIB), NULL))
lpPictObj = (LPOLEOBJECT) DibCreateBlank (lhclientdoc,
lpobjname, CT_PICTURE);
else if (AdviseOn (lpobj, (cfFormat = CF_BITMAP), NULL))
lpPictObj = (LPOLEOBJECT) BmCreateBlank (lhclientdoc,
lpobjname, CT_PICTURE);
else
goto errPict;
#endif
}
else
return (optRender == olerender_none);
if (lpobj->lpobjPict = lpPictObj)
lpobj->lpobjPict->lpParent = (LPOLEOBJECT) lpobj;
return TRUE;
}
OLESTATUS LnkChangeLnk (lpobj)
LPOBJECT_LE lpobj;
{
switch (lpobj->subRtn) {
case 0:
TermDocConv (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 1:
// delete the edit block
DeleteDocEdit (lpobj);
TermSrvrConv (lpobj);
WAIT_FOR_ASYNC_MSG (lpobj);
case 2:
// Do not set any errors, just delete the object.
// delete the server edit block
DeleteSrvrEdit (lpobj);
// now try to activate the new link.
SKIP_TO (!InitDocConv (lpobj, !POPUP_NETDLG), step3);
lpobj->fCmd = LN_LNKACT | ACT_ADVISE | ACT_REQUEST;
InitAsyncCmd (lpobj, OLE_SETDATA, LNKOPENUPDATE);
return LnkOpenUpdate (lpobj);
case 3:
step3:
return EndAsyncCmd (lpobj);
default:
DEBUG_OUT ("Unexpected subroutine", 0);
return OLE_ERROR_GENERIC;
}
}
OLESTATUS INTERNAL ChangeDocAndItem (lpobj, hinfo)
LPOBJECT_LE lpobj;
HANDLE hinfo;
{
LPSTR lpinfo;
ATOM aNewTopic, aNewItem = NULL, aOldTopic;
OLESTATUS retVal = OLE_ERROR_BLANK;
PROBE_SVRCLOSING(lpobj);
if (!(lpinfo = GlobalLock (hinfo)))
return OLE_ERROR_MEMORY;
lpinfo += lstrlen (lpinfo) + 1;
aNewTopic = GlobalAddAtom (lpinfo);
lpinfo += lstrlen (lpinfo) + 1;
if (*lpinfo)
aNewItem = GlobalAddAtom (lpinfo);
if (!aNewTopic && (lpobj->head.ctype == CT_LINK))
goto errRtn;
aOldTopic = lpobj->topic;
lpobj->topic = aNewTopic;
if ((retVal = SetNetName (lpobj)) != OLE_OK) {
if (lpobj->topic)
GlobalDeleteAtom (lpobj->topic);
lpobj->topic = aOldTopic;
goto errRtn;
}
if (aOldTopic)
GlobalDeleteAtom (aOldTopic);
if (lpobj->item)
GlobalDeleteAtom (lpobj->item);
lpobj->item = aNewItem;
// As the atoms have already changed, lpobj->hLink becomes irrelevant.
if (lpobj->hLink) {
GlobalFree (lpobj->hLink);
lpobj->hLink = NULL;
}
GlobalUnlock(hinfo);
// Now disconnect the old link and try to connect to the new one.
lpobj->fCmd = 0;
InitAsyncCmd (lpobj, OLE_SETDATA, LNKCHANGELNK);
return LnkChangeLnk (lpobj);
errRtn:
if (aNewItem)
GlobalDeleteAtom (aNewItem);
GlobalUnlock (hinfo);
return retVal;
}
BOOL QueryUnlaunch (lpobj)
LPOBJECT_LE lpobj;
{
if (!(lpobj->fCmd & ACT_UNLAUNCH))
return FALSE;
// only if we loaded the app
if (lpobj->pSysEdit && lpobj->pSysEdit->hClient && lpobj->pSysEdit->hInst)
return TRUE;
return FALSE;
}
BOOL QueryClose (lpobj)
LPOBJECT_LE lpobj;
{
if (!((lpobj->fCmd & ACT_UNLAUNCH) ||
(lpobj->head.ctype == CT_EMBEDDED)))
return FALSE;
// only if we loaded the documnet
if (lpobj->pSysEdit && lpobj->pSysEdit->hClient)
return TRUE;
return FALSE;
}
OLESTATUS INTERNAL SetHostNamesHandle (lpobj, lpclientName, lpdocName)
LPOBJECT_LE lpobj;
LPSTR lpclientName;
LPSTR lpdocName;
{
WORD cbClient;
WORD size;
HANDLE hhostNames = NULL;
LPHOSTNAMES lphostNames = NULL;
LPSTR lpdata;
// 4 bytes is for the two offsets
size = (cbClient = lstrlen(lpclientName)+1) + (lstrlen(lpdocName)+1) + 4;
if ((hhostNames = GlobalAlloc (GMEM_MOVEABLE, (DWORD) size))
== NULL)
goto errRtn;
if ((lphostNames = (LPHOSTNAMES)GlobalLock (hhostNames)) == NULL)
goto errRtn;
lphostNames->clientNameOffset = 0;
lphostNames->documentNameOffset = cbClient;
lpdata = (LPSTR)lphostNames->data;
lstrcpy (lpdata, lpclientName);
lstrcpy (lpdata + cbClient, lpdocName);
if (lpobj->hhostNames)
GlobalFree ( lpobj->hhostNames);
GlobalUnlock (hhostNames);
lpobj->hhostNames = hhostNames;
return OLE_OK;
errRtn:
if (lphostNames)
GlobalUnlock (hhostNames);
if (hhostNames)
GlobalFree (hhostNames);
return OLE_ERROR_MEMORY;
}
#if 0
OLESTATUS FARINTERNAL LeAbort (lpobj)
LPOBJECT_LE lpobj;
{
BOOL bAbort = FALSE;
PEDIT_DDE pedit;
// check whether the any transaction pending for
// the document level.
// channel open
// any transaction pending.
// and we are not in terminate mode.
if ((pedit = lpobj->pDocEdit) && pedit->hServer &&
pedit->awaitAck && !pedit->bTerminating) {
pedit->bAbort = bAbort = TRUE;
// delete any data we need to delete. Ricght now
// we kill only the timer. We can not delete any
// since the server could potentially look at the data.
DeleteAbortData (lpobj, pedit);
}
if ((pedit = lpobj->pSysEdit) && pedit->hServer &&
pedit->awaitAck && !pedit->bTerminating) {
pedit->bAbort = bAbort = TRUE;
DeleteAbortData (lpobj, pedit);
}
if (!bAbort)
return OLE_OK;
// Now send the EndAsync
lpobj->mainErr = OLE_ERROR_ABORT;
EndAsyncCmd (lpobj);
return OLE_OK;
}
#endif
OLESTATUS FARINTERNAL ProbeAsync(lpobj)
LPOBJECT_LE lpobj;
{
if (lpobj->asyncCmd == OLE_NONE)
return OLE_OK;
if (!IsServerValid (lpobj)) {
// Now send the EndAsync
lpobj->mainErr = OLE_ERROR_TASK;
EndAsyncCmd (lpobj);
return OLE_OK;
}
return OLE_BUSY;
}
BOOL INTERNAL IsWindowValid (hwnd)
HWND hwnd;
{
#define TASK_OFFSET 0x00FA
LPSTR lptask;
HANDLE htask;
if (!IsWindow (hwnd))
return FALSE;
if (bWLO)
return TRUE;
// now get the task handle and find out it is valid.
htask = GetWindowTask (hwnd);
if ((wWinVer == 0x0003) || !lpfnIsTask) {
lptask = (LPSTR)(MAKELONG (TASK_OFFSET, htask));
if (!FarCheckPointer(lptask, READ_ACCESS))
return FALSE;
// now check for the signature bytes of task block in kernel
if (*lptask++ == 'T' && *lptask == 'D')
return TRUE;
}
else {
// From win31 onwards the API IsTask can be used for task validation
if ((*lpfnIsTask)(htask))
return TRUE;
}
return FALSE;
}
BOOL INTERNAL IsServerValid (lpobj)
LPOBJECT_LE lpobj;
{
MSG msg;
BOOL retval = FALSE;
if (lpobj->pDocEdit && lpobj->pDocEdit->hServer) {
retval = TRUE;
if (!IsWindowValid (lpobj->pDocEdit->hServer)) {
if (!PeekMessage ((LPMSG)&msg, lpobj->pDocEdit->hClient, WM_DDE_TERMINATE, WM_DDE_TERMINATE,
PM_NOREMOVE | PM_NOYIELD)){
#ifdef FIREWALLS
ASSERT (FALSE, "Server truely died");
#endif
return FALSE;
}
}
}
if (lpobj->pSysEdit && lpobj->pSysEdit->hServer) {
retval = TRUE;
if (!IsWindowValid (lpobj->pSysEdit->hServer)) {
if (!PeekMessage ((LPMSG)&msg, lpobj->pSysEdit->hClient, WM_DDE_TERMINATE, WM_DDE_TERMINATE,
PM_NOREMOVE | PM_NOYIELD)){
#ifdef FIREWALLS
ASSERT (FALSE, "Server truely died");
#endif
return FALSE;
}
}
}
return retval;
}
OLESTATUS FARINTERNAL LeExecute (lpobj, hCmds, wReserve)
LPOBJECT_LE lpobj;
HANDLE hCmds;
WORD wReserve;
{
// Assumes all the creates are in order
PROBE_CREATE_ASYNC(lpobj);
PROBE_SVRCLOSING(lpobj);
if (!(lpobj = (*lpobj->head.lpvtbl->QueryProtocol) (lpobj,
PROTOCOL_EXECUTE)))
return OLE_ERROR_PROTOCOL;
if (!QueryOpen (lpobj))
return OLE_ERROR_NOT_OPEN;
if (!(hCmds = DuplicateGlobal (hCmds, GMEM_MOVEABLE|GMEM_DDESHARE)))
return OLE_ERROR_MEMORY;
InitAsyncCmd (lpobj, OLE_OTHER, NULL);
SETERRHINT(lpobj, OLE_ERROR_COMMAND);
if (DocExecute(lpobj, hCmds))
return OLE_WAIT_FOR_RELEASE;
else
return OLE_ERROR_COMMAND;
}
void INTERNAL FreeGDIdata (hData, cfFormat)
HANDLE hData;
OLECLIPFORMAT cfFormat;
{
if (cfFormat == CF_METAFILEPICT) {
LPMETAFILEPICT lpMfp;
if (lpMfp = (LPMETAFILEPICT) GlobalLock (hData)) {
GlobalUnlock (hData);
DeleteMetaFile (lpMfp->hMF);
}
GlobalFree (hData);
}
else if (cfFormat == CF_BITMAP)
DeleteObject (hData);
else if (cfFormat == CF_DIB)
GlobalFree (hData);
}
// This routine figures out whether the handle to data block can be copied
// to DDEPOKE block rather than the contents of the handle
BOOL INTERNAL CanPutHandleInPokeBlock (lpobj, cfFormat)
LPOBJECT_LE lpobj;
OLECLIPFORMAT cfFormat;
{
if (cfFormat == CF_BITMAP || cfFormat == CF_DIB)
return TRUE;
if (cfFormat == CF_METAFILEPICT) {
// The old version of MSDraw expects the contents of METAFILEPICT
// structure to be part of DDEPOKE, rather than the handle to it.
if (!lpobj->bOleServer && lpobj->app == aMSDraw)
return FALSE;
return TRUE;
}
return FALSE;
}