imp_dbclient.pas

Delphi脚本控件

       'procedure TAggregates_PutItems(Index: Integer;const Value: TAggregate);',
       @TAggregates_PutItems, Fake);
  RegisterProperty(TAggregates,
       'property Items[Index: Integer]:TAggregate read TAggregates_GetItems write TAggregates_PutItems;default;');
  // End of class TAggregates
  RegisterRTTIType(TypeInfo(TKeyIndex));
  RegisterRTTIType(TypeInfo(TDataPacketFormat));
  RegisterRTTIType(TypeInfo(TReconcileAction));
  RegisterRTTIType(TypeInfo(TDataSetOption));
  RegisterRTTIType(TypeInfo(TFetchOption));
  // Begin of class TClientDataSet
  RegisterClassType(TClientDataSet, H);
  RegisterMethod(TClientDataSet,
       'constructor Create(AOwner: TComponent); override;',
       @TClientDataSet.Create);
  RegisterMethod(TClientDataSet,
       'destructor Destroy; override;',
       @TClientDataSet.Destroy);
  RegisterMethod(TClientDataSet,
       'procedure AppendData(const Data: OleVariant; HitEOF: Boolean);',
       @TClientDataSet.AppendData);
  RegisterMethod(TClientDataSet,
       'procedure ApplyRange;',
       @TClientDataSet.ApplyRange);
  RegisterMethod(TClientDataSet,
       'function ApplyUpdates(MaxErrors: Integer): Integer; virtual;',
       @TClientDataSet.ApplyUpdates);
  RegisterMethod(TClientDataSet,
       'function BookmarkValid(Bookmark: TBookmark): Boolean; override;',
       @TClientDataSet.BookmarkValid);
  RegisterMethod(TClientDataSet,
       'procedure Cancel; override;',
       @TClientDataSet.Cancel);
  RegisterMethod(TClientDataSet,
       'procedure CancelRange;',
       @TClientDataSet.CancelRange);
  RegisterMethod(TClientDataSet,
       'procedure CancelUpdates;',
       @TClientDataSet.CancelUpdates);
  RegisterMethod(TClientDataSet,
       'function CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream; override;',
       @TClientDataSet.CreateBlobStream);
  RegisterMethod(TClientDataSet,
       'procedure CreateDataSet;',
       @TClientDataSet.CreateDataSet);
  RegisterMethod(TClientDataSet,
       'function CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Integer; override;',
       @TClientDataSet.CompareBookmarks);
  RegisterMethod(TClientDataSet,
       'function ConstraintsDisabled: Boolean;',
       @TClientDataSet.ConstraintsDisabled);
  RegisterMethod(TClientDataSet,
       'function DataRequest(Data: OleVariant): OleVariant; virtual;',
       @TClientDataSet.DataRequest);
  RegisterMethod(TClientDataSet,
       'procedure DeleteIndex(const Name: string);',
       @TClientDataSet.DeleteIndex);
  RegisterMethod(TClientDataSet,
       'procedure DisableConstraints;',
       @TClientDataSet.DisableConstraints);
  RegisterMethod(TClientDataSet,
       'procedure EnableConstraints;',
       @TClientDataSet.EnableConstraints);
  RegisterMethod(TClientDataSet,
       'procedure EditKey;',
       @TClientDataSet.EditKey);
  RegisterMethod(TClientDataSet,
       'procedure EditRangeEnd;',
       @TClientDataSet.EditRangeEnd);
  RegisterMethod(TClientDataSet,
       'procedure EditRangeStart;',
       @TClientDataSet.EditRangeStart);
  RegisterMethod(TClientDataSet,
       'procedure EmptyDataSet;',
       @TClientDataSet.EmptyDataSet);
  RegisterMethod(TClientDataSet,
       'procedure Execute; virtual;',
       @TClientDataSet.Execute);
  RegisterMethod(TClientDataSet,
       'procedure FetchBlobs;',
       @TClientDataSet.FetchBlobs);
  RegisterMethod(TClientDataSet,
       'procedure FetchDetails;',
       @TClientDataSet.FetchDetails);
  RegisterMethod(TClientDataSet,
       'procedure RefreshRecord;',
       @TClientDataSet.RefreshRecord);
  RegisterMethod(TClientDataSet,
       'procedure FetchParams;',
       @TClientDataSet.FetchParams);
  RegisterMethod(TClientDataSet,
       'function FindKey(const KeyValues: array of const): Boolean; virtual;',
       @TClientDataSet.FindKey);
  RegisterMethod(TClientDataSet,
       'procedure FindNearest(const KeyValues: array of const);',
       @TClientDataSet.FindNearest);
  RegisterMethod(TClientDataSet,
       'function GetCurrentRecord(Buffer: PChar): Boolean; override;',
       @TClientDataSet.GetCurrentRecord);
  RegisterMethod(TClientDataSet,
       'function GetFieldData(Field: TField; Buffer: Pointer): Boolean; override;',
       @TClientDataSet.GetFieldData);
  RegisterMethod(TClientDataSet,
       'function GetFieldData(FieldNo: Integer; Buffer: Pointer): Boolean; overload; override;',
       @TClientDataSet.GetFieldData);
  RegisterMethod(TClientDataSet,
       'function GetGroupState(Level: Integer): TGroupPosInds;',
       @TClientDataSet.GetGroupState);
  RegisterMethod(TClientDataSet,
       'procedure GetIndexInfo(IndexName: string);',
       @TClientDataSet.GetIndexInfo);
  RegisterMethod(TClientDataSet,
       'procedure GetIndexNames(List: TStrings);',
       @TClientDataSet.GetIndexNames);
  RegisterMethod(TClientDataSet,
       'function GetNextPacket: Integer;',
       @TClientDataSet.GetNextPacket);
  RegisterMethod(TClientDataSet,
       'function GetOptionalParam(const ParamName: string): OleVariant;',
       @TClientDataSet.GetOptionalParam);
  RegisterMethod(TClientDataSet,
       'procedure GotoCurrent(DataSet: TClientDataSet);',
       @TClientDataSet.GotoCurrent);
  RegisterMethod(TClientDataSet,
       'function GotoKey: Boolean;',
       @TClientDataSet.GotoKey);
  RegisterMethod(TClientDataSet,
       'procedure GotoNearest;',
       @TClientDataSet.GotoNearest);
  RegisterMethod(TClientDataSet,
       'function TClientDataSet_GetHasAppServer:Boolean;',
       @TClientDataSet_GetHasAppServer, Fake);
  RegisterProperty(TClientDataSet,
       'property HasAppServer:Boolean read TClientDataSet_GetHasAppServer;');
  RegisterMethod(TClientDataSet,
       'function Locate(const KeyFields: string; const KeyValues: Variant;      Options: TLocateOptions): Boolean; override;',
       @TClientDataSet.Locate);
  RegisterMethod(TClientDataSet,
       'function Lookup(const KeyFields: string; const KeyValues: Variant;      const ResultFields: string): Variant; override;',
       @TClientDataSet.Lookup);
  RegisterMethod(TClientDataSet,
       'procedure LoadFromStream(Stream: TStream);',
       @TClientDataSet.LoadFromStream);
  RegisterMethod(TClientDataSet,
       'procedure MergeChangeLog;',
       @TClientDataSet.MergeChangeLog);
  RegisterMethod(TClientDataSet,
       'procedure Post; override;',
       @TClientDataSet.Post);
  RegisterMethod(TClientDataSet,
       'function Reconcile(const Results: OleVariant): Boolean;',
       @TClientDataSet.Reconcile);
  RegisterMethod(TClientDataSet,
       'procedure RevertRecord;',
       @TClientDataSet.RevertRecord);
  RegisterMethod(TClientDataSet,
       'procedure SetAltRecBuffers(Old, New, Cur: PChar);',
       @TClientDataSet.SetAltRecBuffers);
  RegisterMethod(TClientDataSet,
       'procedure SetKey;',
       @TClientDataSet.SetKey);
  RegisterMethod(TClientDataSet,
       'procedure SetProvider(Provider: TComponent);',
       @TClientDataSet.SetProvider);
  RegisterMethod(TClientDataSet,
       'procedure SetRange(const StartValues, EndValues: array of const);',
       @TClientDataSet.SetRange);
  RegisterMethod(TClientDataSet,
       'procedure SetRangeEnd;',
       @TClientDataSet.SetRangeEnd);
  RegisterMethod(TClientDataSet,
       'procedure SetRangeStart;',
       @TClientDataSet.SetRangeStart);
  RegisterMethod(TClientDataSet,
       'function UndoLastChange(FollowChange: Boolean): Boolean;',
       @TClientDataSet.UndoLastChange);
  RegisterMethod(TClientDataSet,
       'function UpdateStatus: TUpdateStatus; override;',
       @TClientDataSet.UpdateStatus);
  RegisterMethod(TClientDataSet,
       'function TClientDataSet_GetActiveAggs(Index: Integer):TList;',
       @TClientDataSet_GetActiveAggs, Fake);
  RegisterProperty(TClientDataSet,
       'property ActiveAggs[Index: Integer]:TList read TClientDataSet_GetActiveAggs;');
  RegisterMethod(TClientDataSet,
       'function TClientDataSet_GetChangeCount:Integer;',
       @TClientDataSet_GetChangeCount, Fake);
  RegisterProperty(TClientDataSet,
       'property ChangeCount:Integer read TClientDataSet_GetChangeCount;');
  RegisterMethod(TClientDataSet,
       'function TClientDataSet_GetAppServer:IAppServer;',
       @TClientDataSet_GetAppServer, Fake);
  RegisterMethod(TClientDataSet,
       'procedure TClientDataSet_PutAppServer(const Value: IAppServer);',
       @TClientDataSet_PutAppServer, Fake);
  RegisterProperty(TClientDataSet,
       'property AppServer:IAppServer read TClientDataSet_GetAppServer write TClientDataSet_PutAppServer;');
  RegisterMethod(TClientDataSet,
       'function TClientDataSet_GetDataSize:Integer;',
       @TClientDataSet_GetDataSize, Fake);
  RegisterProperty(TClientDataSet,
       'property DataSize:Integer read TClientDataSet_GetDataSize;');
  RegisterMethod(TClientDataSet,
       'function TClientDataSet_GetDelta:OleVariant;',
       @TClientDataSet_GetDelta, Fake);
  RegisterProperty(TClientDataSet,
       'property Delta:OleVariant read TClientDataSet_GetDelta;');
  RegisterMethod(TClientDataSet,
       'function TClientDataSet_GetGroupingLevel:Integer;',
       @TClientDataSet_GetGroupingLevel, Fake);
  RegisterProperty(TClientDataSet,
       'property GroupingLevel:Integer read TClientDataSet_GetGroupingLevel;');
  RegisterMethod(TClientDataSet,
       'function TClientDataSet_GetIndexFieldCount:Integer;',
       @TClientDataSet_GetIndexFieldCount, Fake);
  RegisterProperty(TClientDataSet,
       'property IndexFieldCount:Integer read TClientDataSet_GetIndexFieldCount;');
  RegisterMethod(TClientDataSet,
       'function TClientDataSet_GetIndexFields(Index: Integer):TField;',
       @TClientDataSet_GetIndexFields, Fake);
  RegisterMethod(TClientDataSet,
       'procedure TClientDataSet_PutIndexFields(Index: Integer;const Value: TField);',
       @TClientDataSet_PutIndexFields, Fake);
  RegisterProperty(TClientDataSet,
       'property IndexFields[Index: Integer]:TField read TClientDataSet_GetIndexFields write TClientDataSet_PutIndexFields;');
  RegisterMethod(TClientDataSet,
       'function TClientDataSet_GetKeyExclusive:Boolean;',
       @TClientDataSet_GetKeyExclusive, Fake);
  RegisterMethod(TClientDataSet,
       'procedure TClientDataSet_PutKeyExclusive(const Value: Boolean);',
       @TClientDataSet_PutKeyExclusive, Fake);
  RegisterProperty(TClientDataSet,
       'property KeyExclusive:Boolean read TClientDataSet_GetKeyExclusive write TClientDataSet_PutKeyExclusive;');
  RegisterMethod(TClientDataSet,
       'function TClientDataSet_GetKeyFieldCount:Integer;',
       @TClientDataSet_GetKeyFieldCount, Fake);
  RegisterMethod(TClientDataSet,
       'procedure TClientDataSet_PutKeyFieldCount(const Value: Integer);',
       @TClientDataSet_PutKeyFieldCount, Fake);
  RegisterProperty(TClientDataSet,
       'property KeyFieldCount:Integer read TClientDataSet_GetKeyFieldCount write TClientDataSet_PutKeyFieldCount;');
  RegisterMethod(TClientDataSet,
       'function TClientDataSet_GetKeySize:Word;',
       @TClientDataSet_GetKeySize, Fake);
  RegisterProperty(TClientDataSet,
       'property KeySize:Word read TClientDataSet_GetKeySize;');
  RegisterMethod(TClientDataSet,
       'function TClientDataSet_GetLogChanges:Boolean;',
       @TClientDataSet_GetLogChanges, Fake);
  RegisterMethod(TClientDataSet,
       'procedure TClientDataSet_PutLogChanges(const Value: Boolean);',
       @TClientDataSet_PutLogChanges, Fake);
  RegisterProperty(TClientDataSet,
       'property LogChanges:Boolean read TClientDataSet_GetLogChanges write TClientDataSet_PutLogChanges;');
  RegisterMethod(TClientDataSet,
       'function TClientDataSet_GetSavePoint:Integer;',
       @TClientDataSet_GetSavePoint, Fake);
  RegisterMethod(TClientDataSet,
       'procedure TClientDataSet_PutSavePoint(const Value: Integer);',
       @TClientDataSet_PutSavePoint, Fake);
  RegisterProperty(TClientDataSet,
       'property SavePoint:Integer read TClientDataSet_GetSavePoint write TClientDataSet_PutSavePoint;');
  RegisterMethod(TClientDataSet,
       'function TClientDataSet_GetStatusFilter:TUpdateStatusSet;',
       @TClientDataSet_GetStatusFilter, Fake);
  RegisterMethod(TClientDataSet,
       'procedure TClientDataSet_PutStatusFilter(const Value: TUpdateStatusSet);',
       @TClientDataSet_PutStatusFilter, Fake);
  RegisterProperty(TClientDataSet,
       'property StatusFilter:TUpdateStatusSet read TClientDataSet_GetStatusFilter write TClientDataSet_PutStatusFilter;');
  // End of class TClientDataSet
  // Begin of class TClientBlobStream
  RegisterClassType(TClientBlobStream, H);
  RegisterMethod(TClientBlobStream,
       'constructor Create(Field: TBlobField; Mode: TBlobStreamMode);',
       @TClientBlobStream.Create);
  RegisterMethod(TClientBlobStream,
       'destructor Destroy; override;',
       @TClientBlobStream.Destroy);
  RegisterMethod(TClientBlobStream,
       'function Write(const Buffer; Count: Longint): Longint; override;',
       @TClientBlobStream.Write);
  RegisterMethod(TClientBlobStream,
       'procedure Truncate;',
       @TClientBlobStream.Truncate);
  // End of class TClientBlobStream
  RegisterRoutine('procedure UnpackParams(const Source: OleVariant; Dest: TParams);', @UnpackParams, H);
end;

{$ENDIF}
initialization
  RegisterIMP_dbclient;
end.