Как выяснить размер BLOB-поля function GetBlobSize(Field: TBlobField): LongInt; begin with TBlobStream.Create(Field, bmRead) do try Result := Seek(0, 2); finally Free; end; end; Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru Источник получения информации: http://www.delphiworld.narod.ru
function GetBlobSize(Field: TBlobField): LongInt; begin with TBlobStream.Create(Field, bmRead) do try Result := Seek(0, 2); finally Free; end; end;