Save a Report in a Dataset

Comments

• swm

  August 2005 edited 7:25PM

  be inspired ;-)
  
  ms:=TMemoryStream.Create;
  try
  Report.SaveToStream(ms);
  ms.Position:=0;
  Conn.Connected:=true;
  Qry.SQL.Text:=Format('SELECT FROM WHERE', []);
  Qry.Open;
  try
  BlobField:=TBlobField(Qry.Fields[xxx]);
  if Qry.RecordCount=0 then Qry.Append else Qry.Edit;
  BlobField.LoadFromStream(ms);
  Qry.Post;
  finally
  Qry.Close;
  Conn.Connected:=false;
  end;
  finally
  if ms<>nil then ms.Free;
  if Qry.Active then Qry.Close;
  if Conn.Connected then Conn.Connected:=false;
  end;