imp_dbclient.pas

Delphi脚本控件

{$IFDEF VER140}
  {$DEFINE Delphi6_UP}
{$ENDIF}

{$IFDEF VER150}
  {$DEFINE Delphi6_UP}
{$ENDIF}

{$IFDEF Delphi6_UP}
unit IMP_DBClient;
interface
uses
  Windows,
  SysUtils,
  VarUtils,
  Variants,
  Classes,
  DB,
  DSIntf,
  DBCommon,
  Midas,
  SqlTimSt,
  ActiveX,
  DBClient,
  PaxScripter;
procedure RegisterIMP_DBClient;
implementation
function EDBClient_ReadErrorCode:DBResult;
begin
  result := EDBClient(_Self).ErrorCode;
end;
function EReconcileError_ReadContext:String;
begin
  result := EReconcileError(_Self).Context;
end;
function EReconcileError_ReadPreviousError:DBResult;
begin
  result := EReconcileError(_Self).PreviousError;
end;
function TCustomRemoteServer_ReadAppServer:Variant;
begin
  result := TCustomRemoteServer(_Self).AppServer;
end;
function TAggregate_ReadAggHandle:HDSAggregate;
begin
  result := TAggregate(_Self).AggHandle;
end;
procedure TAggregate_WriteAggHandle(const Value: HDSAggregate);
begin
  TAggregate(_Self).AggHandle := Value;
end;
function TAggregate_ReadInUse:Boolean;
begin
  result := TAggregate(_Self).InUse;
end;
procedure TAggregate_WriteInUse(const Value: Boolean);
begin
  TAggregate(_Self).InUse := Value;
end;
function TAggregate_ReadDataSet:TCustomClientDataSet;
begin
  result := TAggregate(_Self).DataSet;
end;
function TAggregate_ReadDataSize:Integer;
begin
  result := TAggregate(_Self).DataSize;
end;
function TAggregate_ReadDataType:TFieldType;
begin
  result := TAggregate(_Self).DataType;
end;
function TAggregates_ReadItems(Index: Integer):TAggregate;
begin
  result := TAggregates(_Self).Items[Index];
end;
procedure TAggregates_WriteItems(Index: Integer;const Value: TAggregate);
begin
  TAggregates(_Self).Items[Index] := Value;
end;
function TCustomClientDataSet_ReadHasAppServer:Boolean;
begin
  result := TCustomClientDataSet(_Self).HasAppServer;
end;
function TCustomClientDataSet_ReadActiveAggs(Index: Integer):TList;
begin
  result := TCustomClientDataSet(_Self).ActiveAggs[Index];
end;
function TCustomClientDataSet_ReadChangeCount:Integer;
begin
  result := TCustomClientDataSet(_Self).ChangeCount;
end;
function TCustomClientDataSet_ReadCloneSource:TCustomClientDataSet;
begin
  result := TCustomClientDataSet(_Self).CloneSource;
end;
function TCustomClientDataSet_ReadData:OleVariant;
begin
  result := TCustomClientDataSet(_Self).Data;
end;
procedure TCustomClientDataSet_WriteData(const Value: OleVariant);
begin
  TCustomClientDataSet(_Self).Data := Value;
end;
function TCustomClientDataSet_ReadXMLData:String;
begin
  result := TCustomClientDataSet(_Self).XMLData;
end;
procedure TCustomClientDataSet_WriteXMLData(const Value: String);
begin
  TCustomClientDataSet(_Self).XMLData := Value;
end;
function TCustomClientDataSet_ReadAppServer:IAppServer;
begin
  result := TCustomClientDataSet(_Self).AppServer;
end;
procedure TCustomClientDataSet_WriteAppServer(const Value: IAppServer);
begin
  TCustomClientDataSet(_Self).AppServer := Value;
end;
function TCustomClientDataSet_ReadDataSize:Integer;
begin
  result := TCustomClientDataSet(_Self).DataSize;
end;
function TCustomClientDataSet_ReadDelta:OleVariant;
begin
  result := TCustomClientDataSet(_Self).Delta;
end;
function TCustomClientDataSet_ReadGroupingLevel:Integer;
begin
  result := TCustomClientDataSet(_Self).GroupingLevel;
end;
function TCustomClientDataSet_ReadIndexFieldCount:Integer;
begin
  result := TCustomClientDataSet(_Self).IndexFieldCount;
end;
function TCustomClientDataSet_ReadIndexFields(Index: Integer):TField;
begin
  result := TCustomClientDataSet(_Self).IndexFields[Index];
end;
procedure TCustomClientDataSet_WriteIndexFields(Index: Integer;const Value: TField);
begin
  TCustomClientDataSet(_Self).IndexFields[Index] := Value;
end;
function TCustomClientDataSet_ReadKeyExclusive:Boolean;
begin
  result := TCustomClientDataSet(_Self).KeyExclusive;
end;
procedure TCustomClientDataSet_WriteKeyExclusive(const Value: Boolean);
begin
  TCustomClientDataSet(_Self).KeyExclusive := Value;
end;
function TCustomClientDataSet_ReadKeyFieldCount:Integer;
begin
  result := TCustomClientDataSet(_Self).KeyFieldCount;
end;
procedure TCustomClientDataSet_WriteKeyFieldCount(const Value: Integer);
begin
  TCustomClientDataSet(_Self).KeyFieldCount := Value;
end;
function TCustomClientDataSet_ReadKeySize:Word;
begin
  result := TCustomClientDataSet(_Self).KeySize;
end;
function TCustomClientDataSet_ReadLogChanges:Boolean;
begin
  result := TCustomClientDataSet(_Self).LogChanges;
end;
procedure TCustomClientDataSet_WriteLogChanges(const Value: Boolean);
begin
  TCustomClientDataSet(_Self).LogChanges := Value;
end;
function TCustomClientDataSet_ReadSavePoint:Integer;
begin
  result := TCustomClientDataSet(_Self).SavePoint;
end;
procedure TCustomClientDataSet_WriteSavePoint(const Value: Integer);
begin
  TCustomClientDataSet(_Self).SavePoint := Value;
end;
function TCustomClientDataSet_ReadStatusFilter:TUpdateStatusSet;
begin
  result := TCustomClientDataSet(_Self).StatusFilter;
end;
procedure TCustomClientDataSet_WriteStatusFilter(const Value: TUpdateStatusSet);
begin
  TCustomClientDataSet(_Self).StatusFilter := Value;
end;
procedure RegisterIMP_DBClient;
var H: Integer;
begin
  H := RegisterNamespace('DBClient', -1);
  // Begin of class EDBClient
  RegisterClassType(EDBClient, H);
  RegisterMethod(EDBClient,
       'constructor Create(Message: string; ErrorCode: DBResult);',
       @EDBClient.Create);
  RegisterMethod(EDBClient,
       'function EDBClient_ReadErrorCode:DBResult;',
       @EDBClient_ReadErrorCode, Fake);
  RegisterProperty(EDBClient,
       'property ErrorCode:DBResult read EDBClient_ReadErrorCode;');
  // End of class EDBClient
  // Begin of class EReconcileError
  RegisterClassType(EReconcileError, H);
  RegisterMethod(EReconcileError,
       'constructor Create(NativeError, Context: string;      ErrorCode, PreviousError: DBResult);',
       @EReconcileError.Create);
  RegisterMethod(EReconcileError,
       'function EReconcileError_ReadContext:String;',
       @EReconcileError_ReadContext, Fake);
  RegisterProperty(EReconcileError,
       'property Context:String read EReconcileError_ReadContext;');
  RegisterMethod(EReconcileError,
       'function EReconcileError_ReadPreviousError:DBResult;',
       @EReconcileError_ReadPreviousError, Fake);
  RegisterProperty(EReconcileError,
       'property PreviousError:DBResult read EReconcileError_ReadPreviousError;');
  // End of class EReconcileError
  // Begin of class TCustomRemoteServer
  RegisterClassType(TCustomRemoteServer, H);
  RegisterMethod(TCustomRemoteServer,
       'constructor Create(AOwner: TComponent); override;',
       @TCustomRemoteServer.Create);
  RegisterMethod(TCustomRemoteServer,
       'function GetServer: IAppServer; virtual;',
       @TCustomRemoteServer.GetServer);
  RegisterMethod(TCustomRemoteServer,
       'function TCustomRemoteServer_ReadAppServer:Variant;',

       @TCustomRemoteServer_ReadAppServer, Fake);
  RegisterProperty(TCustomRemoteServer,
       'property AppServer:Variant read TCustomRemoteServer_ReadAppServer;');
  // End of class TCustomRemoteServer
  // Begin of class TConnectionBroker
  RegisterClassType(TConnectionBroker, H);
  RegisterMethod(TConnectionBroker,
       'constructor Create(AOwner: TComponent); override;',
       @TConnectionBroker.Create);
  RegisterMethod(TConnectionBroker,
       'function GetServer: IAppServer; override;',
       @TConnectionBroker.GetServer);
  // End of class TConnectionBroker
  // Begin of class TAggregate
  RegisterClassType(TAggregate, H);
  RegisterMethod(TAggregate,
       'constructor Create(Aggregates: TAggregates; ADataSet: TCustomClientDataSet); reintroduce; overload;',
       @TAggregate.Create);
  RegisterMethod(TAggregate,
       'destructor Destroy; override;',
       @TAggregate.Destroy);
  RegisterMethod(TAggregate,
       'procedure Assign(Source: TPersistent); override;',
       @TAggregate.Assign);
  RegisterMethod(TAggregate,
       'function GetDisplayName: string; override;',
       @TAggregate.GetDisplayName);
  RegisterMethod(TAggregate,
       'function Value: Variant;',
       @TAggregate.Value);
  RegisterMethod(TAggregate,
       'function TAggregate_ReadAggHandle:HDSAggregate;',
       @TAggregate_ReadAggHandle, Fake);
  RegisterMethod(TAggregate,
       'procedure TAggregate_WriteAggHandle(const Value: HDSAggregate);',
       @TAggregate_WriteAggHandle, Fake);
  RegisterProperty(TAggregate,
       'property AggHandle:HDSAggregate read TAggregate_ReadAggHandle write TAggregate_WriteAggHandle;');
  RegisterMethod(TAggregate,
       'function TAggregate_ReadInUse:Boolean;',
       @TAggregate_ReadInUse, Fake);
  RegisterMethod(TAggregate,
       'procedure TAggregate_WriteInUse(const Value: Boolean);',
       @TAggregate_WriteInUse, Fake);
  RegisterProperty(TAggregate,
       'property InUse:Boolean read TAggregate_ReadInUse write TAggregate_WriteInUse;');
  RegisterMethod(TAggregate,
       'function TAggregate_ReadDataSet:TCustomClientDataSet;',
       @TAggregate_ReadDataSet, Fake);
  RegisterProperty(TAggregate,
       'property DataSet:TCustomClientDataSet read TAggregate_ReadDataSet;');
  RegisterMethod(TAggregate,
       'function TAggregate_ReadDataSize:Integer;',
       @TAggregate_ReadDataSize, Fake);
  RegisterProperty(TAggregate,
       'property DataSize:Integer read TAggregate_ReadDataSize;');
  RegisterMethod(TAggregate,
       'function TAggregate_ReadDataType:TFieldType;',
       @TAggregate_ReadDataType, Fake);
  RegisterProperty(TAggregate,
       'property DataType:TFieldType read TAggregate_ReadDataType;');
  // End of class TAggregate
  // Begin of class TAggregates
  RegisterClassType(TAggregates, H);
  RegisterMethod(TAggregates,
       'constructor Create(Owner: TPersistent);',