TBlobField

type TBlobField = class(TField)

protected

  procedure AssignTo(); override;

  procedure FreeBuffers; override;

  function GetAsString; override;

  function GetAsVariant; override;

  function GetBlobSize; virtual;

  function GetIsNull; override;

  procedure GetText(); override;

  procedure SetAsString(); override;

  procedure SetText(); override;

  procedure SetVarValue(); override;

  function GetAsWideString; override;

  procedure SetAsWideString(); override;

public

  constructor Create(); override;

  procedure Assign(); override;

  procedure Clear; override;

  function IsBlob; override;

  procedure LoadFromFile();

  procedure LoadFromStream();

  procedure SaveToFile();

  procedure SaveToStream();

  procedure SetFieldType(); override;

  property BlobSize: LongInt; [r]

  property Modified: Boolean; [rw]

  property Value: String; [rw]

  property Transliterate: Boolean; [rw]

published

  property BlobType: TBlobType; [rw]

  property Size;

end;

TBlobField

TField

TComponent

TObject