关于-TBlobTream

Question

TBloBStream怎样用,uses写什么？？ 

Answer 1

我们利用它从table1的一个字段读取流数据到clientdataset1的字段中去
来自onlineprocedure TForm1.Button1Click(Sender: TObject);var
  Stream1: TBlobStream;
  Stream2: TStream;
begin
  Stream1 := TBlobStream.Create(Table1Notes, bmRead);
  //Table1Notes为一个blob字段;
  try
    ClientDataSet1.Edit;
    Stream2 := ClientDataSet1.CreateBlobStream(ClientDataSet1.FieldByName('Res'), bmReadWrite);
    try
      Stream2.CopyFrom(Stream1, Stream1.Size);
      ClientDataSet1.Post;
    finally
      Stream2.Free;
    end;  finally
    Stream1.Free;
  end;
end;