Как выяснить размер BLOB-поля

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

function GetBlobSize(Field: TBlobField): LongInt;

begin

with TBlobStream.Create(Field, bmRead) do

try

Result := Seek(0, 2);

finally

Free;

end;

end;

{/codecitation}

Добавить комментарий