保存代码 : (MyQuery.FieldByName('imageField') as TBlobField).Assign (image1.Picture);显示的代码: image1.Picture.Assign (MyQuery.FieldByName('imageField') as TBlobField);
转贴:qhlkj(jack) //保存 begin with ADOQuery1 do begin close; SQL.Text := 'select Image1 from t_1'; Open; TBlobFile(Fields[0]).LoadFromFile('xxxx.bmp'); Close; end; end;//读取 begin with ADOQuery1 do begin close; SQL.Text := 'select Image1 from t_1'; Open; TBlobFile(Fields[0]).SaveToFile('xxxx.bmp'); Close; end; end;
(MyQuery.FieldByName('imageField') as TBlobField).Assign (image1.Picture);显示的代码:
image1.Picture.Assign (MyQuery.FieldByName('imageField') as TBlobField);
//保存
begin
with ADOQuery1 do
begin
close;
SQL.Text := 'select Image1 from t_1';
Open;
TBlobFile(Fields[0]).LoadFromFile('xxxx.bmp');
Close;
end;
end;//读取
begin
with ADOQuery1 do
begin
close;
SQL.Text := 'select Image1 from t_1';
Open;
TBlobFile(Fields[0]).SaveToFile('xxxx.bmp');
Close;
end;
end;
操作
其实 angle097113(正在修改注册信息...请稍候!) 说的已经很详细了!就用他的方法实现存取图片已经很好了.