掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Jpeg画像のBlob項目への保存について (ID:15445)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
肝心のコードは、以下の通りです。 Use節には、JPEGを追加してあります。 procedure TFormtantouEntry.Button2Click(Sender: TObject); Var //呼込んだ画像をDBへ保存 Strm : TBlobStream; Jpg: TJpegImage; begin Jpg := TJPEGImage.Create; Jpg.Assign(Image1.Picture.Graphic); DMSyaken.EmployTable.Edit; DMSyaken.EmployTable.Insert; Strm := TBlobStream.Create(TBlobField(DMSyaken.EmployTable.FieldByName('Photo')),bmWrite); try JPG.SaveToStream(Strm); DMSyaken.EmployTable.Post finally //DMSyaken.EmployTable.ApplyUpdates; Strm.Free; JPG.Free; end; DMSyaken.EmployTable.ApplyUpdates; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.