TDataPacketHandler¶

type

  TDataPacketHandler = class(TObject)
    FDataSet: type

      TCustomBufDataset = class;
    var
      FStream: type

      TStream = class(TObject)
        procedure InvalidSeek;
        procedure Discard;
        procedure DiscardLarge;
        procedure FakeSeekForward;
        procedure GetPosition;
        procedure SetPosition;
        procedure GetSize;
        procedure SetSize64;
        procedure SetSize;
        procedure ReadNotImplemented;
        procedure WriteNotImplemented;
        procedure ReadMaxSizeData;
        procedure ReadExactSizeData;
        procedure WriteMaxSizeData;
        procedure WriteExactSizeData;
        procedure DefaultWriteUnitname;
        procedure Read;
        procedure Read64;
        procedure Write;
        procedure Write64;
        procedure Seek;
        procedure ReadData;
        procedure ReadBuffer;
        procedure ReadBufferData;
        procedure WriteBuffer;
        procedure WriteData;
        procedure WriteBufferData;
        procedure CopyFrom;
        procedure ReadComponent;
        procedure ReadComponentRes;
        procedure WriteComponent;
        procedure WriteComponentRes;
        procedure WriteDescendent;
        procedure WriteDescendentRes;
        procedure WriteResourceHeader;
        procedure FixupResourceHeader;
        procedure ReadResHeader;
        procedure ReadByte;
        procedure ReadWord;
        procedure ReadDWord;
        procedure ReadQWord;
        procedure ReadAnsiString;
        procedure ReadUnicodeString;
        procedure WriteByte;
        procedure WriteWord;
        procedure WriteDWord;
        procedure WriteQWord;
        procedure WriteAnsiString;
        procedure WriteUnicodeString;
        property Position; {rw}
        property Size; {rw}
      end;
    public
      constructor Create;
      procedure LoadFieldDefs;
      procedure InitLoadRecords;
      function GetCurrentRecord : Boolean;
      function GetRecordRowState : TRowState;
      procedure RestoreRecord;
      procedure GotoNextRecord;
      procedure StoreFieldDefs;
      procedure StoreRecord;
      procedure FinalizeStoreRecords;
      class function RecognizeStream : Boolean;
  end;