Question_如何把一幅bmp图像保存到SQL Server数据库,使用OpenPictureDialog1和ADOQuery1(20分)

如题

你先設好ADOQuery1的數据庫,然后再寫入以下代碼:
procedure Tf_phop.b_loadClick(Sender: TObject);
var
JPEGImage:TJPEGImage;
begin
JPEGImage:=TJPEGImage.Create;
if OpenPictureDialog1.Execute then
try
JPEGImage.LoadFromFile(OpenPictureDialog1.FileName);
Table1.Edit;
DBImage1.Picture.Bitmap.Assign(JPEGImage);
Table1.Post;
finally
JPEGImage.Free;
end;

end;