Главная страница | назад





Article #17422: Copying a information from one memo field to another using TBlobStream

 Question and Answer Database

FAQ2422D.txt   Copying a information from one memo field to another using TBlobStream
Category   :Database/VCL
Platform    :All
Product    :All 32 bit  

Question:
How do I copy information from one memo field in one table
to another memo field in another table?


Answer:
Here's an example using a TBlobStream:

procedure TForm1.Button1Click(Sender: TObject);
var
  BS1, BS2: TBlobStream;
begin
  BS1 := TBlobStream.Create(Table1Notes,bmRead);
  try
    Table2.Edit;
    BS2 := TBlobStream.Create(Table2MyBlob,bmReadWrite);
    try
      BS2.CopyFrom(BS1,BS1.Size);
    finally
      BS2.Free;
    end;
  finally
    BS1.Free;
  end;
  Table2.Post;
end;


7/16/98 4:31:28 PM
 

Last Modified: 01-SEP-99