C++博客-Horace的窝

C++博客-Horace的窝http://www.cppblog.com/Horace/zh-cnSat, 18 Apr 2026 05:17:37 GMTSat, 18 Apr 2026 05:17:37 GMT60good bookhttp://www.cppblog.com/Horace/archive/2008/08/21/59580.htmlHoraceHoraceThu, 21 Aug 2008 12:05:00 GMThttp://www.cppblog.com/Horace/archive/2008/08/21/59580.htmlhttp://www.cppblog.com/Horace/comments/59580.htmlhttp://www.cppblog.com/Horace/archive/2008/08/21/59580.html#Feedback0http://www.cppblog.com/Horace/comments/commentRss/59580.htmlhttp://www.cppblog.com/Horace/services/trackbacks/59580.html

Horace 2008-08-21 20:05 发表评论

]]>神奇的代码http://www.cppblog.com/Horace/archive/2008/08/21/59567.htmlHoraceHoraceThu, 21 Aug 2008 10:35:00 GMThttp://www.cppblog.com/Horace/archive/2008/08/21/59567.htmlhttp://www.cppblog.com/Horace/comments/59567.htmlhttp://www.cppblog.com/Horace/archive/2008/08/21/59567.html#Feedback0http://www.cppblog.com/Horace/comments/commentRss/59567.htmlhttp://www.cppblog.com/Horace/services/trackbacks/59567.htmlCOleDataSource* CLadderView::OnGetClipboardData(CElementdef* pViewElement)
{
        ASSERT_VALID(this);

        // get document data element and stuff into OLE data source
         CRungElem* datarungel = pViewElement->GetRungElem();
        if(!datarungel)
            return NULL;


           COleDataSource* ClipLadDataSource = new COleDataSource(); //data source object used in clipbd exchange
        if(!ClipLadDataSource)
           return NULL;

        TRY
        {
        // do native format
        {
            // Create a shared file and associate a CArchive with it

#ifndef LOGIX_CE
            CSharedFile file;
#else
            CMemFile    file;
#endif //LOGIX_CE

            CArchive ar(&file, CArchive::store);

            //special case for copying rung to keep dbase strings
             if(datarungel->IsKindOf(RUNTIME_CLASS(CRung)) )
            {
                CRung* pRung = ((CRung*)datarungel);
                CRungElem* pTmpRung = pRung->CreateCopyWithDbase();
                 pTmpRung->SetAllModified();

                ar.WriteObject(pTmpRung);
                delete pTmpRung;
                ar.Close();

                ClipLadDataSource->CacheGlobalData(m_cfLadderRung, file.Detach());
            }
            else
            {
                // Make a copy of the rung element so don't SetAllModified() of the original rungelem
                // SetAllModified is called so the string operands are copied over and not the edopnds
                // delete must be called before returning because the rungelem is an allocated copy
                CRungElem *pTmpElem = datarungel->CreateCopy();
//                TRACE("Address of pTmpElem %08x \n", pTmpElem);
//                TRACE("Address of datarungel %08x \n", datarungel);
                if(!pTmpElem)
                    return NULL;
                 pTmpElem->SetAllModified();

                ar.WriteObject(pTmpElem);//Serialize into fp
                ar.Close();

                // Made a copy so the original rung element isn't set to uncompiled be SetAllModified()
                delete pTmpElem;

                ClipLadDataSource->CacheGlobalData(m_cfLadderElement, file.Detach());
            }
        }

        CRSLibProject RSLibProject;
        //do database array of ID's
        {
            CRSLibDbase IDHolder;

            if (m_pProgFile->GetDataHolder()->GetDbase())
            {
                RSLibProject.m_Database.AttachDbase(m_pProgFile->GetDataHolder()->GetDbase());
                datarungel->GetDbaseIDs(&RSLibProject.m_Database);
                if ( (RSLibProject.m_Database.GetAddrSymSize()>0) || (RSLibProject.m_Database.GetInstrSize()>0) )
                {
                    CDataBaseClipboard pdataclp;
                    pdataclp.SetClipboardData(ClipLadDataSource, RSLibProject.m_Database);    // array of Dbase ID's
                }
            }
            #ifdef _FBOFFLINE
            else
            {
                CDataBaseClipboard pdataclp;
                datarungel->GetDbaseIDs(&RSLibProject.m_Database);
                pdataclp.FBESetClipboardData(ClipLadDataSource, RSLibProject.m_Database,m_pInterfaceObj);    // array of Dbase ID's
            }
            #endif
        }


        // Render neutral text put up right away
        {
            CString strAsciiString;
            CLIPFORMAT cfFormat;

            if (datarungel->IsKindOf(RUNTIME_CLASS(CRung)) )
            {
                CRSLibProgfile* pRSLibProgfile = new CRSLibProgfile;
                RSLibProject.m_ProgfileArray.Add(pRSLibProgfile);
                cfFormat = m_cfLadderNeutralTextRung;

                CString strAscii, strComment, strTitle;
                ((CRung*)datarungel)->ToNeutralText(strAscii);
                strAsciiString += strAscii;

                CRSLibRung* pRSLibRung = new CRSLibRung;
                pRSLibProgfile->m_RungArray.Add(pRSLibRung);

                pRSLibRung->SetRung(strAscii);
                ((CRung*)datarungel)->GetRungComment(strComment);
                pRSLibRung->SetRungComment(strComment);
                ((CRung*)datarungel)->GetRungTitle(strTitle);
                pRSLibRung->SetPageTitle(strTitle);

                // Put up RSLib data
                CRSLibClipboard RSLibClipboard;
                RSLibClipboard.SetClipboardData(ClipLadDataSource, RSLibProject);
            }
            else
            {
                ((CRungElem*)datarungel)->ToNeutralText(strAsciiString);
                cfFormat = m_cfLadderNeutralTextElement;
            }

            int nBytes = strAsciiString.GetLength();
            HGLOBAL hGlobalMem = ::GlobalAlloc(GMEM_DDESHARE, nBytes+1);
            if (hGlobalMem)
            {
                void* hgbl =(void*)::GlobalLock(hGlobalMem);
                char* pIndex = (char*)hgbl;
                memcpy(hgbl, (const void*)(const char*)strAsciiString, nBytes);
                memset(&pIndex[nBytes],0,1);            //terminate with null
                ClipLadDataSource->CacheGlobalData(cfFormat, hgbl);
            }
        }


        //do datatable array of addresses
        {
            CPtrArray AddrHolder;
            CDataHolder* pDataHolder = m_pProgFile->GetDataHolder();
            datarungel->GetXrefAddresses(&AddrHolder);
            if(AddrHolder.GetSize()>0)
            {
            CDataFileClipboard pdataclp;
            if(pDataHolder)
                {
                pdataclp.AttachDataHolder(pDataHolder);
                pdataclp.AttachStructHolder(pDataHolder->GetStructHolder());

                // If you want to put a m_cfDataFile on the clipboard then use one of the following two routines
                pdataclp.SetClipboardData(ClipLadDataSource, AddrHolder);    //array of pointers to edopnds
                }
            }
        }


        //do ascii text string
        {
            CString strAsciiString;
            datarungel->ToAscii(strAsciiString);
            int nBytes = strAsciiString.GetLength();

            HGLOBAL hGlobalMem = ::GlobalAlloc(GMEM_DDESHARE, nBytes+1);
            if (hGlobalMem)
            {
                void* hgbl =(void*)::GlobalLock(hGlobalMem);
                char* pIndex = (char*)hgbl;
                memcpy(hgbl,(const void*)(const char*)strAsciiString,nBytes);
                memset(&pIndex[nBytes],0,1);//terminate with null
                ClipLadDataSource->CacheGlobalData(CF_TEXT,hgbl);
            }
        }

        //do metafile
        {
            CDC* dcScreen = GetDC();
            CFont* pOldFont = dcScreen->SelectObject(&(m_Options.CVFont));

            CRect rc;
            pViewElement->GetRect(&rc);
            CPoint Oldpos;
            Oldpos.x = rc.left;
            Oldpos.y = rc.top;
            pViewElement->SetPosition(&m_Options,CPoint(0,0));
            pViewElement->GetRect(&rc);

            int x = rc.right+m_Options.GridUnit.cx*2;
            x *= 2540;                                //2540 .01 mm == 1 inch
            x += x/20; //adding 5% to width because rungs being cut off??
            x /= dcScreen->GetDeviceCaps(LOGPIXELSX); // 2540/pixels per inch // ie. in 0.01mm

            int y = rc.bottom+m_Options.GridUnit.cy;
            y *= 2540;
            y /= dcScreen->GetDeviceCaps(LOGPIXELSY);        // ie. in 0.01mm

            CRect modrc(0,0,x+x/10,y+y/10);
            //rc is in .01 mm units
            CMetaFileDC dc;
            dc.CreateEnhanced(dcScreen,NULL,&modrc,"RSLogix\0Rung Object\0\0");
            dc.m_hAttribDC = dcScreen->m_hAttribDC;

            CFont* peOldFont = dc.SelectObject(&(m_Options.CVFont));

            pViewElement->Draw(&dc,&m_Options,this);
            pViewElement->SetPosition(&m_Options,Oldpos);

            dc.SelectObject(peOldFont);

            dcScreen->SelectObject(pOldFont);

            HENHMETAFILE hmdc = dc.CloseEnhanced();
             ReleaseDC(dcScreen);

            if (hmdc)
                 {
                STGMEDIUM MetaFileStg;
                //DelEnhHMetafile(m_MetaFileStg.hEnhMetaFile);
                MetaFileStg.tymed = TYMED_ENHMF;
                MetaFileStg.hEnhMetaFile = hmdc;
                MetaFileStg.pUnkForRelease = NULL;
                ClipLadDataSource->CacheData(CF_ENHMETAFILE,&MetaFileStg);
                }
        }
        //do bitmap
        {
            CDC* dcScreen = GetDC();
             CBitmap RBmp;
            CRect rc;
            pViewElement->GetRect(&rc);

             RBmp.CreateCompatibleBitmap(dcScreen, rc.Width(),rc.Height());

            CDC memdc;
            memdc.CreateCompatibleDC(dcScreen);

            CBitmap* pOldBmap = memdc.SelectObject(&RBmp);
            CFont*   pOldFont = memdc.SelectObject(&(m_Options.CVFont));

            CPoint Oldpos;
            Oldpos.x = rc.left;
            Oldpos.y = rc.top;
            pViewElement->SetPosition(&m_Options,CPoint(0,0));

             CBrush cbrback;
            CBrush *hOldBrush=NULL;
            cbrback.DeleteObject();
            if(cbrback.CreateSolidBrush(m_Options.Color.cBackground))
                     hOldBrush = memdc.SelectObject(&cbrback);
            memdc.FillRect(&rc,&cbrback);

            pViewElement->Draw(&memdc,&m_Options,this);
            if(hOldBrush)
                    memdc.SelectObject(hOldBrush);
            pViewElement->SetPosition(&m_Options,Oldpos);

             memdc.SelectObject(pOldFont);
             memdc.SelectObject(pOldBmap);
            ReleaseDC(dcScreen);

            STGMEDIUM BitmapStg;
            BitmapStg.tymed = TYMED_GDI;
            BitmapStg.hBitmap = (HBITMAP)RBmp.Detach();
            BitmapStg.pUnkForRelease = NULL;
         ClipLadDataSource->CacheData(CF_BITMAP,&BitmapStg);
    }

    }
    CATCH_ALL(e)
    {
        delete ClipLadDataSource;
        THROW_LAST();
    }
    END_CATCH_ALL

    ASSERT_VALID(ClipLadDataSource);
    return ClipLadDataSource;
}
#endif //LOGIX_CE

Horace 2008-08-21 18:35 发表评论

]]>