☆ADOQueryを使ってImage型に書き込みする。

以前、ADOQueryを使ってImage型を読み書きする。 という記事を書きましたが、その中で「Image型フィールドに書き込みます。」部分は次のような単純な処理でも可能なようです。

procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Edit;
  (ADOQuery1.FieldByName('IMG') as TBlobField).LoadFromFile('c:\aa.jpg');
  ADOQuery1.Post;
end;

[参考]
CodeGear NewsGroup
borland.public.delphi.database.ado
JPEG into BLOB field