Как определить реальный размер поля типа BLOB, которое сохранено в таблице? |
Previous Top Next |
Ниже приведена функция GetBlobSize, которая возвращает размер данного BLOB или MEMO поля.
Пример вызова:
Code: |
function GetBlobSize(Field: TBlobField): Longint; begin with TBlobStream.Create(Field, bmRead) do try Result := Seek(0, 2); finally Free; end; end;
procedure TForm1.Button1Click(Sender: TObject); begin { This sets the Edit1 edit box to display the size of } { a memo field named Notes. }
Edit1.Text := IntToStr(GetBlobSize(Notes)); end; |
©Drkb::02465
Copyright © 1996 Epsylon Technologies
Взято из FAQ Epsylon Technologies (095)-913-5608; (095)-913-2934; (095)-535-5349