//保存 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;
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;