Mega Code Archive

 

Categories / Delphi / ADO Database

 

[] Blob size

Function GetBlobSize(Field: TBlobField): LongInt; begin with TBlobStream.Create(Field, bmRead) do try Result := Seek(0, 2); finally Free; end; end;