blobdib.int

来自「Delphi Dib usage component... D3-4-5 but」· INT 代码 · 共 27 行

unit BlobDib;

//-----------------------------------------------
// Extends the TDIB class to support TBlobField assignments
//
// Author: Lubomir Antonov   Version: 1.3
//
//-----------------------------------------------

interface

uses CDIBs, DB, DBTables, Classes;

type
  // An extended DIB class that can work with blob fields
  TBlobDIB = class( TDIB )
    private
      procedure AssignFromBlobField( Source: TBlobField );
      procedure AssignToBlobField( Dest: TBlobField );
    protected
      procedure AssignTo( Dest: TPersistent ); override;
    public
      procedure Assign( Source: TPersistent ); override;
  end;

implementation