[转帖]怎样将GIS图形复制到剪贴板，粘贴到Word中

<P>    复制、粘贴功能是一件很简单的事情，但怎样将GIS图形粘贴到word中呢？最简单的思路还是将GIS图形保存为Image形式，发送到剪贴板，再粘贴到Word。但如果Image格式采用栅格的格式，如BMP或JPEG，则粘贴后在Word中拉伸时，效果会受到影响，比较合适的格式是采用WMF或EMF这种矢量的格式。将Visio格式复制到Word中时，可以看到就是这种效果，而且文字还是可以编辑的。好，下面我们就看看怎样实现这个功能。</P>
<P>    第一步当然是将图形复制为一个MetaFile对象：</P>
<P>        public Metafile GetGeometryMetafile(ISymbol pSymbol, IGeometry pGeometry)<BR>        {<BR>            //先获取一个IDisplayTransformation对象<BR>            IDisplayTransformation pDisTrans = new DisplayTransformationClass(); <BR>            IEnvelope pEnv = pGeometry.Envelope;<BR>            Rectangle rect = new Rectangle(0, 0, 500, 500); <BR> <BR>            tagRECT r;<BR>            r.left = rect.Left;<BR>            r.right = rect.Right;<BR>            r.bottom = rect.Bottom;<BR>            r.top = rect.Top;</P>
<P>            pDisTrans.set_DeviceFrame(ref r);<BR>            pDisTrans.Bounds = pEnv;</P>
<P>            pDisTrans.Resolution = 72;</P>
<P>            pDisTrans.ReferenceScale = 1.0;<BR>            pDisTrans.ScaleRatio = 1;</P>
<P>            //创建WMF<BR>            MemoryStream ms = new MemoryStream();<BR>            Graphics g = CreateGraphics();<BR>            IntPtr hdc = g.GetHdc();<BR>            Metafile mf = new Metafile(ms, hdc, new Rectangle(0,0,500,500),MetafileFrameUnit.Pixel, EmfType.EmfPlusDual);<BR>            g.ReleaseHdc(hdc);<BR>            g.Dispose();<BR>            g = Graphics.FromImage(mf); <BR>        <BR>            g.FillRectangle(new SolidBrush(Color.White), new Rectangle(0, 0, 500, 500));</P>
<P>            pSymbol.SetupDC((int)g.GetHdc(), pDisTrans);<BR>            pSymbol.Draw(pGeometry);            <BR>            pSymbol.ResetDC();<BR>            g.ReleaseHdc();</P>
<P>            g.DrawString("by watson", this.Font, new SolidBrush(Color.Blue), new PointF(20, 20));</P>
<P>            g.Save();<BR>            g.Dispose();</P>
<P>            return mf;<BR>        }</P>
<P>第二步：发送到剪贴板：</P>
<P>IDataObject data = new DataObject();<BR>                data.SetData(DataFormats.MetafilePict, mf);<BR>                Clipboard.SetDataObject(data, true);<BR>测试 .... 什么，不成功？？<BR>估计是.net不支持将metafile格式复制到剪贴板吧。<BR>于是，用于搜索引擎，搜索一翻，在某国外论坛找到解决方案：<BR> public class ClipboardMetafileHelper<BR>    {<BR>        [DllImport("user32.dll")]<BR>        static extern bool OpenClipboard(IntPtr hWndNewOwner);<BR>        [DllImport("user32.dll")]<BR>        static extern bool EmptyClipboard();<BR>        [DllImport("user32.dll")]<BR>        static extern IntPtr SetClipboardData(uint uFormat, IntPtr hMem);<BR>        [DllImport("user32.dll")]<BR>        static extern bool CloseClipboard();<BR>        [DllImport("gdi32.dll")]<BR>        static extern IntPtr CopyEnhMetaFile(IntPtr hemfSrc, IntPtr hNULL);<BR>        [DllImport("gdi32.dll")]<BR>        static extern bool DeleteEnhMetaFile(IntPtr hemf);</P>
<P>        // Metafile mf is set to an invalid state inside this function<BR>        static public bool PutEnhMetafileOnClipboard(IntPtr hWnd, Metafile mf)<BR>        {<BR>            bool bResult = false;<BR>            IntPtr hEMF, hEMF2;<BR>            hEMF = mf.GetHenhmetafile(); // invalidates mf<BR>            if (!hEMF.Equals(new IntPtr(0)))<BR>            {<BR>                hEMF2 = CopyEnhMetaFile(hEMF, new IntPtr(0));<BR>                if (!hEMF2.Equals(new IntPtr(0)))<BR>                {<BR>                    if (OpenClipboard(hWnd))<BR>                    {<BR>                        if (EmptyClipboard())<BR>                        {<BR>                            IntPtr hRes = SetClipboardData(14 /**//*CF_ENHMETAFILE*/, hEMF2);<BR>                            bResult = hRes.Equals(hEMF2);<BR>                            CloseClipboard();<BR>                        }<BR>                    }<BR>                }<BR>                DeleteEnhMetaFile(hEMF);<BR>            }<BR>            return bResult;<BR>        }<BR>    }<BR>调用PutEnhMetafileOnClipboard方法就可以了，<BR>再测试....大功告成！</P>
<P>再看一看PutEnhMetafileOnClipboard中的代码，比较特别的是CopyEnhMetaFile函数，将MetaFile在内存中复制一份，看来是.net中的metafile与Windows中的metafile格式有一定出入，windows剪贴板不认识的缘故吧。<BR></P>