var
Stream: TMemoryStream;
begin
Stream := TMemoryStream.Create;
jitems.SaveTo(Stream);
Stream.Position := 0;
TBlobField(FieldByName(‘DATA_PACKET‘)).LoadFromStream(Stream);
Stream.Free;
Delphi 数据存储到oracle数据库TBLOB/TCLOB的方法
原文：https://www.cnblogs.com/cinemaparadiso/p/12073233.html