取出部分
var
sql:string;
str:TMemoryStream;
begin
sql:='select ZLPJ_BH,ZLPJ_BG from tbZLPJ where ZLPJ_BH='''+SPBH+'''';
zbClientDataSet.Close;
zbClientDataSet.Provider.DataQuest(sql);
zbClientDataSet.Open;
zbClientDataSet.Edit;
str:=TMemoryStream.Create();
TBlobField(zbClientDataSet.fieldbyname('ZLPJ_BG')).SaveToStream(str);
str.position:=0;
OleContainer2.LoadfromStream(str);
str.Free;
end;
存储部分
var
sql:string;
str:TMemoryStream;
begin
sql:='select ZLPJ_BH,ZLPJ_BG from tbZLPJ where ZLPJ_BH='''+SPBH+'''';
zbClientDataSet.Close;
zbClientDataSet.Provider.DataQuest(sql);
zbClientDataSet.Open;
zbClientDataSet.Edit;
str:=TMemoryStream.Create();
OleContainer1.SaveToStream(str);
str.Position:=0;
TBlobField(zbClientDataSet.fieldbyname('ZLPJ_BG')).LoadFromStream(str);
zbClientDataSet.Post;
zbClientDataSet.ApplyUpdates(0);
str.Free;
end;