imp_dbclient.pas

Delphi脚本控件

  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadSavePoint:Integer;',
       @TCustomClientDataSet_ReadSavePoint, Fake);
  RegisterMethod(TCustomClientDataSet,
       'procedure TCustomClientDataSet_WriteSavePoint(const Value: Integer);',
       @TCustomClientDataSet_WriteSavePoint, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property SavePoint:Integer read TCustomClientDataSet_ReadSavePoint write TCustomClientDataSet_WriteSavePoint;');
  RegisterMethod(TCustomClientDataSet,
       'function TCustomClientDataSet_ReadStatusFilter:TUpdateStatusSet;',
       @TCustomClientDataSet_ReadStatusFilter, Fake);
  RegisterMethod(TCustomClientDataSet,
       'procedure TCustomClientDataSet_WriteStatusFilter(const Value: TUpdateStatusSet);',
       @TCustomClientDataSet_WriteStatusFilter, Fake);
  RegisterProperty(TCustomClientDataSet,
       'property StatusFilter:TUpdateStatusSet read TCustomClientDataSet_ReadStatusFilter write TCustomClientDataSet_WriteStatusFilter;');
  // End of class TCustomClientDataSet
  // Begin of class TClientDataSet
  RegisterClassType(TClientDataSet, H);
  RegisterMethod(TClientDataSet,
       'constructor Create(AOwner: TComponent); override;',
       @TClientDataSet.Create);
  // 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;

//******************************************************************
{$ELSE}
//******************************************************************

unit IMP_dbclient;
interface
uses
  Windows,
  SysUtils,
  ActiveX,
  Graphics,
  Classes,
  Controls,
  Forms,
  Db,
  DSIntf,
  DBCommon,
  Midas,
  dbclient,
  PaxScripter;
procedure RegisterIMP_dbclient;
implementation
function EDBClient_GetErrorCode:DBResult;
begin
  result := EDBClient(_Self).ErrorCode;
end;
function EReconcileError_GetContext:String;
begin
  result := EReconcileError(_Self).Context;
end;
function EReconcileError_GetPreviousError:DBResult;
begin
  result := EReconcileError(_Self).PreviousError;
end;
function TAggregate_GetAggHandle:HDSAggregate;
begin
  result := TAggregate(_Self).AggHandle;
end;
procedure TAggregate_PutAggHandle(const Value: HDSAggregate);
begin
  TAggregate(_Self).AggHandle := Value;
end;
function TAggregate_GetInUse:Boolean;
begin
  result := TAggregate(_Self).InUse;
end;
procedure TAggregate_PutInUse(const Value: Boolean);
begin
  TAggregate(_Self).InUse := Value;
end;
function TAggregate_GetDataType:TFieldType;
begin
  result := TAggregate(_Self).DataType;
end;
function TAggregates_GetItems(Index: Integer):TAggregate;
begin
  result := TAggregates(_Self).Items[Index];
end;
procedure TAggregates_PutItems(Index: Integer;const Value: TAggregate);
begin
  TAggregates(_Self).Items[Index] := Value;
end;
function TClientDataSet_GetHasAppServer:Boolean;
begin
  result := TClientDataSet(_Self).HasAppServer;
end;
function TClientDataSet_GetActiveAggs(Index: Integer):TList;
begin
  result := TClientDataSet(_Self).ActiveAggs[Index];
end;
function TClientDataSet_GetChangeCount:Integer;
begin
  result := TClientDataSet(_Self).ChangeCount;
end;
procedure TClientDataSet_PutData(const Value: OleVariant);
begin
  TClientDataSet(_Self).Data := Value;
end;
function TClientDataSet_GetAppServer:IAppServer;
begin
  result := TClientDataSet(_Self).AppServer;
end;
procedure TClientDataSet_PutAppServer(const Value: IAppServer);
begin
  TClientDataSet(_Self).AppServer := Value;
end;
function TClientDataSet_GetDataSize:Integer;
begin
  result := TClientDataSet(_Self).DataSize;
end;
function TClientDataSet_GetDelta:OleVariant;
begin
  result := TClientDataSet(_Self).Delta;
end;
function TClientDataSet_GetGroupingLevel:Integer;
begin
  result := TClientDataSet(_Self).GroupingLevel;
end;
function TClientDataSet_GetIndexFieldCount:Integer;
begin
  result := TClientDataSet(_Self).IndexFieldCount;
end;
function TClientDataSet_GetIndexFields(Index: Integer):TField;
begin
  result := TClientDataSet(_Self).IndexFields[Index];
end;
procedure TClientDataSet_PutIndexFields(Index: Integer;const Value: TField);
begin
  TClientDataSet(_Self).IndexFields[Index] := Value;
end;
function TClientDataSet_GetKeyExclusive:Boolean;
begin
  result := TClientDataSet(_Self).KeyExclusive;
end;
procedure TClientDataSet_PutKeyExclusive(const Value: Boolean);
begin
  TClientDataSet(_Self).KeyExclusive := Value;
end;
function TClientDataSet_GetKeyFieldCount:Integer;
begin
  result := TClientDataSet(_Self).KeyFieldCount;
end;
procedure TClientDataSet_PutKeyFieldCount(const Value: Integer);
begin
  TClientDataSet(_Self).KeyFieldCount := Value;
end;
function TClientDataSet_GetKeySize:Word;
begin
  result := TClientDataSet(_Self).KeySize;
end;
function TClientDataSet_GetLogChanges:Boolean;
begin
  result := TClientDataSet(_Self).LogChanges;
end;
procedure TClientDataSet_PutLogChanges(const Value: Boolean);
begin
  TClientDataSet(_Self).LogChanges := Value;
end;
function TClientDataSet_GetSavePoint:Integer;
begin
  result := TClientDataSet(_Self).SavePoint;
end;
procedure TClientDataSet_PutSavePoint(const Value: Integer);
begin
  TClientDataSet(_Self).SavePoint := Value;
end;
function TClientDataSet_GetStatusFilter:TUpdateStatusSet;
begin
  result := TClientDataSet(_Self).StatusFilter;
end;
procedure TClientDataSet_PutStatusFilter(const Value: TUpdateStatusSet);
begin
  TClientDataSet(_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_GetErrorCode:DBResult;',
       @EDBClient_GetErrorCode, Fake);
  RegisterProperty(EDBClient,
       'property ErrorCode:DBResult read EDBClient_GetErrorCode;');
  // 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_GetContext:String;',
       @EReconcileError_GetContext, Fake);
  RegisterProperty(EReconcileError,
       'property Context:String read EReconcileError_GetContext;');
  RegisterMethod(EReconcileError,
       'function EReconcileError_GetPreviousError:DBResult;',
       @EReconcileError_GetPreviousError, Fake);
  RegisterProperty(EReconcileError,
       'property PreviousError:DBResult read EReconcileError_GetPreviousError;');
  // 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);
  // End of class TCustomRemoteServer
  // Begin of class TAggregate
  RegisterClassType(TAggregate, H);
  RegisterMethod(TAggregate,
       'constructor Create(Aggregates: TAggregates; ADataSet: TClientDataSet); 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_GetAggHandle:HDSAggregate;',
       @TAggregate_GetAggHandle, Fake);
  RegisterMethod(TAggregate,
       'procedure TAggregate_PutAggHandle(const Value: HDSAggregate);',
       @TAggregate_PutAggHandle, Fake);
  RegisterProperty(TAggregate,
       'property AggHandle:HDSAggregate read TAggregate_GetAggHandle write TAggregate_PutAggHandle;');
  RegisterMethod(TAggregate,
       'function TAggregate_GetInUse:Boolean;',
       @TAggregate_GetInUse, Fake);
  RegisterMethod(TAggregate,
       'procedure TAggregate_PutInUse(const Value: Boolean);',
       @TAggregate_PutInUse, Fake);
  RegisterProperty(TAggregate,
       'property InUse:Boolean read TAggregate_GetInUse write TAggregate_PutInUse;');
  RegisterMethod(TAggregate,
       'function TAggregate_GetDataType:TFieldType;',
       @TAggregate_GetDataType, Fake);
  RegisterProperty(TAggregate,
       'property DataType:TFieldType read TAggregate_GetDataType;');
  // End of class TAggregate
  // Begin of class TAggregates
  RegisterClassType(TAggregates, H);
  RegisterMethod(TAggregates,
       'constructor Create(Owner: TPersistent);',
       @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_GetItems(Index: Integer):TAggregate;',
       @TAggregates_GetItems, Fake);
  RegisterMethod(TAggregates,