/****************************** Module Header ******************************\ * Module Name: LEDDE.C * * Purpose: ????? * * Created: 1990 * * Copyright (c) 1990, 1991 Microsoft Corporation * * History: * Raor, Srinik (../../1990,91) Designed and coded * curts created portable version for win16/32 * \***************************************************************************/ #include #include "dde.h" #include "dll.h" #include "pict.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 ( LPOLEOBJECT lpoleobj, UINT verb, BOOL fShow, BOOL fActivate ){ LPOBJECT_LE lpobj = (LPOBJECT_LE)lpoleobj; 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 ( LPOLEOBJECT lpoleobj, BOOL fActivate ){ LPOBJECT_LE lpobj = (LPOBJECT_LE)lpoleobj; UNREFERENCED_PARAMETER(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 (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 (LPOBJECT_LE lpobj) { UINT len; UINT size; LPSTR lpdata = NULL; HANDLE hdata = NULL; BOOL bShow; lpobj->subErr = OLE_OK; if (lpobj->verb == OLEVERB_CONNECT) { lpobj->verb = 0; 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 (LPOLEOBJECT lpoleobj) { LPOBJECT_LE lpobj = (LPOBJECT_LE)lpoleobj; 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 ( LPOLEOBJECT lpoleobj, UINT verb, BOOL fShow, BOOL fActivate, HWND hWnd, OLE_CONST RECT FAR* lprc ){ LPOBJECT_LE lpobj = (LPOBJECT_LE)lpoleobj; lpobj->verb = verb; if (lpobj->head.ctype == CT_EMBEDDED) return EmbOpen (lpobj, fShow, fActivate, hWnd, (LPRECT)lprc); #ifdef FIREWALLS ASSERT (lpobj->head.ctype == CT_LINK, "unknown object"); #endif return LnkOpen (lpobj, fShow, fActivate, hWnd, (LPRECT)lprc); } OLESTATUS FARINTERNAL LeUpdate ( LPOLEOBJECT lpoleobj ){ LPOBJECT_LE lpobj = (LPOBJECT_LE)lpoleobj; 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 ( LPOBJECT_LE lpobj, BOOL fShow, BOOL fActivate, HWND hWnd, LPRECT lprc ){ UNREFERENCED_PARAMETER(hWnd); UNREFERENCED_PARAMETER(lprc); PROBE_ASYNC (lpobj); PROBE_SVRCLOSING(lpobj); if(QueryOpen (lpobj)) return LeDoVerb ((LPOLEOBJECT)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 (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 (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), step13); 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: // see if server will positive ack a metafile advise if enhmetafile // advise failed if (ChangeEMFtoMFneeded(lpobj,aSave)) WAIT_FOR_ASYNC_MSG (lpobj); case 10: if (!lpobj->subErr && lpobj->bNewPict) if (!ChangeEMFtoMF(lpobj)) goto errRtn; // 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 11: if (ProcessErr(lpobj)) goto errRtn; AdvisePict (lpobj, aClose); WAIT_FOR_ASYNC_MSG (lpobj); case 12: if (ChangeEMFtoMFneeded(lpobj,aClose)) WAIT_FOR_ASYNC_MSG (lpobj); case 13: step13: SETSTEP (lpobj, 13); if (ProcessErr(lpobj)) goto errRtn; if (lpobj->bNewPict && !ChangeEMFtoMF(lpobj)) goto errRtn; SKIP_TO (!(lpobj->fCmd & ACT_REQUEST), step15); // 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 14: if (ProcessErr(lpobj)) goto errRtn; lpobj->pDocEdit->bCallLater = FALSE; RequestPict (lpobj); WAIT_FOR_ASYNC_MSG (lpobj); case 15: step15: SETSTEP(lpobj, 15); if (ProcessErr(lpobj)) goto errRtn; SendStdShow (lpobj); WAIT_FOR_ASYNC_MSG (lpobj); case 16: if (ProcessErr(lpobj)) goto errRtn; SKIP_TO ((lpobj->fCmd & ACT_UNLAUNCH), step17); return EndAsyncCmd (lpobj); case 17: errRtn: step17: 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 ( LPOBJECT_LE lpobj, BOOL fShow, BOOL fActivate, HWND hWnd, LPRECT lprc ){ UNREFERENCED_PARAMETER(hWnd); UNREFERENCED_PARAMETER(lprc); PROBE_ASYNC (lpobj); PROBE_SVRCLOSING(lpobj); if(QueryOpen (lpobj)) return LeDoVerb ((LPOLEOBJECT)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 (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 (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), step7); SKIP_TO (!(lpobj->fCmd & ACT_NATIVE), step4); AdviseOn (lpobj, cfNative, (ATOM)0); WAIT_FOR_ASYNC_MSG (lpobj); case 4: step4: SETSTEP (lpobj, 4); if (ProcessErr (lpobj)) goto errRtn; AdvisePict (lpobj, (ATOM)0); WAIT_FOR_ASYNC_MSG (lpobj); case 5: // see if server will positive ack a metafile advise if enhmetafile // advise failed if (ChangeEMFtoMFneeded(lpobj,(ATOM)0)) WAIT_FOR_ASYNC_MSG (lpobj); case 6: if (ProcessErr (lpobj)) goto errRtn; if (lpobj->bNewPict && !ChangeEMFtoMF(lpobj)) goto errRtn; // Now send advise for renaming the documnet. AdviseOn (lpobj, cfBinary, aStdDocName); WAIT_FOR_ASYNC_MSG (lpobj); case 7: step7: // if name advise fails ignore it SETSTEP (lpobj, 7); CLEAR_STEP_ERROR (lpobj); SKIP_TO (!(lpobj->fCmd & ACT_REQUEST), step9); SKIP_TO (!(lpobj->fCmd & ACT_NATIVE), step8); // 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 8: step8: SETSTEP (lpobj, 8); if (ProcessErr (lpobj)) goto errRtn; lpobj->pDocEdit->bCallLater = FALSE; RequestPict (lpobj); WAIT_FOR_ASYNC_MSG (lpobj); case 9: step9: if (lpobj->subErr && CF_ENHMETAFILE == GetPictType(lpobj)) { CLEAR_STEP_ERROR (lpobj); if (!ChangeEMFtoMF(lpobj)) goto errRtn; RequestPict (lpobj); WAIT_FOR_ASYNC_MSG (lpobj); } else if (ProcessErr (lpobj)) goto errRtn; SETSTEP (lpobj, 9); SKIP_TO (!(lpobj->fCmd & ACT_TERMDOC), step11); // terminate the document conversataion. TermDocConv (lpobj); WAIT_FOR_ASYNC_MSG (lpobj); case 10: if (ProcessErr (lpobj)) goto errRtn; // delete the server edit block DeleteDocEdit (lpobj); SKIP_TO ((lpobj->fCmd & ACT_UNLAUNCH), step15); return EndAsyncCmd (lpobj); case 11: step11: SETSTEP (lpobj, 11); if (ProcessErr (lpobj)) goto errRtn; SKIP_TO (!(lpobj->fCmd & ACT_TERMSRVR), step13); // terminate the server conversataion. TermSrvrConv (lpobj); WAIT_FOR_ASYNC_MSG (lpobj); case 12: if (ProcessErr (lpobj)) goto errRtn; // delete the server edit block DeleteSrvrEdit (lpobj); return EndAsyncCmd (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 EmbLnkClose (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 ( LPOLEOBJECT lpoleobj ){ LPOBJECT_LE lpobj = (LPOBJECT_LE)lpoleobj; 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 (LPOLEOBJECT lpoleobj) { LPOBJECT_LE lpobj = (LPOBJECT_LE)lpoleobj; // 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 (LPOBJECT_LE lpobj) { SETERRHINT(lpobj, OLE_ERROR_POKE_NATIVE); return SendPokeData ( lpobj, lpobj->item, lpobj->hnative, cfNative ); } BOOL INTERNAL PostMessageToServer ( PEDIT_DDE pedit, UINT msg, LPARAM 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, (WPARAM)pedit->hClient, lparam) == FALSE) Yield (); else return TRUE; } } return FALSE; } OLESTATUS FARINTERNAL LeCreateFromTemplate ( 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 ( LPOLECLIENT lpclient, LPSTR lpclass, 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 ( LPOLECLIENT lpclient, LPSTR lpclass, LPOLEOBJECT FAR * lplpoleobject, OLEOPT_RENDER optRender, OLECLIPFORMAT cfFormat, UINT lnType, LPSTR lptemplate, LHCLIENTDOC lhclientdoc, LPSTR lpobjname ){ OLESTATUS retval = OLE_ERROR_MEMORY; LPOBJECT_LE lpobj = NULL; ATOM aServer; char chVerb [32]; 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 = (ATOM)0; lpobj->bOleServer = QueryVerb (lpobj, 0, (LPSTR)&chVerb, 32); 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 = (UINT)(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 ( LPOLECLIENT lpclient, LPCSTR 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; UINT wFlags = 0; char chVerb[32]; 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, 32); 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 = (UINT)(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 ( LPOLECLIENT lpclient, LPSTR lpclass, 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 [32]; 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 = (ATOM)0; lpobj->bOleServer = QueryVerb (lpobj, 0, (LPSTR)&chVerb, 32); 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 ( LPOLEOBJECT lpoleobj, OLEOPT_UPDATE options ){ LPOBJECT_LE lpobj = (LPOBJECT_LE)lpoleobj; 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 (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, (ATOM)0); 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 ( LPOBJECT_LE lpobj, ATOM aAdvItem ){ int cftype; if (cftype = GetPictType (lpobj)) AdviseOn (lpobj, cftype, aAdvItem); } //UnAdvisePict: Sends unadvise for pict data void INTERNAL UnAdvisePict (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 (LPOBJECT_LE lpobj) { if (lpobj->lpobjPict) return (int)(*lpobj->lpobjPict->lpvtbl->EnumFormats) (lpobj->lpobjPict, 0); return 0; } // AdviseOn : Sends advise for a given picture type // Send advise only if the advise options is not on call. void INTERNAL AdviseOn ( LPOBJECT_LE lpobj, int cftype, ATOM advItem ){ HANDLE hopt = NULL; DDEADVISE FAR *lpopt = NULL; ATOM item = (ATOM)0; PEDIT_DDE pedit; OLESTATUS retval= OLE_ERROR_MEMORY; LPARAM lParamNew; 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 = (WORD)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, lParamNew = MAKE_DDE_LPARAM(WM_DDE_ADVISE, (UINT_PTR)hopt, item))) { DDEFREE(WM_DDE_ADVISE,lParamNew); 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 ( LPOBJECT_LE lpobj, int cftype ){ ATOM item; PEDIT_DDE pedit; UNREFERENCED_PARAMETER(cftype); 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 ( LPOBJECT_LE lpobj, int cftype ){ ATOM item = (ATOM)0; 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 (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 ( LPOLEOBJECT lpoleobj, OLE_LPCSTR lpclientName, OLE_LPCSTR lpdocName ){ LPOBJECT_LE lpobj = (LPOBJECT_LE)lpoleobj; OLESTATUS retval = OLE_ERROR_MEMORY; if (lpobj->head.ctype != CT_EMBEDDED) return OLE_ERROR_OBJECT; PROBE_ASYNC (lpobj); if ((retval = SetHostNamesHandle (lpobj, (LPSTR)lpclientName, (LPSTR)lpdocName)) != OLE_OK) return retval; // If the server is connected poke the hostnames InitAsyncCmd (lpobj, OLE_OTHER, 0); if ((retval = PokeHostNames (lpobj)) != OLE_WAIT_FOR_RELEASE) CLEARASYNCCMD(lpobj); return retval; } OLESTATUS FARINTERNAL LeSetTargetDevice ( LPOLEOBJECT lpoleobj, HANDLE hdata ){ LPOBJECT_LE lpobj = (LPOBJECT_LE)lpoleobj; HANDLE hdup = NULL; OLESTATUS retval; PROBE_ASYNC (lpobj); if(!(hdup = DuplicateGlobal (hdata, GMEM_MOVEABLE))) return OLE_ERROR_MEMORY; if (lpobj->htargetDevice) GlobalFree (lpobj->htargetDevice); lpobj->htargetDevice = hdup; InitAsyncCmd (lpobj, OLE_OTHER, 0); if ((retval = PokeTargetDeviceInfo (lpobj)) != OLE_WAIT_FOR_RELEASE) CLEARASYNCCMD(lpobj); return retval; } OLESTATUS FARINTERNAL LeSetBounds( LPOLEOBJECT lpoleobj, OLE_CONST RECT FAR* lprcBounds ){ LPOBJECT_LE lpobj = (LPOBJECT_LE)lpoleobj; 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, (UINT)sizeof (BOUNDSRECT)))) return OLE_ERROR_MEMORY; if (!(lprc = (LPBOUNDSRECT)GlobalLock (hdata))) goto errrtn; // // Now set the data // // Note: The 16-bit implementations are expecting USHORT sized values // Actually, they are expected a 16-bit RECT which is 4 ints. Why we // are sending a LPBOUNDSRECT instead of a 16-bit RECT is a mystery, // but thats the backward compatible story. // lprc->defaultWidth = (USHORT) (lprcBounds->right - lprcBounds->left); lprc->defaultHeight = (USHORT) -(lprcBounds->bottom - lprcBounds->top); lprc->maxWidth = (USHORT) (lprcBounds->right - lprcBounds->left); lprc->maxHeight = (USHORT) -(lprcBounds->bottom - lprcBounds->top); GlobalUnlock (hdata); if (lpobj->hdocDimensions) GlobalFree (lpobj->hdocDimensions); lpobj->hdocDimensions = hdata; InitAsyncCmd (lpobj, OLE_OTHER, 0); 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 ( LPOLEOBJECT lpoleobj, OLECLIPFORMAT cfFormat, HANDLE hData ){ LPOBJECT_LE lpobj = (LPOBJECT_LE)lpoleobj; OLESTATUS retVal = OLE_OK; BOOL fKnown = FALSE; PROBE_ASYNC (lpobj); if ((cfFormat == cfObjectLink) || (cfFormat == cfOwnerLink)) return ChangeDocAndItem (lpobj, hData); if (fKnown = (cfFormat && (cfFormat == (OLECLIPFORMAT)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 (lpoleobj, hData, lpobj->head.lpclient, FALSE); hData = lpobj->hnative; } if (retVal != OLE_OK) return retVal; if (fKnown) ContextCallBack ((LPOLEOBJECT)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_ENHMETAFILE || 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, 0); if ((retVal = SendPokeData (lpobj, lpobj->item, hData, cfFormat)) != OLE_WAIT_FOR_RELEASE) CLEARASYNCCMD(lpobj); return retVal; } OLESTATUS FARINTERNAL LeSetColorScheme ( LPOLEOBJECT lpoleobj, OLE_CONST LOGPALETTE FAR* lplogpal ){ LPOBJECT_LE lpobj = (LPOBJECT_LE)lpoleobj; 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); FARPROBE_READ(lptemp + (cblogpal = 2*sizeof(UINT))); 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, 0); if ((retval = PokeColorScheme (lpobj)) != OLE_WAIT_FOR_RELEASE) CLEARASYNCCMD(lpobj); return retval; } //PokeHostNames: Pokes hostname data to the server OLESTATUS INTERNAL PokeHostNames (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 (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 (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 (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 ( 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 = 0; PEDIT_DDE pedit; BOOL bGDIdata = FALSE; LPARAM lParamNew; 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 = (DWORD)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 = (WORD)cfFormat; if (bGDIdata) { #ifdef _WIN64 if (lpdde->cfFormat == CF_METAFILEPICT) *(void* _unaligned*)lpdde->Value = hdata; else #endif *(LONG*)lpdde->Value = HandleToLong(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, lParamNew = MAKE_DDE_LPARAM(WM_DDE_POKE, (UINT_PTR)hdde, aItem))) { if (aItem) GlobalDeleteAtom (aItem); FreePokeData (lpobj, pedit); DDEFREE(WM_DDE_POKE,lParamNew); 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 ( 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 { #ifdef _WIN64 if (lpdde->cfFormat == CF_METAFILEPICT) FreeGDIdata(*(void* _unaligned*)lpdde->Value, lpdde->cfFormat); else #endif FreeGDIdata (LongToHandle(*(LONG*)lpdde->Value), lpdde->cfFormat); } } GlobalFree (pedit->hData); pedit->hData = NULL; } BOOL INTERNAL SendSrvrMainCmd ( LPOBJECT_LE lpobj, LPSTR lptemplate ){ UINT size; UINT len; OLESTATUS retval = OLE_ERROR_COMM; int cmd = 0; 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 ((LPOLEOBJECT)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, (UINT)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 ( 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 (ATOM)0; } BOOL INTERNAL CreatePictObject ( LHCLIENTDOC lhclientdoc, LPSTR lpobjname, LPOBJECT_LE lpobj, OLEOPT_RENDER optRender, OLECLIPFORMAT cfFormat, LPCSTR lpclass ){ LPOLEOBJECT lpPictObj = NULL; ATOM aClass; lpobj->lpobjPict = NULL; if (optRender == olerender_format) { switch (cfFormat) { case 0: return FALSE; case CF_ENHMETAFILE: if (!(lpPictObj = (LPOLEOBJECT) EmfCreateBlank (lhclientdoc, lpobjname, CT_PICTURE))) 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) { #ifdef WIN32HACK if (!(lpPictObj = (LPOLEOBJECT) BmCreateBlank (lhclientdoc, lpobjname, CT_PICTURE))) return FALSE; #else if (!(lpPictObj = (LPOLEOBJECT) EmfCreateBlank (lhclientdoc, lpobjname, CT_PICTURE))) return FALSE; #endif #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 (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 ( LPOBJECT_LE lpobj, HANDLE hinfo ){ LPSTR lpinfo; ATOM aNewTopic, aNewItem = (ATOM)0, 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 (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 (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 ( LPOBJECT_LE lpobj, LPSTR lpclientName, LPSTR lpdocName ){ UINT cbClient; UINT size; HANDLE hhostNames = NULL; LPHOSTNAMES lphostNames = NULL; LPSTR lpdata; // 4 bytes is for the two offsets size = (cbClient = lstrlen(lpclientName)+1) + (lstrlen(lpdocName)+1) + 2*sizeof(UINT); if ((hhostNames = GlobalAlloc (GMEM_MOVEABLE, (DWORD) size)) == NULL) goto errRtn; if ((lphostNames = (LPHOSTNAMES)GlobalLock (hhostNames)) == NULL) goto errRtn; lphostNames->clientNameOffset = 0; lphostNames->documentNameOffset = (WORD)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 (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(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) { #define TASK_OFFSET 0x00FA HANDLE htask; if (!IsWindow (hwnd)) return FALSE; // now get the task handle and find out it is valid. htask = GetWindowTask (hwnd); #ifdef WIN16 { LPSTR lptask; if (bWLO) return TRUE; 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; } } #endif #ifdef WIN32 // if (IsTask(htask)) return TRUE; #endif return FALSE; } BOOL INTERNAL IsServerValid (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 ( LPOLEOBJECT lpoleobj, HANDLE hCmds, UINT wReserve ){ LPOBJECT_LE lpobj = (LPOBJECT_LE)lpoleobj; UNREFERENCED_PARAMETER(wReserve); // Assumes all the creates are in order PROBE_CREATE_ASYNC(lpobj); PROBE_SVRCLOSING(lpobj); if (!(lpobj = (*lpobj->head.lpvtbl->QueryProtocol) (lpoleobj, 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, 0); SETERRHINT(lpobj, OLE_ERROR_COMMAND); if (DocExecute(lpobj, hCmds)) return OLE_WAIT_FOR_RELEASE; else return OLE_ERROR_COMMAND; } void INTERNAL FreeGDIdata ( 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); else if (cfFormat == CF_ENHMETAFILE) DeleteEnhMetaFile(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 ( LPOBJECT_LE lpobj, OLECLIPFORMAT cfFormat ){ if (cfFormat == CF_BITMAP || cfFormat == CF_DIB || cfFormat == CF_ENHMETAFILE) 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; } // MakeMFfromEMF() // make a metafile from and enhanced metafile HMETAFILE MakeMFfromEMF ( HENHMETAFILE hemf ){ HANDLE hBytes; LPBYTE lpBytes = NULL; LONG lSizeBytes; HDC hdc = GetDC(NULL); HMETAFILE hmf = NULL; if (!(lSizeBytes = GetWinMetaFileBits((HENHMETAFILE)hemf, 0, NULL, MM_ANISOTROPIC, hdc)) ) { if (hdc) ReleaseDC(NULL, hdc); return NULL; } if (!(hBytes = GlobalAlloc(GHND, lSizeBytes)) ) goto error; if (!(lpBytes = (LPBYTE)GlobalLock(hBytes)) ) goto error; GetWinMetaFileBits((HENHMETAFILE)hemf, lSizeBytes, lpBytes, MM_ANISOTROPIC, hdc); #ifdef NOBUGS if (GetWinMetaFileBits(((LPOBJECT_EMF)(lpobj->lpobjPict))->hemf, lSizeBytes, lpBytes, MM_ANISOTROPIC, hdc) != lSizeBytes) { retval = OLE_ERROR_METAFILE; goto error; } #endif (HMETAFILE)hmf = SetMetaFileBitsEx(lSizeBytes,lpBytes); error: if (lpBytes) GlobalUnlock(hBytes); if (hBytes) GlobalFree(hBytes); if (hdc) ReleaseDC(NULL, hdc); return hmf; } // MakeMFPfromEMF() // make a metafile picture structure from an enhanced metafile HANDLE MakeMFPfromEMF ( HENHMETAFILE hemf, HANDLE hmf ){ HANDLE hmfp; LPMETAFILEPICT lpmfp = NULL; ENHMETAHEADER enhmetaheader; if (GetEnhMetaFileHeader((HENHMETAFILE)hemf, sizeof(enhmetaheader), &enhmetaheader) == GDI_ERROR) goto error; if (!(hmfp = GlobalAlloc(GHND, sizeof(METAFILEPICT))) ) goto error; if (!(lpmfp = (LPMETAFILEPICT)GlobalLock(hmfp)) ) goto error; lpmfp->xExt = enhmetaheader.rclFrame.right - enhmetaheader.rclFrame.left; lpmfp->yExt = enhmetaheader.rclFrame.bottom - enhmetaheader.rclFrame.top; lpmfp->mm = MM_ANISOTROPIC; lpmfp->hMF = hmf; GlobalUnlock(hmfp); return hmfp; error: if (lpmfp) GlobalUnlock(hmfp); if (hmfp) GlobalFree(hmfp); return NULL; } // ChangeEMFtoMF // Change and enhanced metafile object to a metafile object BOOL INTERNAL ChangeEMFtoMF( LPOBJECT_LE lpobj ){ HMETAFILE hmf; HANDLE hmfp = NULL; LPOBJECT_MF lpobjMF; char szobjname[MAX_ATOM]; DWORD dwSize = MAX_ATOM; // the blank picture case if (!((LPOBJECT_EMF)(lpobj->lpobjPict))->hemf) { GlobalGetAtomName(lpobj->head.aObjName, (LPSTR)szobjname, dwSize); if (!(lpobjMF = MfCreateBlank (lpobj->head.lhclientdoc, (LPSTR)szobjname, CT_PICTURE))) return FALSE; EmfRelease(lpobj->lpobjPict); lpobj->lpobjPict = (LPOLEOBJECT)lpobjMF; return TRUE; } // the normal case if (!(hmf = MakeMFfromEMF(((LPOBJECT_EMF)(lpobj->lpobjPict))->hemf)) ) goto error; if (!(hmfp = MakeMFPfromEMF(((LPOBJECT_EMF)(lpobj->lpobjPict))->hemf, hmf)) ) goto error; GlobalGetAtomName(lpobj->head.aObjName, (LPSTR)szobjname, dwSize); if (!(lpobjMF = MfCreateObject( hmfp, lpobj->head.lpclient, TRUE, lpobj->head.lhclientdoc, szobjname, CT_PICTURE ))) goto error; EmfRelease(lpobj->lpobjPict); lpobj->lpobjPict = (LPOLEOBJECT)lpobjMF; return TRUE; error: if (hmf) DeleteMetaFile((HMETAFILE)hmf); if (hmfp) GlobalFree(hmfp); return FALSE; } BOOL INTERNAL ChangeEMFtoMFneeded(LPOBJECT_LE lpobj, ATOM advItem) { lpobj->bNewPict = FALSE; if (lpobj->subErr && CF_ENHMETAFILE == GetPictType(lpobj)) { CLEAR_STEP_ERROR (lpobj); if (advItem == aClose) lpobj->pDocEdit->nAdviseClose--; else if (advItem == aSave) lpobj->pDocEdit->nAdviseSave--; AdviseOn (lpobj, CF_METAFILEPICT, advItem); lpobj->bNewPict = TRUE; return TRUE; } else { lpobj->subRtn++; return FALSE; } }