GDI+的Metafile问题

Question

不能正确记录到文件中，代码如下：
procedure TAAA.Button2Click(Sender: TObject);
var
 ww : TGPMetafile;
 gs : TGPGraphics;
 pen: TGPPen;
begin
 ww:=TGPMetafile.Create('xxxxx.emf', Getdc(0));
 gs := TGPGraphics(TGPIMage(ww));
 pen:= TGPPen.Create(MakeColor(0,0,0));
gs.DrawLine(Pen, 10,13,100,13);
gs.DrawLine(Pen, 101,13,130,13);
gs.DrawLine(Pen, 131,13,200,13);
gs.DrawRectangle(pen,100,100,200,200);
pen.Free;
gs.Free;
//ww.Free 加上这个既出现错误，不加，记录的文件不正确
end;

Answer 1

ww : TGPMetafile;
 gs : TGPGraphics;
 pen: TGPPen; 
是第三方的控件吗，平时没怎么用到过
应该是在释放的时候出错，如果不释放，文件不会更新
你试试TGPMetafile 类的其他的关于更新保存里面内容的方法
看看相关帮助文档或者实例就好了啊～～

Answer 2

不是控件, GDI+的pas定义, 没有帮助, 只能看SDK. 

Answer 3

靠, 晕倒.
TGPGraphics(TGPIMage(ww));
这是vc的写法
语言会的越多越反动, 真TNND, 一天时间.