如何把JPEG图片动态的读入到image的picture属性中,如何实现JPEG图片在SQL Server中的存取转换?
----------------------------------------------------------------------
谢谢大家的帮忙!
----------------------------------------------------------------------
谢谢大家的帮忙!
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('insert into Pic values(.....,:Pic,...)');
.................
ADOQuery1.Parameters.ParamByName('Pic').Assign(Image1.Picture.Bitmap);
.................
ADOQuery1.ExecSQL; 讀取:
Image1.Picture.Bitmap.Assign(TBLOBField(ADOQuery1.Parameters.ParamByName('Pic')))
procedure TForm1.Button2Click(Sender: TObject);
var
JPEGImage:TJPEGImage;
begin
JPEGImage:=TJPEGImage.Create; //创建JPEG图像对象
if OpenDialog1.Execute then
try
JPEGImage.LoadFromFile(OpenDialog1.FileName); //从文件中装载jpg图像,
ADOTable1.Edit;
DBImage2.Picture.Bitmap.Assign(JPEGImage); //将jpg导入
ADOTable1.Post;
finally
JPEGImage.Free; //释放对象
end;
button3.Click ;
end;