----- Original Message -----
From: "Arn" <arnofab@...>
Subject: [IBO] How to pass a stream into a blob field?


> Hi all.
> I am dealing with the now open source Lock Box of Infopower.
>
> The RSA component has a property StoreToStream eg
> Var
> TS :TStream;
> ..... snip .....
> RSA.PublicKey.StoreToStream( TS );

var PICTField: TIB_ColumnBlob;
TS :TStream;

PICTField:= TIB_ColumnBlob( qry.FieldByName( 'BLOB_Field' ));
TS:=cr.CreateBlobStream(PICTField,bsmwrite);
try
RSA.PublicKey.StoreToStream( TS );
qry.post;
finally
TS.free;
end;