掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
画像をＤＢに保存して呼び出すには (ID：41783)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
HOtaさん、初心者さん、お返事ありがとうございます。 ネットを参考に、こんな感じで何個かボタンを作って、どれかうまくいかないかなと 試してたんですが、どれもうまくいきませんでした（>_<） トランザクションていう言葉がよくわかってません。 共有フォルダよりは、できればDBに登録したいです。 わがままで、すいません。 procedure TForm2.Button1Click(Sender: TObject); begin openpicturedialog1.Filter := 'BMPファイル(*.bmp)|*.bmp|全てのファイル(*.*)|*.*'; if openpicturedialog1.Execute then begin if not (table1.State in [dsEdit,dsinsert])then table1.Edit; dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName); end; end; procedure TForm2.Button2Click(Sender: TObject); var m: tmemorystream; begin try m:= tmemorystream.Create; openpicturedialog1.Filter := 'BMPファイル(*.bmp)|*.bmp|全てのファイル(*.*)|*.*'; if openpicturedialog1.Execute then begin if not (table1.State in [dsEdit,dsinsert])then table1.Edit; dbimage1.Picture.LoadFromFile(openpicturedialog1.FileName); with table1 do begin append; tblobfield(fieldbyname('GRA')).LoadFromStream(m); end; end; finally end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.