imp_dbclient.pas

Delphi脚本控件

       @TAggregates.Create);
  RegisterMethod(TAggregates,
       'function Add: TAggregate;',
       @TAggregates.Add);
  RegisterMethod(TAggregates,
       'procedure Clear;',
       @TAggregates.Clear);
  RegisterMethod(TAggregates,
       'function Find(const DisplayName: string): TAggregate;',
       @TAggregates.Find);
  RegisterMethod(TAggregates,
       'function IndexOf(const DisplayName: string): Integer;',
       @TAggregates.IndexOf);
  RegisterMethod(TAggregates,
       'function TAggregates_ReadItems(Index: Integer):TAggregate;',
       @TAggregates_ReadItems, Fake);
  RegisterMethod(TAggregates,
       'procedure TAggregates_WriteItems(Index: Integer;const Value: TAggregate);',
       @TAggregates_WriteItems, Fake);
  RegisterProperty(TAggregates,
       'property Items[Index: Integer]:TAggregate read TAggregates_ReadItems write TAggregates_WriteItems;default;');
  // End of class TAggregates
  RegisterRTTIType(TypeInfo(TKeyIndex));
  RegisterRTTIType(TypeInfo(TDataPacketFormat));
  RegisterRTTIType(TypeInfo(TReconcileAction));
  RegisterRTTIType(TypeInfo(TDataSetOption));
  RegisterRTTIType(TypeInfo(TFetchOption));
  // Begin of class TCustomClientDataSet
  RegisterClassType(TCustomClientDataSet, H);
  RegisterMethod(TCustomClientDataSet,
       'constructor Create(AOwner: TComponent); override;',
       @TCustomClientDataSet.Create);
  RegisterMethod(TCustomClientDataSet,
       'destructor Destroy; override;',
       @TCustomClientDataSet.Destroy);
  RegisterMethod(TCustomClientDataSet,
       'procedure AppendData(const Data: OleVariant; HitEOF: Boolean);',
       @TCustomClientDataSet.AppendData);
  RegisterMethod(TCustomClientDataSet,
       'procedure ApplyRange;',
       @TCustomClientDataSet.ApplyRange);
  RegisterMethod(TCustomClientDataSet,
       'function ApplyUpdates(MaxErrors: Integer): Integer; virtual;',
       @TCustomClientDataSet.ApplyUpdates);
  RegisterMethod(TCustomClientDataSet,
       'function BookmarkValid(Bookmark: TBookmark): Boolean; override;',
       @TCustomClientDataSet.BookmarkValid);
  RegisterMethod(TCustomClientDataSet,
       'procedure Cancel; override;',
       @TCustomClientDataSet.Cancel);
  RegisterMethod(TCustomClientDataSet,
       'procedure CancelRange;',
       @TCustomClientDataSet.CancelRange);
  RegisterMethod(TCustomClientDataSet,
       'procedure CancelUpdates;',
       @TCustomClientDataSet.CancelUpdates);
  RegisterMethod(TCustomClientDataSet,
       'function CreateBlobStream(Field: TField; Mode: TBlobStreamMode): TStream; override;',
       @TCustomClientDataSet.CreateBlobStream);
  RegisterMethod(TCustomClientDataSet,
       'procedure CreateDataSet;',
       @TCustomClientDataSet.CreateDataSet);
  RegisterMethod(TCustomClientDataSet,
       'function CompareBookmarks(Bookmark1, Bookmark2: TBookmark): Integer; override;',
       @TCustomClientDataSet.CompareBookmarks);
  RegisterMethod(TCustomClientDataSet,
       'function ConstraintsDisabled: Boolean;',
       @TCustomClientDataSet.ConstraintsDisabled);
  RegisterMethod(TCustomClientDataSet,
       'function DataRequest(Data: OleVariant): OleVariant; virtual;',
       @TCustomClientDataSet.DataRequest);
  RegisterMethod(TCustomClientDataSet,
       'procedure DeleteIndex(const Name: string);',
       @TCustomClientDataSet.DeleteIndex);
  RegisterMethod(TCustomClientDataSet,
       'procedure DisableConstraints;',
       @TCustomClientDataSet.DisableConstraints);
  RegisterMethod(TCustomClientDataSet,
       'procedure EnableConstraints;',
       @TCustomClientDataSet.EnableConstraints);
  RegisterMethod(TCustomClientDataSet,
       'procedure EditKey;',
       @TCustomClientDataSet.EditKey);
  RegisterMethod(TCustomClientDataSet,
       'procedure EditRangeEnd;',
       @TCustomClientDataSet.EditRangeEnd);
  RegisterMethod(TCustomClientDataSet,
       'procedure EditRangeStart;',
       @TCustomClientDataSet.EditRangeStart);
  RegisterMethod(TCustomClientDataSet,
       'procedure EmptyDataSet;',
       @TCustomClientDataSet.EmptyDataSet);
  RegisterMethod(TCustomClientDataSet,
       'procedure Execute; virtual;',
       @TCustomClientDataSet.Execute);
  RegisterMethod(TCustomClientDataSet,
       'procedure FetchBlobs;',
       @TCustomClientDataSet.FetchBlobs);
  RegisterMethod(TCustomClientDataSet,
       'procedure FetchDetails;',
       @TCustomClientDataSet.FetchDetails);
  RegisterMethod(TCustomClientDataSet,
       'procedure RefreshRecord;',
       @TCustomClientDataSet.RefreshRecord);
  RegisterMethod(TCustomClientDataSet,
       'procedure FetchParams;',
       @TCustomClientDataSet.FetchParams);
  RegisterMethod(TCustomClientDataSet,
       'function FindKey(const KeyValues: array of const): Boolean; virtual;',
       @TCustomClientDataSet.FindKey);
  RegisterMethod(TCustomClientDataSet,
       'procedure FindNearest(const KeyValues: array of const);',
       @TCustomClientDataSet.FindNearest);
  RegisterMethod(TCustomClientDataSet,
       'function GetCurrentRecord(Buffer: PChar): Boolean; override;',
       @TCustomClientDataSet.GetCurrentRecord);
  RegisterMethod(TCustomClientDataSet,
       'function GetFieldData(Field: TField; Buffer: Pointer): Boolean; override;',
       @TCustomClientDataSet.GetFieldData);
  RegisterMethod(TCustomClientDataSet,
       'function GetFieldData(FieldNo: Integer; Buffer: Pointer): Boolean; overload; override;',
       @TCustomClientDataSet.GetFieldData);
  RegisterMethod(TCustomClientDataSet,
       'function GetGroupState(Level: Integer): TGroupPosInds;',
       @TCustomClientDataSet.GetGroupState);
  RegisterMethod(TCustomClientDataSet,
       'procedure GetIndexInfo(IndexName: string);',
       @TCustomClientDataSet.GetIndexInfo);
  RegisterMethod(TCustomClientDataSet,
       'procedure GetIndexNames(List: TStrings);',
       @TCustomClientDataSet.GetIndexNames);
  RegisterMethod(TCustomClientDataSet,
       'function GetNextPacket: Integer;',
       @TCustomClientDataSet.GetNextPacket);
  RegisterMethod(TCustomClientDataSet,
       'function GetOptionalParam(const ParamName: string): OleVariant;',
       @TCustomClientDataSet.GetOptionalParam);
  RegisterMethod(TCustomClientDataSet,
       'procedure GotoCurrent(DataSet: TCustomClientDataSet);',
       @TCustomClientDataSet.GotoCurrent);
  RegisterMethod(TCustomClientDataSet,
       'function GotoKey: Boolean;',
       @TCustomClientDataSet.GotoKey);
  RegisterMethod(TCustomClientDataSet,
       'procedure GotoNearest;',
       @TCustomClientDataSet.GotoNearest);
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadHasAppServer:Boolean;',
       @TCustomClientDataSet_ReadHasAppServer, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property HasAppServer:Boolean read TCustomClientDataSet_ReadHasAppServer;');
  RegisterMethod(TCustomClientDataSet,
       'function Locate(const KeyFields: string; const KeyValues: Variant;      Options: TLocateOptions): Boolean; override;',
       @TCustomClientDataSet.Locate);
  RegisterMethod(TCustomClientDataSet,
       'function Lookup(const KeyFields: string; const KeyValues: Variant;      const ResultFields: string): Variant; override;',
       @TCustomClientDataSet.Lookup);
  RegisterMethod(TCustomClientDataSet,
       'procedure LoadFromStream(Stream: TStream);',
       @TCustomClientDataSet.LoadFromStream);
  RegisterMethod(TCustomClientDataSet,
       'procedure LoadFromFile(const FileName: string);',
       @TCustomClientDataSet.LoadFromFile);
  RegisterMethod(TCustomClientDataSet,
       'procedure MergeChangeLog;',
       @TCustomClientDataSet.MergeChangeLog);
  RegisterMethod(TCustomClientDataSet,
       'procedure Post; override;',
       @TCustomClientDataSet.Post);
  RegisterMethod(TCustomClientDataSet,
       'function Reconcile(const Results: OleVariant): Boolean;',
       @TCustomClientDataSet.Reconcile);
  RegisterMethod(TCustomClientDataSet,
       'procedure RevertRecord;',
       @TCustomClientDataSet.RevertRecord);
  RegisterMethod(TCustomClientDataSet,
       'procedure SetAltRecBuffers(Old, New, Cur: PChar);',
       @TCustomClientDataSet.SetAltRecBuffers);
  RegisterMethod(TCustomClientDataSet,
       'procedure SetKey;',
       @TCustomClientDataSet.SetKey);
  RegisterMethod(TCustomClientDataSet,
       'procedure SetProvider(Provider: TComponent);',
       @TCustomClientDataSet.SetProvider);
  RegisterMethod(TCustomClientDataSet,
       'procedure SetRange(const StartValues, EndValues: array of const);',
       @TCustomClientDataSet.SetRange);
  RegisterMethod(TCustomClientDataSet,
       'procedure SetRangeEnd;',
       @TCustomClientDataSet.SetRangeEnd);
  RegisterMethod(TCustomClientDataSet,
       'procedure SetRangeStart;',
       @TCustomClientDataSet.SetRangeStart);
  RegisterMethod(TCustomClientDataSet,
       'function UndoLastChange(FollowChange: Boolean): Boolean;',
       @TCustomClientDataSet.UndoLastChange);
  RegisterMethod(TCustomClientDataSet,
       'function UpdateStatus: TUpdateStatus; override;',
       @TCustomClientDataSet.UpdateStatus);
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadActiveAggs(Index: Integer):TList;',
       @TCustomClientDataSet_ReadActiveAggs, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property ActiveAggs[Index: Integer]:TList read TCustomClientDataSet_ReadActiveAggs;');
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadChangeCount:Integer;',
       @TCustomClientDataSet_ReadChangeCount, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property ChangeCount:Integer read TCustomClientDataSet_ReadChangeCount;');
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadCloneSource:TCustomClientDataSet;',
       @TCustomClientDataSet_ReadCloneSource, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property CloneSource:TCustomClientDataSet read TCustomClientDataSet_ReadCloneSource;');
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadData:OleVariant;',
       @TCustomClientDataSet_ReadData, Fake);
  RegisterMethod(TCustomClientDataSet,
       'procedure TCustomClientDataSet_WriteData(const Value: OleVariant);',
       @TCustomClientDataSet_WriteData, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property Data:OleVariant read TCustomClientDataSet_ReadData write TCustomClientDataSet_WriteData;');
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadXMLData:String;',
       @TCustomClientDataSet_ReadXMLData, Fake);
  RegisterMethod(TCustomClientDataSet,
       'procedure TCustomClientDataSet_WriteXMLData(const Value: String);',
       @TCustomClientDataSet_WriteXMLData, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property XMLData:String read TCustomClientDataSet_ReadXMLData write TCustomClientDataSet_WriteXMLData;');
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadAppServer:IAppServer;',
       @TCustomClientDataSet_ReadAppServer, Fake);
  RegisterMethod(TCustomClientDataSet,
       'procedure TCustomClientDataSet_WriteAppServer(const Value: IAppServer);',
       @TCustomClientDataSet_WriteAppServer, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property AppServer:IAppServer read TCustomClientDataSet_ReadAppServer write TCustomClientDataSet_WriteAppServer;');
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadDataSize:Integer;',
       @TCustomClientDataSet_ReadDataSize, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property DataSize:Integer read TCustomClientDataSet_ReadDataSize;');
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadDelta:OleVariant;',
       @TCustomClientDataSet_ReadDelta, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property Delta:OleVariant read TCustomClientDataSet_ReadDelta;');
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadGroupingLevel:Integer;',
       @TCustomClientDataSet_ReadGroupingLevel, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property GroupingLevel:Integer read TCustomClientDataSet_ReadGroupingLevel;');
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadIndexFieldCount:Integer;',
       @TCustomClientDataSet_ReadIndexFieldCount, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property IndexFieldCount:Integer read TCustomClientDataSet_ReadIndexFieldCount;');
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadIndexFields(Index: Integer):TField;',
       @TCustomClientDataSet_ReadIndexFields, Fake);
  RegisterMethod(TCustomClientDataSet,
       'procedure TCustomClientDataSet_WriteIndexFields(Index: Integer;const Value: TField);',
       @TCustomClientDataSet_WriteIndexFields, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property IndexFields[Index: Integer]:TField read TCustomClientDataSet_ReadIndexFields write TCustomClientDataSet_WriteIndexFields;');
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadKeyExclusive:Boolean;',
       @TCustomClientDataSet_ReadKeyExclusive, Fake);
  RegisterMethod(TCustomClientDataSet,
       'procedure TCustomClientDataSet_WriteKeyExclusive(const Value: Boolean);',
       @TCustomClientDataSet_WriteKeyExclusive, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property KeyExclusive:Boolean read TCustomClientDataSet_ReadKeyExclusive write TCustomClientDataSet_WriteKeyExclusive;');
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadKeyFieldCount:Integer;',
       @TCustomClientDataSet_ReadKeyFieldCount, Fake);
  RegisterMethod(TCustomClientDataSet,
       'procedure TCustomClientDataSet_WriteKeyFieldCount(const Value: Integer);',
       @TCustomClientDataSet_WriteKeyFieldCount, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property KeyFieldCount:Integer read TCustomClientDataSet_ReadKeyFieldCount write TCustomClientDataSet_WriteKeyFieldCount;');
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadKeySize:Word;',
       @TCustomClientDataSet_ReadKeySize, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property KeySize:Word read TCustomClientDataSet_ReadKeySize;');
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadLogChanges:Boolean;',
       @TCustomClientDataSet_ReadLogChanges, Fake);
  RegisterMethod(TCustomClientDataSet,
       'procedure TCustomClientDataSet_WriteLogChanges(const Value: Boolean);',
       @TCustomClientDataSet_WriteLogChanges, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property LogChanges:Boolean read TCustomClientDataSet_ReadLogChanges write TCustomClientDataSet_WriteLogChanges;');