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