SavtoToFileで上書きエラー？ (ID:24479)

名前

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

本文 自己レスです。 ソースです。 procedure TForm1.Button1Click(Sender: TObject); var BaseBmp, OverBmp: TBitmap; ImagePath: String; ExePath: String; BaseBmpFname: String; OverBmpFname: String; AfterBMPFname: String; fd: Integer; BaseXSize,BaseYSize:Integer; OverXSize,OverYSize:Integer; begin flg := 0; Repeat Application.ProcessMessages; ExePath := ExtractFilePath(Application.ExeName); AfterBMPFname:= ExePath + 'Afetr.BMP'; BaseBmpFname := ExePath + 'Before.BMP'; OverBmpFname := ExePath + '目安2.BMP'; // BaseBmp := TBitmap.Create; OverBmp := TBitmap.Create; // 重ねられるイメージを読込み--(1)BaseBmp BaseBmp.LoadFromFile(BaseBmpFname); //重ねられるイメージの[高さ、幅]の情報を得る BaseXSize := BaseBmp.Width; BaseYSize := BaseBmp.Height; // 重ねるイメージを読込み--(2) OverBmp OverBmp.LoadFromFile(OverBmpFname); //重ねるイメージの[高さ、幅]の情報を得る OverXSize := OverBmp.Width; OverYSize := OverBmp.Height; // (2)のイメージ全体を(1)のイメージの位置(左上)に重ねる//左上 BaseBmp.Canvas.CopyRect(Rect(0,0,OverXSize,OverYSize), OverBmp.Canvas,Rect(0,0,OverXSize,OverYSize)); // (2)のイメージ全体を(1)のイメージの位置(右上)に重ねる//右上 BaseBmp.Canvas.CopyRect(Rect(BaseXSize- OverXSize,0,BaseXSize,OverYSize), OverBmp.Canvas,Rect(0,0,OverXSize,OverYSize)); // (2)のイメージ全体を(1)のイメージの位置(左下)に重ねる//左下 BaseBmp.Canvas.CopyRect(Rect(0,BaseYSize-OverYSize,OverXSize,BaseYSize), OverBmp.Canvas,Rect(0,0,OverXSize,OverYSize)); // (2)のイメージ全体を(1)のイメージの位置(右下)に重ねる//右下 BaseBmp.Canvas.CopyRect(Rect(BaseXSize-OverXSize,BaseYSize-OverYSize,BaseXSize,BaseYSize), OverBmp.Canvas,Rect(0,0,OverXSize,OverYSize)); // どうなったか？確認してみる Canvas.Draw(5,10,BaseBmp); Sleep(10); //記録 BaseBmp.SaveToFile(AfterBMPFname); BaseBmp.Free; OverBmp.Free; Until flg = 1; end; procedure TForm1.Button2Click(Sender: TObject); begin Close; end; procedure TForm1.Button3Click(Sender: TObject); begin flg := 1; end; Sleep(10)は関係ないかもしれません。