MetaFileをFileStreamで (ID:26451)

名前

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

本文 過去ログを参考にしてたんですがうまくいかないので質問させてください。 TMetafileにEMFとかWMFを読み込んで、その後他の変数とかも混ぜてFileStreamにしたいと思ってます。で、下記のようにしてみたんですが、上手く書き込めません。 //データの書き出し procedure SaveStream; var F:TFileStream; L:Byte; begin //数値の代入 //ストリーム出力 F := TFileStream.Create(frmMain.dlgSave.FileName,fmCreate); try F.Write(PaperSizeX,SizeOf(Integer));//その他の変数 F.Write(PaperSizeY,SizeOf(Integer));//その他の変数 L := SizeOf(BGMetaFile);//4が返ってくる F.Write(L,SizeOf(L));//サイズ書き込み F.Write(BGMetaFile,L);//メタファイルデータ書き込み finally F.Free; end; end;