Example: Create, CreateBlobStream, Edit, CopyFrom

The following example copies the data in the Notes field of EDBTable1 to the Remarks field of EDBTable2.

procedure TForm1.Button1Click(Sender: TObject);
var
  Stream1, Stream2 : TBlobStream;
begin
  Stream1 := TBlobStream.Create(EDBTable1Notes, bmRead);
  try
    EDBTable2.Edit;
    // Here's a different way to create a blob stream
    Stream2 := EDBTable2.CreateBlobStream(EDBTable2.FieldByName('Remarks'),
                                            bmReadWrite);
    try
      Stream2.CopyFrom(Stream1, Stream1.Size);
      EDBTable2.Post;
    finally
      Stream2.Free;
    end;
  finally
    Stream1.Free;
  end;
end;