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;

←解決時は質問者本人がここをチェックしてください。

戻る