sqlmergxlib_tlb.pas

如何自由访问局域网中的所有 SQL Server 服务器的数据

    procedure Set_SyncToAlternate(pVal: WordBool); safecall;
    function  Get_SubscriptionPriorityType: SUBSCRIPTION_PRIORITY_TYPE; safecall;
    procedure Set_SubscriptionPriorityType(pVal: SUBSCRIPTION_PRIORITY_TYPE); safecall;
    function  Get_SubscriptionPriority: Single; safecall;
    procedure Set_SubscriptionPriority(pVal: Single); safecall;
    function  Get_SynchronizationType: SYNCHRONIZATION_TYPE; safecall;
    procedure Set_SynchronizationType(pVal: SYNCHRONIZATION_TYPE); safecall;
    function  Get_DynamicSnapshotLocation: WideString; safecall;
    procedure Set_DynamicSnapshotLocation(const pVal: WideString); safecall;
    function  Get_LastUpdatedTime: WideString; safecall;
    property Publication: WideString read Get_Publication write Set_Publication;
    property Publisher: WideString read Get_Publisher write Set_Publisher;
    property PublisherDatabase: WideString read Get_PublisherDatabase write Set_PublisherDatabase;
    property PublisherSecurityMode: SECURITY_TYPE read Get_PublisherSecurityMode write Set_PublisherSecurityMode;
    property PublisherLogin: WideString read Get_PublisherLogin write Set_PublisherLogin;
    property PublisherPassword: WideString read Get_PublisherPassword write Set_PublisherPassword;
    property Distributor: WideString read Get_Distributor write Set_Distributor;
    property DistributorSecurityMode: SECURITY_TYPE read Get_DistributorSecurityMode write Set_DistributorSecurityMode;
    property DistributorLogin: WideString read Get_DistributorLogin write Set_DistributorLogin;
    property DistributorPassword: WideString read Get_DistributorPassword write Set_DistributorPassword;
    property Subscriber: WideString read Get_Subscriber write Set_Subscriber;
    property SubscriberDatabase: WideString read Get_SubscriberDatabase write Set_SubscriberDatabase;
    property SubscriberSecurityMode: SECURITY_TYPE read Get_SubscriberSecurityMode write Set_SubscriberSecurityMode;
    property SubscriberLogin: WideString read Get_SubscriberLogin write Set_SubscriberLogin;
    property SubscriberPassword: WideString read Get_SubscriberPassword write Set_SubscriberPassword;
    property SubscriberDatasourceType: DATASOURCE_TYPE read Get_SubscriberDatasourceType write Set_SubscriberDatasourceType;
    property SubscriberDatabasePath: WideString read Get_SubscriberDatabasePath write Set_SubscriberDatabasePath;
    property SubscriptionType: SUBSCRIPTION_TYPE read Get_SubscriptionType write Set_SubscriptionType;
    property ExchangeType: EXCHANGE_TYPE read Get_ExchangeType write Set_ExchangeType;
    property LoginTimeout: Smallint read Get_LoginTimeout write Set_LoginTimeout;
    property QueryTimeout: Smallint read Get_QueryTimeout write Set_QueryTimeout;
    property FTPAddress: WideString read Get_FTPAddress write Set_FTPAddress;
    property FTPPort: Integer read Get_FTPPort write Set_FTPPort;
    property FTPLogin: WideString read Get_FTPLogin write Set_FTPLogin;
    property FTPPassword: WideString read Get_FTPPassword write Set_FTPPassword;
    property DistributorAddress: WideString read Get_DistributorAddress write Set_DistributorAddress;
    property DistributorNetwork: NETWORK_TYPE read Get_DistributorNetwork write Set_DistributorNetwork;
    property PublisherAddress: WideString read Get_PublisherAddress write Set_PublisherAddress;
    property PublisherNetwork: NETWORK_TYPE read Get_PublisherNetwork write Set_PublisherNetwork;
    property PublisherChanges: Integer read Get_PublisherChanges;
    property PublisherConflicts: Integer read Get_PublisherConflicts;
    property SubscriberChanges: Integer read Get_SubscriberChanges;
    property SubscriberConflicts: Integer read Get_SubscriberConflicts;
    property Validate: VALIDATE_TYPE read Get_Validate write Set_Validate;
    property ProfileName: WideString read Get_ProfileName write Set_ProfileName;
    property ErrorRecords: ISQLReplErrors read Get_ErrorRecords;
    property HostName: WideString read Get_HostName write Set_HostName;
    property SubscriptionName: WideString read Get_SubscriptionName write Set_SubscriptionName;
    property HostType: SUBSCRIPTION_HOST write Set_HostType;
    property AltSnapshotFolder: WideString read Get_AltSnapshotFolder write Set_AltSnapshotFolder;
    property WorkingDirectory: WideString read Get_WorkingDirectory write Set_WorkingDirectory;
    property FileTransferType: FILE_TRANSFER_TYPE read Get_FileTransferType write Set_FileTransferType;
    property UseInteractiveResolver: WordBool read Get_UseInteractiveResolver write Set_UseInteractiveResolver;
    property AlternateSyncPartners: IAlternateSyncPartners read Get_AlternateSyncPartners;
    property SyncToAlternate: WordBool read Get_SyncToAlternate write Set_SyncToAlternate;
    property SubscriptionPriorityType: SUBSCRIPTION_PRIORITY_TYPE read Get_SubscriptionPriorityType write Set_SubscriptionPriorityType;
    property SubscriptionPriority: Single read Get_SubscriptionPriority write Set_SubscriptionPriority;
    property SynchronizationType: SYNCHRONIZATION_TYPE read Get_SynchronizationType write Set_SynchronizationType;
    property DynamicSnapshotLocation: WideString read Get_DynamicSnapshotLocation write Set_DynamicSnapshotLocation;
    property LastUpdatedTime: WideString read Get_LastUpdatedTime;
  end;

// *********************************************************************//
// DispIntf:  ISQLMergeDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {84923188-F94B-11D0-A8E8-00C04FC2DEB3}
// *********************************************************************//
  ISQLMergeDisp = dispinterface
    ['{84923188-F94B-11D0-A8E8-00C04FC2DEB3}']
    property Publication: WideString dispid 1;
    property Publisher: WideString dispid 2;
    property PublisherDatabase: WideString dispid 3;
    property PublisherSecurityMode: SECURITY_TYPE dispid 4;
    property PublisherLogin: WideString dispid 5;
    property PublisherPassword: WideString dispid 6;
    property Distributor: WideString dispid 7;
    property DistributorSecurityMode: SECURITY_TYPE dispid 8;
    property DistributorLogin: WideString dispid 9;
    property DistributorPassword: WideString dispid 10;
    property Subscriber: WideString dispid 11;
    property SubscriberDatabase: WideString dispid 12;
    property SubscriberSecurityMode: SECURITY_TYPE dispid 13;
    property SubscriberLogin: WideString dispid 14;
    property SubscriberPassword: WideString dispid 15;
    property SubscriberDatasourceType: DATASOURCE_TYPE dispid 16;
    property SubscriberDatabasePath: WideString dispid 17;
    property SubscriptionType: SUBSCRIPTION_TYPE dispid 18;
    property ExchangeType: EXCHANGE_TYPE dispid 19;
    property LoginTimeout: Smallint dispid 20;
    property QueryTimeout: Smallint dispid 21;
    property FTPAddress: WideString dispid 22;
    property FTPPort: Integer dispid 23;
    property FTPLogin: WideString dispid 24;
    property FTPPassword: WideString dispid 25;
    property DistributorAddress: WideString dispid 26;
    property DistributorNetwork: NETWORK_TYPE dispid 27;
    property PublisherAddress: WideString dispid 28;
    property PublisherNetwork: NETWORK_TYPE dispid 29;
    property PublisherChanges: Integer readonly dispid 30;
    property PublisherConflicts: Integer readonly dispid 31;
    property SubscriberChanges: Integer readonly dispid 32;
    property SubscriberConflicts: Integer readonly dispid 33;
    property Validate: VALIDATE_TYPE dispid 34;
    procedure Initialize; dispid 35;
    procedure AddSubscription(DBADDOPTION: DBADDOPTION; SubscriptionHost: SUBSCRIPTION_HOST); dispid 36;
    procedure DropSubscription(DBDROPOPTION: DBDROPOPTION); dispid 37;
    procedure Run; dispid 38;
    procedure Terminate; dispid 39;
    procedure ReinitializeSubscription(bUploadBeforeReinit: WordBool); dispid 40;
    property PublisherEncryptedPassword: WideString writeonly dispid 41;
    property DistributorEncryptedPassword: WideString writeonly dispid 42;
    property SubscriberEncryptedPassword: WideString writeonly dispid 43;
    property ProfileName: WideString dispid 44;
    property ErrorRecords: ISQLReplErrors readonly dispid 45;
    property HostName: WideString dispid 46;
    property SubscriptionName: WideString dispid 47;
    property HostType: SUBSCRIPTION_HOST writeonly dispid 48;
    property AltSnapshotFolder: WideString dispid 49;
    property WorkingDirectory: WideString dispid 50;
    property FileTransferType: FILE_TRANSFER_TYPE dispid 51;
    procedure CopySubscription(const bstrSubscriptionFileName: WideString; 
                               FileCreateOption: FILECREATE_OPTION); dispid 52;
    property UseInteractiveResolver: WordBool dispid 53;
    property AlternateSyncPartners: IAlternateSyncPartners readonly dispid 54;
    property SyncToAlternate: WordBool dispid 55;
    property SubscriptionPriorityType: SUBSCRIPTION_PRIORITY_TYPE dispid 56;
    property SubscriptionPriority: Single dispid 57;
    property SynchronizationType: SYNCHRONIZATION_TYPE dispid 58;
    property DynamicSnapshotLocation: WideString dispid 59;
    property LastUpdatedTime: WideString readonly dispid 60;
  end;

// *********************************************************************//
// Interface: ISQLReplErrors
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {35CE087B-2E4E-11D2-B6D4-00C04FB93D6B}
// *********************************************************************//
  ISQLReplErrors = interface(IDispatch)
    ['{35CE087B-2E4E-11D2-B6D4-00C04FB93D6B}']
    function  Get_NewEnum: IUnknown; safecall;
    function  Get_Count: Integer; safecall;
    procedure AddReplError(const bstrDescription: WideString; const bstrSource: WideString; 
                           lErrorNumber: Integer; ErrorSourceType: ERRORSOURCE_TYPE; 
                           const bstrErrorNumberString: WideString); safecall;
    procedure ClearErrors; safecall;
    function  Get_Item(varIndex: OleVariant): ISQLReplError; safecall;
    procedure Add(const pISQLReplError: ISQLReplError); safecall;
    property NewEnum: IUnknown read Get_NewEnum;
    property Count: Integer read Get_Count;
    property Item[varIndex: OleVariant]: ISQLReplError read Get_Item; default;
  end;

// *********************************************************************//
// DispIntf:  ISQLReplErrorsDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {35CE087B-2E4E-11D2-B6D4-00C04FB93D6B}
// *********************************************************************//
  ISQLReplErrorsDisp = dispinterface
    ['{35CE087B-2E4E-11D2-B6D4-00C04FB93D6B}']
    property NewEnum: IUnknown readonly dispid -4;
    property Count: Integer readonly dispid 1;
    procedure AddReplError(const bstrDescription: WideString; const bstrSource: WideString; 
                           lErrorNumber: Integer; ErrorSourceType: ERRORSOURCE_TYPE; 
                           const bstrErrorNumberString: WideString); dispid 2;
    procedure ClearErrors; dispid 3;
    property Item[varIndex: OleVariant]: ISQLReplError readonly dispid 0; default;
    procedure Add(const pISQLReplError: ISQLReplError); dispid 4;
  end;

// *********************************************************************//
// Interface: ISQLReplError
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {35CE087C-2E4E-11D2-B6D4-00C04FB93D6B}
// *********************************************************************//
  ISQLReplError = interface(IDispatch)
    ['{35CE087C-2E4E-11D2-B6D4-00C04FB93D6B}']
    function  Get_Description: WideString; safecall;
    procedure Set_Description(const pVal: WideString); safecall;
    function  Get_Source: WideString; safecall;
    procedure Set_Source(const pVal: WideString); safecall;
    function  Get_ErrorNumber: Integer; safecall;
    procedure Set_ErrorNumber(pVal: Integer); safecall;
    function  Get_SourceType: ERRORSOURCE_TYPE; safecall;
    procedure Set_SourceType(pVal: ERRORSOURCE_TYPE); safecall;
    function  Get_ErrorNumberString: WideString; safecall;
    procedure Set_ErrorNumberString(const pVal: WideString); safecall;
    property Description: WideString read Get_Description write Set_Description;
    property Source: WideString read Get_Source write Set_Source;
    property ErrorNumber: Integer read Get_ErrorNumber write Set_ErrorNumber;
    property SourceType: ERRORSOURCE_TYPE read Get_SourceType write Set_SourceType;
    property ErrorNumberString: WideString read Get_ErrorNumberString write Set_ErrorNumberString;
  end;

// *********************************************************************//
// DispIntf:  ISQLReplErrorDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {35CE087C-2E4E-11D2-B6D4-00C04FB93D6B}
// *********************************************************************//
  ISQLReplErrorDisp = dispinterface
    ['{35CE087C-2E4E-11D2-B6D4-00C04FB93D6B}']
    property Description: WideString dispid 1;
    property Source: WideString dispid 2;
    property ErrorNumber: Integer dispid 3;
    property SourceType: ERRORSOURCE_TYPE dispid 4;
    property ErrorNumberString: WideString dispid 5;
  end;

// *********************************************************************//
// Interface: IAlternateSyncPartners
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0A98450F-04A9-11D3-A8FB-00C04F9FC436}
// *********************************************************************//
  IAlternateSyncPartners = interface(IDispatch)
    ['{0A98450F-04A9-11D3-A8FB-00C04F9FC436}']
    function  Get_Item(varIndex: OleVariant): IAlternateSyncPartner; safecall;
    function  Get_Count: Integer; safecall;
    procedure Add(const pPartner: IAlternateSyncPartner); safecall;
    procedure Clear; safecall;
    function  Get_NewEnum: IUnknown; safecall;
    property Item[varIndex: OleVariant]: IAlternateSyncPartner read Get_Item; default;
    property Count: Integer read Get_Count;
    property NewEnum: IUnknown read Get_NewEnum;
  end;

// *********************************************************************//
// DispIntf:  IAlternateSyncPartnersDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0A98450F-04A9-11D3-A8FB-00C04F9FC436}
// *********************************************************************//
  IAlternateSyncPartnersDisp = dispinterface
    ['{0A98450F-04A9-11D3-A8FB-00C04F9FC436}']
    property Item[varIndex: OleVariant]: IAlternateSyncPartner readonly dispid 0; default;
    property Count: Integer readonly dispid 1;
    procedure Add(const pPartner: IAlternateSyncPartner); dispid 3;
    procedure Clear; dispid 4;
    property NewEnum: IUnknown readonly dispid -4;
  end;

// *********************************************************************//
// Interface: IAlternateSyncPartner
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0A98450D-04A9-11D3-A8FB-00C04F9FC436}
// *********************************************************************//
  IAlternateSyncPartner = interface(IDispatch)
    ['{0A98450D-04A9-11D3-A8FB-00C04F9FC436}']
    function  Get_FriendlyName: WideString; safecall;
    procedure Set_FriendlyName(const pVal: WideString); safecall;
    function  Get_Distributor: WideString; safecall;
    procedure Set_Distributor(const pVal: WideString); safecall;
    function  Get_Publication: WideString; safecall;
    procedure Set_Publication(const pVal: WideString); safecall;
    function  Get_PublisherDatabase: WideString; safecall;
    procedure Set_PublisherDatabase(const pVal: WideString); safecall;
    function  Get_Publisher: WideString; safecall;
    procedure Set_Publisher(const pVal: WideString); safecall;
    property FriendlyName: WideString read Get_FriendlyName write Set_FriendlyName;
    property Distributor: WideString read Get_Distributor write Set_Distributor;
    property Publication: WideString read Get_Publication write Set_Publication;
    property PublisherDatabase: WideString read Get_PublisherDatabase write Set_PublisherDatabase;
    property Publisher: WideString read Get_Publisher write Set_Publisher;
  end;

// *********************************************************************//
// DispIntf:  IAlternateSyncPartnerDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {0A98450D-04A9-11D3-A8FB-00C04F9FC436}
// *********************************************************************//
  IAlternateSyncPartnerDisp = dispinterface
    ['{0A98450D-04A9-11D3-A8FB-00C04F9FC436}']
    property FriendlyName: WideString dispid 1;
    property Distributor: WideString dispid 2;
    property Publication: WideString dispid 3;
    property PublisherDatabase: WideString dispid 4;
    property Publisher: WideString dispid 5;
  end;


// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name     : TSQLMerge
// Help String      : Microsoft SQL Merge Class
// Default Interface: ISQLMerge
// Def. Intf. DISP? : No
// Event   Interface: _SQLMergeEvents
// TypeFlags        : (2) CanCreate
// *********************************************************************//
  TSQLMergeStatus = procedure(Sender: TObject; const Message: WideString; Percent: Integer) of object;

  TSQLMerge = class(TOleControl)
  private
    FOnStatus: TSQLMergeStatus;
    FIntf: ISQLMerge;
    function  GetControlInterface: ISQLMerge;
  protected
    procedure CreateControl;
    procedure InitControlData; override;
    function  Get_ErrorRecords: ISQLReplErrors;
    function  Get_AlternateSyncPartners: IAlternateSyncPartners;
  public
    procedure Initialize;
    procedure AddSubscription(DBADDOPTION: DBADDOPTION; SubscriptionHost: SUBSCRIPTION_HOST);
    procedure DropSubscription(DBDROPOPTION: DBDROPOPTION);
    procedure Run;
    procedure Terminate;
    procedure ReinitializeSubscription(bUploadBeforeReinit: WordBool);
    procedure CopySubscription(const bstrSubscriptionFileName: WideString; 
                               FileCreateOption: FILECREATE_OPTION);
    property  ControlInterface: ISQLMerge read GetControlInterface;
    property  DefaultInterface: ISQLMerge read GetControlInterface;
    property PublisherChanges: Integer index 30 read GetIntegerProp;
    property PublisherConflicts: Integer index 31 read GetIntegerProp;
    property SubscriberChanges: Integer index 32 read GetIntegerProp;
    property SubscriberConflicts: Integer index 33 read GetIntegerProp;
    property ErrorRecords: ISQLReplErrors read Get_ErrorRecords;
    property AlternateSyncPartners: IAlternateSyncPartners read Get_AlternateSyncPartners;
    property LastUpdatedTime: WideString index 60 read GetWideStringProp;
  published
    property  TabStop;
    property  Align;
    property  DragCursor;
    property  DragMode;
    property  ParentShowHint;
    property  PopupMenu;
    property  ShowHint;
    property  TabOrder;
    property  Visible;
    property  OnDragDrop;
    property  OnDragOver;
    property  OnEndDrag;
    property  OnEnter;
    property  OnExit;
    property  OnStartDrag;
    property Publication: WideString index 1 read GetWideStringProp write SetWideStringProp stored False;
    property Publisher: WideString index 2 read GetWideStringProp write SetWideStringProp stored False;
    property PublisherDatabase: WideString index 3 read GetWideStringProp write SetWideStringProp stored False;
    property PublisherSecurityMode: TOleEnum index 4 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property PublisherLogin: WideString index 5 read GetWideStringProp write SetWideStringProp stored False;
    property PublisherPassword: WideString index 6 read GetWideStringProp write SetWideStringProp stored False;
    property Distributor: WideString index 7 read GetWideStringProp write SetWideStringProp stored False;
    property DistributorSecurityMode: TOleEnum index 8 read GetTOleEnumProp write SetTOleEnumProp stored False;
    property DistributorLogin: WideString index 9 read GetWideStringProp write SetWideStringProp stored False;