//保存处理
procedure TSJBB.btnSaveClick(Sender: TObject);
var stream: TStream;
begin
try
stream:= TStream.Create;
//接下来做如何处理?delphi的一些方法不能在x3中使用呀
with dsbFormMaster.DataSet do
begin
Edit;
TBlobField(FieldByName('bfile')).LoadFromStream(stream);
ApplyUpdates;
end;
except
raise Exception.Create('上传文件失败,请重试!');
end;
end;