怎样将GIS图形复制到Windows剪贴板，粘贴到Word

怎样将GIS图形复制到Windows剪贴板，粘贴到Word中

很久没写随笔了，有点想关了这个博客，不再更新，但还是没有下定决心。趁这些天比较闲，发一个以前写着玩的功能吧。
复制、粘贴功能是一件很简单的事情，但怎样将GIS图形粘贴到word中呢？最简单的思路还是将GIS图形保存为Image形式，发送到 剪贴板 ，再粘贴到Word。但如果Image格式采用栅格的格式，如BMP或JPEG，则粘贴后在Word中拉伸时，效果会受到影响，比较合适的格式是采用WMF或EMF这种矢量的格式。将Visio格式复制到Word中时，可以看到就是这种效果，而且文字还是可以编辑的。好，下面我们就看看怎样实现这个功能。

第一步当然是将图形复制为一个MetaFile对象：

public MetafileGetGeometryMetafile(ISymbolpSymbol,IGeometrypGeometry)
{
// 先获取一个IDisplayTransformation对象
IDisplayTransformationpDisTrans = new DisplayTransformationClass();
IEnvelopepEnv = pGeometry.Envelope;
Rectanglerect = new Rectangle( 0 , 0 , 500 , 500 );

tagRECTr;
r.left = rect.Left;
r.right = rect.Right;
r.bottom = rect.Bottom;
r.top = rect.Top;

pDisTrans.set_DeviceFrame( ref r);
pDisTrans.Bounds = pEnv;

pDisTrans.Resolution = 72 ;

pDisTrans.ReferenceScale = 1.0 ;
pDisTrans.ScaleRatio = 1 ;

// 创建WMF
MemoryStreamms = new MemoryStream();
Graphicsg = CreateGraphics();
IntPtrhdc = g.GetHdc();
Metafilemf = new Metafile(ms,hdc, new Rectangle( 0 , 0 , 500 , 500 ),MetafileFrameUnit.Pixel,EmfType.EmfPlusDual);
g.ReleaseHdc(hdc);
g.Dispose();
g = Graphics.FromImage(mf);

g.FillRectangle( new SolidBrush(Color.White), new Rectangle( 0 , 0 , 500 , 500 ));

pSymbol.SetupDC(( int )g.GetHdc(),pDisTrans);
pSymbol.Draw(pGeometry);
pSymbol.ResetDC();
g.ReleaseHdc();

g.DrawString( " bywatson " , this .Font, new SolidBrush(Color.Blue), new PointF( 20 , 20 ));

g.Save();
g.Dispose();

return mf;
}

第二步：发送到剪贴板：

测试 .... 什么，不成功？？
估计是.net不支持将metafile格式复制到剪贴板吧。
于是，用于搜索引擎，搜索一翻，在某国外论坛找到解决方案：

public class ClipboardMetafileHelper
{
[DllImport( " user32.dll " )]
static extern bool OpenClipboard(IntPtrhWndNewOwner);
[DllImport( " user32.dll " )]
static extern bool EmptyClipboard();
[DllImport( " user32.dll " )]
static extern IntPtrSetClipboardData( uint uFormat,IntPtrhMem);
[DllImport( " user32.dll " )]
static extern bool CloseClipboard();
[DllImport( " gdi32.dll " )]
static extern IntPtrCopyEnhMetaFile(IntPtrhemfSrc,IntPtrhNULL);
[DllImport( " gdi32.dll " )]
static extern bool DeleteEnhMetaFile(IntPtrhemf);

// Metafilemfissettoaninvalidstateinsidethisfunction
static public bool PutEnhMetafileOnClipboard(IntPtrhWnd,Metafilemf)
{
bool bResult = false ;
IntPtrhEMF,hEMF2;
hEMF = mf.GetHenhmetafile(); // invalidatesmf
if ( ! hEMF.Equals( new IntPtr( 0 )))
{
hEMF2 = CopyEnhMetaFile(hEMF, new IntPtr( 0 ));
if ( ! hEMF2.Equals( new IntPtr( 0 )))
{
if (OpenClipboard(hWnd))
{
if (EmptyClipboard())
{
IntPtrhRes = SetClipboardData( 14 /**/ /* CF_ENHMETAFILE */ ,hEMF2);
bResult = hRes.Equals(hEMF2);
CloseClipboard();
}
}
}
DeleteEnhMetaFile(hEMF);
}
return bResult;
}
}

调用 PutEnhMetafileOnClipboard 方法就可以了，
再测试....大功告成！

再看一看 PutEnhMetafileOnClipboard 中的代码，比较特别的是 CopyEnhMetaFile函数，将MetaFile在内存中复制一份，看来是.net中的metafile与Windows中的metafile格式有一定出入，windows剪贴板不认识的缘故吧

来自:http://www.cnblogs.com/watsonyin/archive/2007/11/22/968651.html

怎样将GIS图形复制到Windows剪贴板，粘贴到Word中