Как определить реальный размер поля типа 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