掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
画像（ビットマップ）の保存をするには？ (ID：8936)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
下のようなプログラムを作ったのですが、保存しようとすると、 「ソースファイルが見つかりません」というエラーがですのですが、 どうすればいいのでしょうか。教えてください。 procedure TForm1.Button1Click(Sender: TObject); var Name: String; begin try if Open.Execute then begin Bitmap1 := TBitmap.Create; Name := Open.FileName; Bitmap1.LoadFromFile(Name); Invalidate; end; except Beep; end; end; 画像の編集 procedure TForm1.FormPaint(Sender: TObject); begin Canvas.Draw(0,0,Bitmap1); end; procedure TForm1.Button4Click(Sender: TObject); begin if Save.Execute then begin Name := Save.FileName; Bitmap1.SaveToFile(Name); end; end; end.
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.