home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Internet 2000 May / MICD_2000_05.iso / CBuilder5 / INSTALL / DATA1.CAB / Program_Built_Files / Include / Vcl / mconnect.hpp < prev    next >
C/C++ Source or Header  |  2000-02-01  |  9KB  |  255 lines
  1. // Borland C++ Builder
  2. // Copyright (c) 1995, 1999 by Borland International
  3. // All rights reserved
  4.  
  5. // (DO NOT EDIT: machine generated header) 'MConnect.pas' rev: 5.00
  6.  
  7. #ifndef MConnectHPP
  8. #define MConnectHPP
  9.  
  10. #pragma delphiheader begin
  11. #pragma option push -w-
  12. #pragma option push -Vx
  13. #include <Db.hpp>    // Pascal unit
  14. #include <ComObj.hpp>    // Pascal unit
  15. #include <ActiveX.hpp>    // Pascal unit
  16. #include <DBClient.hpp>    // Pascal unit
  17. #include <Midas.hpp>    // Pascal unit
  18. #include <Classes.hpp>    // Pascal unit
  19. #include <SysUtils.hpp>    // Pascal unit
  20. #include <Windows.hpp>    // Pascal unit
  21. #include <Messages.hpp>    // Pascal unit
  22. #include <SysInit.hpp>    // Pascal unit
  23. #include <System.hpp>    // Pascal unit
  24.  
  25. //-- user supplied -----------------------------------------------------------
  26.  
  27. namespace Mconnect
  28. {
  29. //-- type declarations -------------------------------------------------------
  30. class DELPHICLASS TCustomObjectBroker;
  31. class PASCALIMPLEMENTATION TCustomObjectBroker : public Classes::TComponent 
  32. {
  33.     typedef Classes::TComponent inherited;
  34.     
  35. public:
  36.     virtual void __fastcall SetConnectStatus(AnsiString ComputerName, bool Success) = 0 ;
  37.     virtual AnsiString __fastcall GetComputerForGUID(const GUID &GUID) = 0 ;
  38.     virtual AnsiString __fastcall GetComputerForProgID(const void *ProgID) = 0 ;
  39.     virtual int __fastcall GetPortForComputer(const AnsiString ComputerName) = 0 ;
  40. public:
  41.     #pragma option push -w-inl
  42.     /* TComponent.Create */ inline __fastcall virtual TCustomObjectBroker(Classes::TComponent* AOwner) : 
  43.         Classes::TComponent(AOwner) { }
  44.     #pragma option pop
  45.     #pragma option push -w-inl
  46.     /* TComponent.Destroy */ inline __fastcall virtual ~TCustomObjectBroker(void) { }
  47.     #pragma option pop
  48.     
  49. };
  50.  
  51.  
  52. class DELPHICLASS TDispatchAppServer;
  53. class PASCALIMPLEMENTATION TDispatchAppServer : public System::TInterfacedObject 
  54. {
  55.     typedef System::TInterfacedObject inherited;
  56.     
  57. private:
  58.     Midas::_di_IAppServerDisp FAppServer;
  59.     HRESULT __stdcall GetTypeInfoCount(/* out */ int &Count);
  60.     HRESULT __stdcall GetTypeInfo(int Index, int LocaleID, /* out */ void *TypeInfo);
  61.     HRESULT __stdcall GetIDsOfNames(const GUID &IID, void * Names, int NameCount, int LocaleID, void * 
  62.         DispIDs);
  63.     HRESULT __stdcall Invoke(int DispID, const GUID &IID, int LocaleID, Word Flags, void *Params, void * 
  64.         VarResult, void * ExcepInfo, void * ArgErr);
  65.     HRESULT __safecall AS_ApplyUpdates(const WideString ProviderName, const OleVariant Delta, int MaxErrors
  66.         , /* out */ int &ErrorCount, OleVariant &OwnerData, OleVariant &AS_ApplyUpdates_result);
  67.     HRESULT __safecall AS_GetRecords(const WideString ProviderName, int Count, /* out */ int &RecsOut, 
  68.         int Options, const WideString CommandText, OleVariant &Params, OleVariant &OwnerData, OleVariant &AS_GetRecords_result
  69.         );
  70.     HRESULT __safecall AS_DataRequest(const WideString ProviderName, const OleVariant Data, OleVariant &AS_DataRequest_result
  71.         );
  72.     HRESULT __safecall AS_GetProviderNames(OleVariant &AS_GetProviderNames_result);
  73.     HRESULT __safecall AS_GetParams(const WideString ProviderName, OleVariant &OwnerData, OleVariant &AS_GetParams_result
  74.         );
  75.     HRESULT __safecall AS_RowRequest(const WideString ProviderName, const OleVariant Row, int RequestType
  76.         , OleVariant &OwnerData, OleVariant &AS_RowRequest_result);
  77.     HRESULT __safecall AS_Execute(const WideString ProviderName, const WideString CommandText, OleVariant 
  78.         &Params, OleVariant &OwnerData);
  79.     HRESULT __stdcall InterfaceSupportsErrorInfo(const GUID &iid);
  80.     
  81. public:
  82.     __fastcall TDispatchAppServer(const Midas::_di_IAppServerDisp AppServer);
  83.     virtual HRESULT __fastcall SafeCallException(System::TObject* ExceptObject, void * ExceptAddr);
  84. public:
  85.         
  86.     #pragma option push -w-inl
  87.     /* TObject.Destroy */ inline __fastcall virtual ~TDispatchAppServer(void) { }
  88.     #pragma option pop
  89.     
  90. private:
  91.     void *__IAppServer;    /* Midas::IAppServer */
  92.     void *__ISupportErrorInfo;    /* ISupportErrorInfo */
  93.     
  94. public:
  95.     operator ISupportErrorInfo*(void) { return (ISupportErrorInfo*)&__ISupportErrorInfo; }
  96.     operator IAppServer*(void) { return (IAppServer*)&__IAppServer; }
  97.     
  98. };
  99.  
  100.  
  101. typedef void __fastcall (__closure *TGetUsernameEvent)(System::TObject* Sender, AnsiString &Username
  102.     );
  103.  
  104. class DELPHICLASS TDispatchConnection;
  105. class PASCALIMPLEMENTATION TDispatchConnection : public Dbclient::TCustomRemoteServer 
  106. {
  107.     typedef Dbclient::TCustomRemoteServer inherited;
  108.     
  109. private:
  110.     #pragma pack(push, 1)
  111.     GUID FServerGUID;
  112.     #pragma pack(pop)
  113.     
  114.     AnsiString FServerName;
  115.     Variant FAppServer;
  116.     TCustomObjectBroker* FObjectBroker;
  117.     TGetUsernameEvent FOnGetUsername;
  118.     AnsiString __fastcall GetServerGUID();
  119.     void __fastcall SetServerGUID(const AnsiString Value);
  120.     void __fastcall SetServerName(const AnsiString Value);
  121.     void __fastcall SetObjectBroker(TCustomObjectBroker* Value);
  122.     
  123. protected:
  124.     virtual OleVariant __fastcall GetServerList();
  125.     virtual Variant __fastcall GetAppServer();
  126.     virtual void __fastcall SetAppServer(const Variant &Value);
  127.     virtual void __fastcall DoDisconnect(void);
  128.     virtual bool __fastcall GetConnected(void);
  129.     virtual void __fastcall SetConnected(bool Value);
  130.     virtual void __fastcall GetProviderNames(Classes::TGetStrProc Proc);
  131.     GUID __fastcall GetServerCLSID();
  132.     virtual void __fastcall Notification(Classes::TComponent* AComponent, Classes::TOperation Operation
  133.         );
  134.     __property TCustomObjectBroker* ObjectBroker = {read=FObjectBroker, write=SetObjectBroker};
  135.     
  136. public:
  137.     __fastcall virtual TDispatchConnection(Classes::TComponent* AOwner);
  138.     virtual Midas::_di_IAppServer __fastcall GetServer();
  139.     __property Variant AppServer = {read=GetAppServer};
  140.     
  141. __published:
  142.     __property Connected ;
  143.     __property LoginPrompt ;
  144.     __property AnsiString ServerGUID = {read=GetServerGUID, write=SetServerGUID};
  145.     __property AnsiString ServerName = {read=FServerName, write=SetServerName};
  146.     __property AfterConnect ;
  147.     __property AfterDisconnect ;
  148.     __property BeforeConnect ;
  149.     __property BeforeDisconnect ;
  150.     __property TGetUsernameEvent OnGetUsername = {read=FOnGetUsername, write=FOnGetUsername};
  151.     __property OnLogin ;
  152. public:
  153.     #pragma option push -w-inl
  154.     /* TCustomConnection.Destroy */ inline __fastcall virtual ~TDispatchConnection(void) { }
  155.     #pragma option pop
  156.     
  157. };
  158.  
  159.  
  160. class DELPHICLASS TCOMConnection;
  161. class PASCALIMPLEMENTATION TCOMConnection : public TDispatchConnection 
  162. {
  163.     typedef TDispatchConnection inherited;
  164.     
  165. protected:
  166.     virtual void __fastcall SetConnected(bool Value);
  167.     virtual void __fastcall DoConnect(void);
  168. public:
  169.     #pragma option push -w-inl
  170.     /* TDispatchConnection.Create */ inline __fastcall virtual TCOMConnection(Classes::TComponent* AOwner
  171.         ) : TDispatchConnection(AOwner) { }
  172.     #pragma option pop
  173.     
  174. public:
  175.     #pragma option push -w-inl
  176.     /* TCustomConnection.Destroy */ inline __fastcall virtual ~TCOMConnection(void) { }
  177.     #pragma option pop
  178.     
  179. };
  180.  
  181.  
  182. class DELPHICLASS TDCOMConnection;
  183. class PASCALIMPLEMENTATION TDCOMConnection : public TCOMConnection 
  184. {
  185.     typedef TCOMConnection inherited;
  186.     
  187. private:
  188.     AnsiString FComputerName;
  189.     void __fastcall SetComputerName(const AnsiString Value);
  190.     bool __fastcall IsComputerNameStored(void);
  191.     
  192. protected:
  193.     virtual void __fastcall DoConnect(void);
  194.     
  195. public:
  196.     __fastcall virtual TDCOMConnection(Classes::TComponent* AOwner);
  197.     
  198. __published:
  199.     __property AnsiString ComputerName = {read=FComputerName, write=SetComputerName, stored=IsComputerNameStored
  200.         };
  201.     __property ObjectBroker ;
  202. public:
  203.     #pragma option push -w-inl
  204.     /* TCustomConnection.Destroy */ inline __fastcall virtual ~TDCOMConnection(void) { }
  205.     #pragma option pop
  206.     
  207. };
  208.  
  209.  
  210. class DELPHICLASS TOLEnterpriseConnection;
  211. class PASCALIMPLEMENTATION TOLEnterpriseConnection : public TCOMConnection 
  212. {
  213.     typedef TCOMConnection inherited;
  214.     
  215. private:
  216.     AnsiString FComputerName;
  217.     AnsiString FBrokerName;
  218.     void __fastcall SetComputerName(const AnsiString Value);
  219.     void __fastcall SetBrokerName(const AnsiString Value);
  220.     
  221. protected:
  222.     virtual void __fastcall DoConnect(void);
  223.     
  224. __published:
  225.     __property AnsiString ComputerName = {read=FComputerName, write=SetComputerName};
  226.     __property AnsiString BrokerName = {read=FBrokerName, write=SetBrokerName};
  227. public:
  228.     #pragma option push -w-inl
  229.     /* TDispatchConnection.Create */ inline __fastcall virtual TOLEnterpriseConnection(Classes::TComponent* 
  230.         AOwner) : TCOMConnection(AOwner) { }
  231.     #pragma option pop
  232.     
  233. public:
  234.     #pragma option push -w-inl
  235.     /* TCustomConnection.Destroy */ inline __fastcall virtual ~TOLEnterpriseConnection(void) { }
  236.     #pragma option pop
  237.     
  238. };
  239.  
  240.  
  241. //-- var, const, procedure ---------------------------------------------------
  242. extern PACKAGE void __fastcall GetMIDASAppServerList(Classes::TStringList* List, const AnsiString RegCheck
  243.     );
  244.  
  245. }    /* namespace Mconnect */
  246. #if !defined(NO_IMPLICIT_NAMESPACE_USE)
  247. using namespace Mconnect;
  248. #endif
  249. #pragma option pop    // -w-
  250. #pragma option pop    // -Vx
  251.  
  252. #pragma delphiheader end.
  253. //-- end unit ----------------------------------------------------------------
  254. #endif    // MConnect
  255.