Delphi - база знаний


Как определить реальный размер поля типа BLOB, которое сохранено в таблице?


Как определить реальный размер поля типа BLOB, которое сохранено в таблице?




Ниже приведена функция GetBlobSize, которая возвращает размер данного BLOB или MEMO поля.

Пример вызова:


functionGetBlobSize(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;




Copyright © 1996 Epsylon Technologies


Взято из

FAQ Epsylon Technologies (095)-913-5608; (095)-913-2934; (095)-535-5349




Начало  Назад  Вперед



Книжный магазин