SOS ADO数据库中的varBinary字段的存取 TStream

Question

//////////////读出/////////////////////////////
var      strstream:Tmemorystream;
begin
strstream := Tmemorystream.Create;        query2.Close;
        query2.sql.clear;
        query2.SQL.Add('select qw from oadbo.bw_qwb where wjid =' + inttostr(lwid));
        query2.open ;
        query2.First;        Tblobfield(query2.fieldbyname('qw')).savetostream(strstream);
        strstream.position:=0;
        OleContainer1.loadfromstream(strstream);
        
        strstream.free;
        end;

Answer 1

///////////写////////////////
ms:TMemoryStream;
begin
ms:= TMemoryStream.create;
                        OleContainer1.SaveToStream (ms);
                        ms.Position := 0;                        Query1.close;
                        Query1.sql.clear;
                        Query1.sql.text:='select *  from oadbo.bw_qwb';
                        Query1.open;
                        Query1.append;
                        Query1.fieldbyname('wjid').value:=nlwid ;
                        Query1.fieldbyname('wjdid').value:=0;
                        Query1.fieldbyname('kzm').value:='doc';
                        TBlobField(Query1.fieldbyname('qw')).loadfromstream(ms);
                        ms.free;
                        Query1.post;
                        //Query1.applyupdates;
                        Query1.close;
end;