Tstream用来读写blob字段

 procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      s:TMemorystream;  
  begin  
      s:=TMemorystream.Create;  
      olecontainer1.SaveToStream(s);  
      ADOQuery1.Close;  
      ADOQuery1.SQL.Clear;  
      ADOQuery1.SQL.Add('insert   into   dwg   (images)   VALUES   (:tmpcad)');  
      ADOQuery1.Parameters.ParamByName('tmpcad').LoadFromStream(s,ftBlob);  
      ADOQuery1.Prepared;  
      ADOQuery1.ExecSQL;  
      s.Free;  
      showmessage('保存成功!');  
  end;  
   
   
  //从sql   server读出  
  procedure   TForm1.Button2Click(Sender:   TObject);  
  var  
      s:Tstream;  
  begin  
      ADOQuery1.Close;  
      ADOQuery1.SQL.Clear;  
      ADOQuery1.SQL.Add('select   images   from   dwg   where   id   =5');  
      ADOQuery1.Prepared;  
      ADOQuery1.Open;  
      with   ADOQuery1   do  
          s:=CreateBlobStream(ADOQuery1.FieldByName('images'),bmRead);  
      olecontainer2.LoadFromStream(s);  
      olecontainer2.SaveToFile('aaa.dwg');  
      s.Free;  
  end;