⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 easycics_tlb.h

📁 IBM 开发的easy cics通讯相关的源代码
💻 H
📖 第 1 页 / 共 5 页
字号:
// ************************************************************************ //
// 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.                                         
// ************************************************************************ //

// C++ TLBWRTR : $Revision:   1.134.1.41  $
// File generated on 2001-7-31 16:14:31 from Type Library described below.

// ************************************************************************ //
// Type Lib: D:\ibm\w2k\ibmchina\easycics\EcOle.dll (1)
// IID\LCID: {5B554861-ACC5-11D4-8403-EA6165000000}\0
// Helpfile: 
// DepndLst: 
//   (1) v2.0 stdole, (E:\WIN2K\System32\stdole2.tlb)
//   (2) v4.0 StdVCL, (E:\WIN2K\System32\STDVCL40.DLL)
// ************************************************************************ //
#ifndef   __EasyCics_TLB_h__
#define   __EasyCics_TLB_h__

#pragma option push -b -w-inl

#include <utilcls.h>
#if !defined(__UTILCLS_H_VERSION) || (__UTILCLS_H_VERSION < 0x0500)
//
// The code generated by the TLIBIMP utility or the Import|TypeLibrary 
// and Import|ActiveX feature of C++Builder rely on specific versions of
// the header file UTILCLS.H found in the INCLUDE\VCL directory. If an 
// older version of the file is detected, you probably need an update/patch.
//
#error "This file requires a newer version of the header UTILCLS.H" \
       "You need to apply an update/patch to your copy of C++Builder"
#endif
#include <olectl.h>
#include <ocidl.h>
#if defined(USING_ATLVCL) || defined(USING_ATL)
#if !defined(__TLB_NO_EVENT_WRAPPERS)
#include <atl/atlmod.h>
#endif
#endif


// *********************************************************************//
// Forward reference of some VCL types (to avoid including STDVCL.HPP)    
// *********************************************************************//
namespace Stdvcl {class IStrings; class IStringsDisp;}
using namespace Stdvcl;
typedef TComInterface<IStrings> IStringsPtr;
typedef TComInterface<IStringsDisp> IStringsDispPtr;

namespace Easycics_tlb
{

// *********************************************************************//
// HelpString: EcOle Type Library
// Version:    1.0
// *********************************************************************//


// *********************************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:        
//   Type Libraries     : LIBID_xxxx                                      
//   CoClasses          : CLSID_xxxx                                      
//   DISPInterfaces     : DIID_xxxx                                       
//   Non-DISP interfaces: IID_xxxx                                        
// *********************************************************************//
extern __declspec (package) const GUID LIBID_EasyCics;
extern __declspec (package) const GUID IID_IApp;
extern __declspec (package) const GUID CLSID_App;

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
interface DECLSPEC_UUID("{5B554873-ACC5-11D4-8403-EA6165000000}") IApp;
typedef TComInterface<IApp, &IID_IApp> IAppPtr;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
//                                                                        
// The LIBID_OF_ macro(s) map a LIBID_OF_CoClassName to the GUID of this  
// TypeLibrary. It simplifies the updating of macros when CoClass name    
// change.                                                                
// *********************************************************************//
typedef IApp App;
typedef IAppPtr AppPtr;

#define LIBID_OF_App (&LIBID_EasyCics)
// *********************************************************************//
// Interface: IApp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {5B554873-ACC5-11D4-8403-EA6165000000}
// *********************************************************************//
interface IApp  : public IDispatch
{
public:
  // [1] Version Info
  virtual HRESULT STDMETHODCALLTYPE About(void) = 0;
  // [2] Clear to write
  virtual HRESULT STDMETHODCALLTYPE BeginWrite(void) = 0;
  // [3] CallProgram, then commit or rollback (most commonly used)
  virtual HRESULT STDMETHODCALLTYPE CallProgram(BSTR ProgramName/*[in]*/) = 0;
  // [4] CallProgram, let server commit or rollback
  virtual HRESULT STDMETHODCALLTYPE CallProgramAndCommit(BSTR ProgramName/*[in]*/) = 0;
  // [5] CallProgram asynchronously, then commit or rollback
  virtual HRESULT STDMETHODCALLTYPE CallProgramDSync(BSTR ProgramName/*[in]*/) = 0;
  // [6] CallProgram asynchronously, let server commit or rollback
  virtual HRESULT STDMETHODCALLTYPE CallProgramDSyncAndCommit(BSTR ProgramName/*[in]*/) = 0;
  virtual HRESULT STDMETHODCALLTYPE Commit(void) = 0; // [7]
  // [8] Connect to CICS Server
  virtual HRESULT STDMETHODCALLTYPE ConnectServer(BSTR ServerName/*[in]*/, BSTR UserName/*[in]*/, 
                                                  BSTR Password/*[in]*/, 
                                                  short* __MIDL_0015/*[out,retval]*/) = 0;
  // [9] Connect to two CICS Server
  virtual HRESULT STDMETHODCALLTYPE ConnectServer2(BSTR ServerName1/*[in]*/, 
                                                   BSTR ServerName2/*[in]*/, BSTR UserName/*[in]*/, 
                                                   BSTR Password/*[in]*/, 
                                                   short* __MIDL_0016/*[out,retval]*/) = 0;
  virtual HRESULT STDMETHODCALLTYPE GetBlockSize(long* __MIDL_0017/*[out,retval]*/) = 0; // [10]
  // [11] empty string means no error
  virtual HRESULT STDMETHODCALLTYPE GetErr(BSTR* Rs/*[out,retval]*/) = 0;
  // [12] 0 means no error
  virtual HRESULT STDMETHODCALLTYPE GetErrCode(short* __MIDL_0018/*[out,retval]*/) = 0;
  // [13] Get reply when using asynchromous call, 0 means OK
  virtual HRESULT STDMETHODCALLTYPE GetReply(short* __MIDL_0019/*[out,retval]*/) = 0;
  // [14] Get value from key
  virtual HRESULT STDMETHODCALLTYPE GetValue(BSTR KeyName/*[in]*/, BSTR* __MIDL_0020/*[out,retval]*/) = 0;
  virtual HRESULT STDMETHODCALLTYPE RollBack(void) = 0; // [15]
  // [16] Resultset Add Row
  virtual HRESULT STDMETHODCALLTYPE RsAddRow(void) = 0;
  // [17] Create resultset
  virtual HRESULT STDMETHODCALLTYPE RsCreate(short ColNum/*[in]*/) = 0;
  // [18] Fetch row from resultset
  virtual HRESULT STDMETHODCALLTYPE RsFetchRow(void) = 0;
  // [19] Get colomn value from resultset
  virtual HRESULT STDMETHODCALLTYPE RsGetCol(short Col/*[in]*/, BSTR* __MIDL_0021/*[out,retval]*/) = 0;
  // [20] Get colomn number from resultset
  virtual HRESULT STDMETHODCALLTYPE RsGetColNum(short* __MIDL_0022/*[out,retval]*/) = 0;
  // [21] Get row number from resultset
  virtual HRESULT STDMETHODCALLTYPE RsGetRowNum(short* __MIDL_0023/*[out,retval]*/) = 0;
  // [22] Get colomn number from table of multi-table resultset
  virtual HRESULT STDMETHODCALLTYPE RsGetTableColNum(short nt/*[in]*/, 
                                                     short* __MIDL_0024/*[out,retval]*/) = 0;
  // [23] Get row number from table of multi-table resultset
  virtual HRESULT STDMETHODCALLTYPE RsGetTableRowNum(short nt/*[in]*/, 
                                                     short* __MIDL_0025/*[out,retval]*/) = 0;
  // [24] create new table to multi-table resultset
  virtual HRESULT STDMETHODCALLTYPE RsNewTable(short ColNum/*[in]*/) = 0;
  // [25] Open resultset
  virtual HRESULT STDMETHODCALLTYPE RsOpen(void) = 0;
  // [26] Save row to resultset
  virtual HRESULT STDMETHODCALLTYPE RsSaveRow(void) = 0;
  // [27] Set colomn value of result
  virtual HRESULT STDMETHODCALLTYPE RsSetCol(short Col/*[in]*/, BSTR Vlu/*[in]*/) = 0;
  // [28] Set ECI timeout value (seconds)
  virtual HRESULT STDMETHODCALLTYPE SetEciTimeOut(short t/*[in]*/) = 0;
  // [29] Set value of key
  virtual HRESULT STDMETHODCALLTYPE SetValue(BSTR KeyName/*[in]*/, BSTR StrValue/*[in]*/) = 0;
  // [30] Upload file to server
  virtual HRESULT STDMETHODCALLTYPE Upload(BSTR FileName/*[in]*/, BSTR ServerFileName/*[in]*/) = 0;
  // [31] method T_T
  virtual HRESULT STDMETHODCALLTYPE T_T(TVariant* __MIDL_0026/*[out,retval]*/) = 0;
  // [32] method FetchStrFromFile
  virtual HRESULT STDMETHODCALLTYPE FetchStrFromFile(BSTR fs/*[in]*/, 
                                                     BSTR* __MIDL_0027/*[out,retval]*/) = 0;
  // [33] method GetValueToFile
  virtual HRESULT STDMETHODCALLTYPE GetValueToFile(BSTR KeyName/*[in]*/, BSTR fs/*[in]*/) = 0;
  // [34] method RsGetColByName
  virtual HRESULT STDMETHODCALLTYPE RsGetColByName(BSTR ColName/*[in]*/, 
                                                   BSTR* __MIDL_0028/*[out,retval]*/) = 0;
  // [35] method RsGetColName
  virtual HRESULT STDMETHODCALLTYPE RsGetColName(short ColNo1/*[in]*/, 
                                                 BSTR* __MIDL_0029/*[out,retval]*/) = 0;
  // [36] method SaveStrToFile
  virtual HRESULT STDMETHODCALLTYPE SaveStrToFile(BSTR s/*[in]*/, BSTR fs/*[in]*/) = 0;
  // [37] Load memory block from server
  virtual HRESULT STDMETHODCALLTYPE LoadBlock(TVariant* RetData/*[out,retval]*/) = 0;
  // [38] Set transaction ID
  virtual HRESULT STDMETHODCALLTYPE SetTransId(BSTR TransId/*[in]*/) = 0;
  // [39] Init or Reset
  virtual HRESULT STDMETHODCALLTYPE EcInit(void) = 0;
  // [40] Connect to CICS Server
  virtual HRESULT STDMETHODCALLTYPE ConnectServer0(BSTR ServerName/*[in]*/, BSTR UserName/*[in]*/, 
                                                   BSTR Password/*[in]*/) = 0;
  // [41] CallProgram, let server commit or rollback
  virtual HRESULT STDMETHODCALLTYPE CallProgramAndCommit1(BSTR ProgramName/*[in]*/) = 0;
  // [42] Close resultset
  virtual HRESULT STDMETHODCALLTYPE RsClose(void) = 0;
  // [43] Restart Windows
  virtual HRESULT STDMETHODCALLTYPE RestartWindow(void) = 0;
  // [44] Initialize the server list
  virtual HRESULT STDMETHODCALLTYPE ServerListInit(short SrvNum) = 0;
  // [45] Add one server to the server list
  virtual HRESULT STDMETHODCALLTYPE ServerListAdd(BSTR ServerName/*[in]*/) = 0;
  // [46] Connect to CICS server list
  virtual HRESULT STDMETHODCALLTYPE ConnectServerListX(BSTR ListName/*[in]*/, BSTR UserName/*[in]*/, 
                                                       BSTR Password/*[in]*/, 
                                                       short* __MIDL_0030/*[out,retval]*/) = 0;
  // [47] Set Message Qualifier
  virtual HRESULT STDMETHODCALLTYPE SetMsgQlf(short qlf/*[in]*/) = 0;
  // [48] Get Message Qualifier
  virtual HRESULT STDMETHODCALLTYPE GetMsgQlf(short* __MIDL_0031/*[out,retval]*/) = 0;
  // [49] Connect to CICS server list
  virtual HRESULT STDMETHODCALLTYPE ConnectServerList(BSTR UserName/*[in]*/, BSTR Password/*[in]*/, 
                                                      short* __MIDL_0032/*[out,retval]*/) = 0;
  // [50] Get reply when using asynchromous call, 0 means OK
  virtual HRESULT STDMETHODCALLTYPE GetReplyWait(short* __MIDL_0033/*[out,retval]*/) = 0;
  // [51] Get reply when using asynchromous call, 0 means OK
  virtual HRESULT STDMETHODCALLTYPE GetSpecReply(short* __MIDL_0034/*[out,retval]*/) = 0;
  // [52] Get reply when using asynchromous call, 0 means OK
  virtual HRESULT STDMETHODCALLTYPE GetSpecReplyWait(short* __MIDL_0035/*[out,retval]*/) = 0;
  // [53] Connect to CICS Server via EPI
  virtual HRESULT STDMETHODCALLTYPE EPIConnectServer(BSTR ServerName/*[in]*/, 
                                                     short* __MIDL_0036/*[out,retval]*/) = 0;
  // [54] DisConnect CICS Server
  virtual HRESULT STDMETHODCALLTYPE DisConnect(void) = 0;
  // [55] DisConnect CICS Server via EPI
  virtual HRESULT STDMETHODCALLTYPE EPIDisConnect(void) = 0;
  // [56] Start Transaction via EPI
  virtual HRESULT STDMETHODCALLTYPE EPIStartTran(BSTR TranName/*[in]*/) = 0;
  // [57] Get Event via EPI
  virtual HRESULT STDMETHODCALLTYPE EPIGetEvent(short* __MIDL_0037/*[out,retval]*/) = 0;
  // [58] Get Event Data via EPI
  virtual HRESULT STDMETHODCALLTYPE EPIGetEventData(BSTR* Data/*[out,retval]*/) = 0;
  // [59] Get Event Type of EPI
  virtual HRESULT STDMETHODCALLTYPE EPIGetEventType(short* __MIDL_0038/*[out,retval]*/) = 0;
  // [60] Reply via EPI
  virtual HRESULT STDMETHODCALLTYPE EPIReply(BSTR Data/*[in]*/, short* __MIDL_0039/*[out,retval]*/) = 0;
  // [61] Get Event via EPI
  virtual HRESULT STDMETHODCALLTYPE EPIGetEventNoWait(short* __MIDL_0040/*[out,retval]*/) = 0;
  // [62] Initialize Log File
  virtual HRESULT STDMETHODCALLTYPE InitLogFile(BSTR FileName/*[in]*/) = 0;
  // [63] Write Log File
  virtual HRESULT STDMETHODCALLTYPE WriteLogFile(BSTR LogStr/*[in]*/) = 0;
  // [64] write Log of the Value
  virtual HRESULT STDMETHODCALLTYPE LogValue(BSTR KeyName/*[in]*/) = 0;
  // [65] write log of colomn value of the resultset
  virtual HRESULT STDMETHODCALLTYPE RsLogCol(short Col/*[in]*/) = 0;
  // [66] Write Log with a  Line
  virtual HRESULT STDMETHODCALLTYPE WriteLogFileLine(BSTR LogStr/*[in]*/) = 0;

#if !defined(__TLB_NO_INTERFACE_WRAPPERS)

  short __fastcall ConnectServer(BSTR ServerName/*[in]*/, BSTR UserName/*[in]*/, 
                                 BSTR Password/*[in]*/)
  {
    short __MIDL_0015;
    OLECHECK(this->ConnectServer(ServerName, UserName, Password, (short*)&__MIDL_0015));
    return __MIDL_0015;
  }

  short __fastcall ConnectServer2(BSTR ServerName1/*[in]*/, BSTR ServerName2/*[in]*/, 
                                  BSTR UserName/*[in]*/, BSTR Password/*[in]*/)
  {
    short __MIDL_0016;
    OLECHECK(this->ConnectServer2(ServerName1, ServerName2, UserName, Password, (short*)&__MIDL_0016));
    return __MIDL_0016;
  }

  long __fastcall GetBlockSize(void)
  {
    long __MIDL_0017;
    OLECHECK(this->GetBlockSize((long*)&__MIDL_0017));
    return __MIDL_0017;
  }

  BSTR __fastcall GetErr(void)
  {
    BSTR Rs = 0;
    OLECHECK(this->GetErr((BSTR*)&Rs));
    return Rs;
  }

  short __fastcall GetErrCode(void)
  {
    short __MIDL_0018;
    OLECHECK(this->GetErrCode((short*)&__MIDL_0018));
    return __MIDL_0018;
  }

  short __fastcall GetReply(void)
  {
    short __MIDL_0019;
    OLECHECK(this->GetReply((short*)&__MIDL_0019));
    return __MIDL_0019;
  }

  BSTR __fastcall GetValue(BSTR KeyName/*[in]*/)
  {
    BSTR __MIDL_0020 = 0;
    OLECHECK(this->GetValue(KeyName, (BSTR*)&__MIDL_0020));
    return __MIDL_0020;
  }

  BSTR __fastcall RsGetCol(short Col/*[in]*/)
  {
    BSTR __MIDL_0021 = 0;
    OLECHECK(this->RsGetCol(Col, (BSTR*)&__MIDL_0021));
    return __MIDL_0021;
  }

  short __fastcall RsGetColNum(void)
  {
    short __MIDL_0022;
    OLECHECK(this->RsGetColNum((short*)&__MIDL_0022));
    return __MIDL_0022;
  }

  short __fastcall RsGetRowNum(void)
  {
    short __MIDL_0023;
    OLECHECK(this->RsGetRowNum((short*)&__MIDL_0023));
    return __MIDL_0023;
  }

  short __fastcall RsGetTableColNum(short nt/*[in]*/)
  {
    short __MIDL_0024;
    OLECHECK(this->RsGetTableColNum(nt, (short*)&__MIDL_0024));
    return __MIDL_0024;
  }

  short __fastcall RsGetTableRowNum(short nt/*[in]*/)
  {
    short __MIDL_0025;
    OLECHECK(this->RsGetTableRowNum(nt, (short*)&__MIDL_0025));
    return __MIDL_0025;
  }

  TVariant __fastcall T_T(void)
  {
    TVariant __MIDL_0026;
    OLECHECK(this->T_T((TVariant*)&__MIDL_0026));
    return __MIDL_0026;
  }

  BSTR __fastcall FetchStrFromFile(BSTR fs/*[in]*/)
  {
    BSTR __MIDL_0027 = 0;
    OLECHECK(this->FetchStrFromFile(fs, (BSTR*)&__MIDL_0027));
    return __MIDL_0027;
  }

  BSTR __fastcall RsGetColByName(BSTR ColName/*[in]*/)
  {
    BSTR __MIDL_0028 = 0;
    OLECHECK(this->RsGetColByName(ColName, (BSTR*)&__MIDL_0028));
    return __MIDL_0028;
  }

  BSTR __fastcall RsGetColName(short ColNo1/*[in]*/)
  {
    BSTR __MIDL_0029 = 0;
    OLECHECK(this->RsGetColName(ColNo1, (BSTR*)&__MIDL_0029));
    return __MIDL_0029;
  }

  TVariant __fastcall LoadBlock(void)

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -