Código Delphi [-]... TBlobField(aFieldBlob).SaveToStream(stream); if (stream.Size > 0) then begin stream..Position := 0; lista.LoadFromStream(stream); ...
... TBlobField(aFieldBlob).SaveToStream(stream); if (stream.Size > 0) then begin stream..Position := 0; lista.LoadFromStream(stream); ...