{例如我的SQL数据表中的字段名为x_img} procedure TForm1.Button1Click(Sender: TObject); begin {导入} if OpenDialog1.Execute then begin with adoquery1 do begin edit; TBlobField(ADOQuery1.fieldbyname('x_img')).loadfromfile(OpenDialog1.FileName); post; messagebox(0,'操作完毕','提示',0); end; end;end;procedure TForm1.Button2Click(Sender: TObject); begin {导出} if SaveDialog1.Execute then TBlobField(adoquery1.FieldByName('x_img')).SaveToFile(SaveDialog1.FileName); end;
{例如我的SQL数据表中的字段名为x_img}
procedure TForm1.Button1Click(Sender: TObject);
begin
{导入}
if OpenDialog1.Execute then begin
with adoquery1 do begin
edit;
TBlobField(ADOQuery1.fieldbyname('x_img')).loadfromfile(OpenDialog1.FileName);
post;
messagebox(0,'操作完毕','提示',0);
end; end;end;procedure TForm1.Button2Click(Sender: TObject);
begin
{导出}
if SaveDialog1.Execute then
TBlobField(adoquery1.FieldByName('x_img')).SaveToFile(SaveDialog1.FileName);
end;
ADOQuery.FieldByName('ID').AsString:='001';
TBlobField(ADOQuery.FieldByName('F_FILE')).LoadFromFile('C:\aa.txt');
ADOQuery.Post;
字段.LoadFromFile()
或LoadFromStream();