sqlmergxlib_tlb.pas

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

unit SQLMERGXLib_TLB;

// ************************************************************************ //
// WARNING                                                                    
// -------                                                                    
// The types declared in this file were generated from data read from a       
// Type Library. If this type library is explicitly or indirectly (via        
// another type library referring to this type library) re-imported, or the   
// 'Refresh' command of the Type Library Editor activated while editing the   
// Type Library, the contents of this file will be regenerated and all        
// manual modifications will be lost.                                         
// ************************************************************************ //

// PASTLWTR : $Revision:   1.130  $
// File generated on 2003-7-1 22:36:57 from Type Library described below.

// ************************************************************************  //
// Type Lib: C:\Program Files\Microsoft SQL Server\80\COM\sqlmergx.dll (1)
// LIBID: {08B0B2E7-3FB3-11D3-A4DE-00C04F610189}
// LCID: 0
// Helpfile: 
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINNT\System32\stdole2.tlb)
//   (2) v4.0 StdVCL, (C:\WINNT\System32\stdvcl40.dll)
// Errors:
//   Error creating palette bitmap of (TAlternateSyncPartner) : Server C:\Program Files\Microsoft SQL Server\80\COM\sqlmergx.dll contains no icons
//   Error creating palette bitmap of (TAlternateSyncPartners) : Server C:\Program Files\Microsoft SQL Server\80\COM\sqlmergx.dll contains no icons
// ************************************************************************ //
// *************************************************************************//
// NOTE:                                                                      
// Items guarded by $IFDEF_LIVE_SERVER_AT_DESIGN_TIME are used by properties  
// which return objects that may need to be explicitly created via a function 
// call prior to any access via the property. These items have been disabled  
// in order to prevent accidental use from within the object inspector. You   
// may enable them by defining LIVE_SERVER_AT_DESIGN_TIME or by selectively   
// removing them from the $IFDEF blocks. However, such items must still be    
// programmatically created via a method of the appropriate CoClass before    
// they can be used.                                                          
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. 
{$WARN SYMBOL_PLATFORM OFF}
{$WRITEABLECONST ON}

interface

uses ActiveX, Classes, Graphics, OleCtrls, OleServer, StdVCL, Variants, 
Windows;
  

// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLASS_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
const
  // TypeLibrary Major and minor versions
  SQLMERGXLibMajorVersion = 1;
  SQLMERGXLibMinorVersion = 0;

  LIBID_SQLMERGXLib: TGUID = '{08B0B2E7-3FB3-11D3-A4DE-00C04F610189}';

  DIID__SQLMergeEvents: TGUID = '{84923186-F94B-11D0-A8E8-00C04FC2DEB3}';
  IID_ISQLMerge: TGUID = '{84923188-F94B-11D0-A8E8-00C04FC2DEB3}';
  CLASS_SQLMerge: TGUID = '{08B0B2E8-3FB3-11D3-A4DE-00C04F610189}';
  IID_ISQLReplErrors: TGUID = '{35CE087B-2E4E-11D2-B6D4-00C04FB93D6B}';
  IID_ISQLReplError: TGUID = '{35CE087C-2E4E-11D2-B6D4-00C04FB93D6B}';
  IID_IAlternateSyncPartners: TGUID = '{0A98450F-04A9-11D3-A8FB-00C04F9FC436}';
  IID_IAlternateSyncPartner: TGUID = '{0A98450D-04A9-11D3-A8FB-00C04F9FC436}';
  CLASS_AlternateSyncPartner: TGUID = '{0A98450E-04A9-11D3-A8FB-00C04F9FC436}';
  CLASS_AlternateSyncPartners: TGUID = '{0A984510-04A9-11D3-A8FB-00C04F9FC436}';

// *********************************************************************//
// Declaration of Enumerations defined in Type Library                    
// *********************************************************************//
// Constants for enum STATUS_RETURN_CODE
type
  STATUS_RETURN_CODE = TOleEnum;
const
  SUCCESS = $00000000;
  CANCEL = $00000001;

// Constants for enum SECURITY_TYPE
type
  SECURITY_TYPE = TOleEnum;
const
  DB_AUTHENTICATION = $00000000;
  NT_AUTHENTICATION = $00000001;

// Constants for enum DATASOURCE_TYPE
type
  DATASOURCE_TYPE = TOleEnum;
const
  SQL_SERVER = $00000000;
  ODBC_DSN = $00000001;
  JET4_DATABASE = $00000002;
  OLEDB_DATASOURCE = $00000003;
  EXCHANGE = $00000004;
  ORACLE = $00000005;
  DB2_UNIVERSAL = $00000006;

// Constants for enum SUBSCRIPTION_TYPE
type
  SUBSCRIPTION_TYPE = TOleEnum;
const
  PUSH = $00000000;
  PULL = $00000001;
  ANONYMOUS = $00000002;

// Constants for enum EXCHANGE_TYPE
type
  EXCHANGE_TYPE = TOleEnum;
const
  UPLOAD = $00000001;
  DOWNLOAD = $00000002;
  BIDIRECTIONAL = $00000003;

// Constants for enum NETWORK_TYPE
type
  NETWORK_TYPE = TOleEnum;
const
  DEFAULT_NETWORK = $00000000;
  TCPIP_SOCKETS = $00000001;
  MULTI_PROTOCOL = $00000002;

// Constants for enum VALIDATE_TYPE
type
  VALIDATE_TYPE = TOleEnum;
const
  NO_VALIDATION = $00000000;
  ROWCOUNT_ONLY = $00000001;
  ROWCOUNT_AND_CHECKSUM = $00000002;
  FAST_ROWCOUNT_ONLY = $00000003;
  FAST_ROWCOUNT_AND_CHECKSUM = $00000004;
  ROWCOUNT_AND_BINARYCHECKSUM = $00000005;
  FAST_ROWCOUNT_AND_BINARYCHECKSUM = $00000006;

// Constants for enum DBADDOPTION
type
  DBADDOPTION = TOleEnum;
const
  EXISTING_DATABASE = $00000000;
  CREATE_DATABASE = $00000001;
  ATTACH_DATABASE = $00000002;
  ATTACH_SUBSCRIPTION = $00000003;
  REGISTER_SUBSCRIPTION = $00000004;

// Constants for enum SUBSCRIPTION_HOST
type
  SUBSCRIPTION_HOST = TOleEnum;
const
  NONE = $00000000;
  SYNC_MANAGER = $00000001;

// Constants for enum DBDROPOPTION
type
  DBDROPOPTION = TOleEnum;
const
  LEAVE_DATABASE = $00000000;
  DROP_DATABASE = $00000001;
  UNREGISTER_SUBSCRIPTION = $00000002;

// Constants for enum ERRORSOURCE_TYPE
type
  ERRORSOURCE_TYPE = TOleEnum;
const
  INVALID_SOURCE_TYPE = $00000000;
  SQL_COMMAND = $00000001;
  REPL_CONTROL = $00000002;
  OPERATING_SYSTEM = $00000003;
  ODBC_API = $00000004;
  SQLSERVER_ENGINE = $00000005;
  NET_LIBRARY = $00000006;
  SQLDMO = $00000007;
  MERGE_PROVIDER = $00000008;
  MERGE_PROCESS = $00000009;

// Constants for enum FILE_TRANSFER_TYPE
type
  FILE_TRANSFER_TYPE = TOleEnum;
const
  FILETRANSFERUNC = $00000000;
  FILETRANSFERFTP = $00000001;

// Constants for enum FILECREATE_OPTION
type
  FILECREATE_OPTION = TOleEnum;
const
  CREATE_NEW_FILE = $00000000;
  OVERWRITE_EXISTING_FILE = $00000001;

// Constants for enum SUBSCRIPTION_PRIORITY_TYPE
type
  SUBSCRIPTION_PRIORITY_TYPE = TOleEnum;
const
  GLOBAL_PRIORITY = $00000001;
  LOCAL_PRIORITY = $00000002;

// Constants for enum SYNCHRONIZATION_TYPE
type
  SYNCHRONIZATION_TYPE = TOleEnum;
const
  AUTOMATIC = $00000001;
  NOSYNC = $00000002;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  _SQLMergeEvents = dispinterface;
  ISQLMerge = interface;
  ISQLMergeDisp = dispinterface;
  ISQLReplErrors = interface;
  ISQLReplErrorsDisp = dispinterface;
  ISQLReplError = interface;
  ISQLReplErrorDisp = dispinterface;
  IAlternateSyncPartners = interface;
  IAlternateSyncPartnersDisp = dispinterface;
  IAlternateSyncPartner = interface;
  IAlternateSyncPartnerDisp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  SQLMerge = ISQLMerge;
  AlternateSyncPartner = IAlternateSyncPartner;
  AlternateSyncPartners = IAlternateSyncPartners;


// *********************************************************************//
// DispIntf:  _SQLMergeEvents
// Flags:     (4096) Dispatchable
// GUID:      {84923186-F94B-11D0-A8E8-00C04FC2DEB3}
// *********************************************************************//
  _SQLMergeEvents = dispinterface
    ['{84923186-F94B-11D0-A8E8-00C04FC2DEB3}']
    function  Status(const Message: WideString; Percent: Integer): STATUS_RETURN_CODE; dispid 1;
  end;

// *********************************************************************//
// Interface: ISQLMerge
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {84923188-F94B-11D0-A8E8-00C04FC2DEB3}
// *********************************************************************//
  ISQLMerge = interface(IDispatch)
    ['{84923188-F94B-11D0-A8E8-00C04FC2DEB3}']
    function  Get_Publication: WideString; safecall;
    procedure Set_Publication(const pVal: WideString); safecall;
    function  Get_Publisher: WideString; safecall;
    procedure Set_Publisher(const pVal: WideString); safecall;
    function  Get_PublisherDatabase: WideString; safecall;
    procedure Set_PublisherDatabase(const pVal: WideString); safecall;
    function  Get_PublisherSecurityMode: SECURITY_TYPE; safecall;
    procedure Set_PublisherSecurityMode(pVal: SECURITY_TYPE); safecall;
    function  Get_PublisherLogin: WideString; safecall;
    procedure Set_PublisherLogin(const pVal: WideString); safecall;
    function  Get_PublisherPassword: WideString; safecall;
    procedure Set_PublisherPassword(const pVal: WideString); safecall;
    function  Get_Distributor: WideString; safecall;
    procedure Set_Distributor(const pVal: WideString); safecall;
    function  Get_DistributorSecurityMode: SECURITY_TYPE; safecall;
    procedure Set_DistributorSecurityMode(pVal: SECURITY_TYPE); safecall;
    function  Get_DistributorLogin: WideString; safecall;
    procedure Set_DistributorLogin(const pVal: WideString); safecall;
    function  Get_DistributorPassword: WideString; safecall;
    procedure Set_DistributorPassword(const pVal: WideString); safecall;
    function  Get_Subscriber: WideString; safecall;
    procedure Set_Subscriber(const pVal: WideString); safecall;
    function  Get_SubscriberDatabase: WideString; safecall;
    procedure Set_SubscriberDatabase(const pVal: WideString); safecall;
    function  Get_SubscriberSecurityMode: SECURITY_TYPE; safecall;
    procedure Set_SubscriberSecurityMode(pVal: SECURITY_TYPE); safecall;
    function  Get_SubscriberLogin: WideString; safecall;
    procedure Set_SubscriberLogin(const pVal: WideString); safecall;
    function  Get_SubscriberPassword: WideString; safecall;
    procedure Set_SubscriberPassword(const pVal: WideString); safecall;
    function  Get_SubscriberDatasourceType: DATASOURCE_TYPE; safecall;
    procedure Set_SubscriberDatasourceType(pVal: DATASOURCE_TYPE); safecall;
    function  Get_SubscriberDatabasePath: WideString; safecall;
    procedure Set_SubscriberDatabasePath(const pVal: WideString); safecall;
    function  Get_SubscriptionType: SUBSCRIPTION_TYPE; safecall;
    procedure Set_SubscriptionType(pVal: SUBSCRIPTION_TYPE); safecall;
    function  Get_ExchangeType: EXCHANGE_TYPE; safecall;
    procedure Set_ExchangeType(pVal: EXCHANGE_TYPE); safecall;
    function  Get_LoginTimeout: Smallint; safecall;
    procedure Set_LoginTimeout(pVal: Smallint); safecall;
    function  Get_QueryTimeout: Smallint; safecall;
    procedure Set_QueryTimeout(pVal: Smallint); safecall;
    function  Get_FTPAddress: WideString; safecall;
    procedure Set_FTPAddress(const pVal: WideString); safecall;
    function  Get_FTPPort: Integer; safecall;
    procedure Set_FTPPort(pVal: Integer); safecall;
    function  Get_FTPLogin: WideString; safecall;
    procedure Set_FTPLogin(const pVal: WideString); safecall;
    function  Get_FTPPassword: WideString; safecall;
    procedure Set_FTPPassword(const pVal: WideString); safecall;
    function  Get_DistributorAddress: WideString; safecall;
    procedure Set_DistributorAddress(const pVal: WideString); safecall;
    function  Get_DistributorNetwork: NETWORK_TYPE; safecall;
    procedure Set_DistributorNetwork(pVal: NETWORK_TYPE); safecall;
    function  Get_PublisherAddress: WideString; safecall;
    procedure Set_PublisherAddress(const pVal: WideString); safecall;
    function  Get_PublisherNetwork: NETWORK_TYPE; safecall;
    procedure Set_PublisherNetwork(pVal: NETWORK_TYPE); safecall;
    function  Get_PublisherChanges: Integer; safecall;
    function  Get_PublisherConflicts: Integer; safecall;
    function  Get_SubscriberChanges: Integer; safecall;
    function  Get_SubscriberConflicts: Integer; safecall;
    function  Get_Validate: VALIDATE_TYPE; safecall;
    procedure Set_Validate(pVal: VALIDATE_TYPE); safecall;
    procedure Initialize; safecall;
    procedure AddSubscription(DBADDOPTION: DBADDOPTION; SubscriptionHost: SUBSCRIPTION_HOST); safecall;
    procedure DropSubscription(DBDROPOPTION: DBDROPOPTION); safecall;
    procedure Run; safecall;
    procedure Terminate; safecall;
    procedure ReinitializeSubscription(bUploadBeforeReinit: WordBool); safecall;
    procedure Set_PublisherEncryptedPassword(const Param1: WideString); safecall;
    procedure Set_DistributorEncryptedPassword(const Param1: WideString); safecall;
    procedure Set_SubscriberEncryptedPassword(const Param1: WideString); safecall;
    function  Get_ProfileName: WideString; safecall;
    procedure Set_ProfileName(const pVal: WideString); safecall;
    function  Get_ErrorRecords: ISQLReplErrors; safecall;
    function  Get_HostName: WideString; safecall;
    procedure Set_HostName(const pVal: WideString); safecall;
    function  Get_SubscriptionName: WideString; safecall;
    procedure Set_SubscriptionName(const pVal: WideString); safecall;
    procedure Set_HostType(Param1: SUBSCRIPTION_HOST); safecall;
    function  Get_AltSnapshotFolder: WideString; safecall;
    procedure Set_AltSnapshotFolder(const pVal: WideString); safecall;
    function  Get_WorkingDirectory: WideString; safecall;
    procedure Set_WorkingDirectory(const pVal: WideString); safecall;
    function  Get_FileTransferType: FILE_TRANSFER_TYPE; safecall;
    procedure Set_FileTransferType(pVal: FILE_TRANSFER_TYPE); safecall;
    procedure CopySubscription(const bstrSubscriptionFileName: WideString; 
                               FileCreateOption: FILECREATE_OPTION); safecall;
    function  Get_UseInteractiveResolver: WordBool; safecall;
    procedure Set_UseInteractiveResolver(pVal: WordBool); safecall;
    function  Get_AlternateSyncPartners: IAlternateSyncPartners; safecall;
    function  Get_SyncToAlternate: WordBool; safecall;