MetaFileのストリーム保存 (ID:39041)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 実際やってみれば分かる事なのでは？ procedure TForm1.Button1Click(Sender: TObject); var mf1,mf2:TMetafile; mc1,mc2:TMetafileCanvas; begin mf1 := TMetafile.Create; mf1.Width := 100; mf1.Height:= 100; mc1 := TMetafileCanvas.Create(mf1,0); mc1.TextOut(0,0,'AAA'); mf2 := TMetafile.Create; mf2.Width := 100; mf2.Height:= 100; mc2 := TMetafileCanvas.Create(mf2,0); mc2.TextOut(0,20,'BBB'); mc2.Free; mc1.Draw(0,0,mf2); mc1.Free; Canvas.Draw(0,0,mf1); mf1.Free; mf2.Free; end; procedure TForm1.Button2Click(Sender: TObject); var mf1,mf2:TMetafile; mc1,mc2:TMetafileCanvas; ms:TMemoryStream; begin ms := TMemoryStream.Create; mf1 := TMetafile.Create; mf1.Width := 100; mf1.Height:= 100; mc1 := TMetafileCanvas.Create(mf1,0); mc1.TextOut(0,0,'AAA'); mc1.Free; mf1.SaveToStream(ms); mf1.Free; mf2 := TMetafile.Create; mf2.Width := 100; mf2.Height:= 100; mc2 := TMetafileCanvas.Create(mf2,0); mc2.TextOut(0,20,'BBB'); mc2.Free; mf2.SaveToStream(ms); mf2.Free; mf1:=TMetafile.Create; ms.Position:=0; mf1.LoadFromStream(ms); Canvas.Draw(0,0,mf1); mf1.Free; ms.Free; end;