stocklib_tlb.pas

通视卡接收股票delphi7演示版,用delphi 7编写

unit STOCKLib_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 : 1.2
// File generated on 2005-4-16 9:05:40 from Type Library described below.

// ************************************************************************  //
// Type Lib: C:\WINNT\system32\stock.dll (1)
// LIBID: {4F6A9E80-C79C-11D2-B401-00C04FCCA334}
// LCID: 0
// Helpfile: 
// HelpString: TongShi StockDriver 1.0 Type Library
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINNT\system32\stdole2.tlb)
// ************************************************************************ //
// *************************************************************************//
// 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}
{$VARPROPSETTER ON}
interface

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


// *********************************************************************//
// 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
  STOCKLibMajorVersion = 1;
  STOCKLibMinorVersion = 0;

  LIBID_STOCKLib: TGUID = '{4F6A9E80-C79C-11D2-B401-00C04FCCA334}';

  DIID__IStockDriverEvents: TGUID = '{9FD507CB-E42F-11D2-B30C-00C04FCCA334}';
  IID_IStockReport: TGUID = '{E518BAC6-E53B-11D2-B30C-00C04FCCA334}';
  IID_IStockReport2: TGUID = '{7B53644A-4B6F-4AE4-8CD7-67C683DC8D9E}';
  IID_IStockMinData: TGUID = '{78B9E8B1-E5FA-11D2-B30C-00C04FCCA334}';
  IID_IStockHisData: TGUID = '{A22E1441-E61B-11D2-B30C-00C04FCCA334}';
  IID_IStockDriver: TGUID = '{9FD507C9-E42F-11D2-B30C-00C04FCCA334}';
  IID_IStockDriver2: TGUID = '{7EC46973-C25F-42E3-B22E-806D3FC5C20E}';
  CLASS_StockDriver: TGUID = '{9FD507CA-E42F-11D2-B30C-00C04FCCA334}';
  CLASS_StockReport: TGUID = '{E518BAC7-E53B-11D2-B30C-00C04FCCA334}';
  CLASS_StockMinData: TGUID = '{E518BAC9-E53B-11D2-B30C-00C04FCCA334}';
  CLASS_StockHisData: TGUID = '{E518BACB-E53B-11D2-B30C-00C04FCCA334}';

// *********************************************************************//
// Declaration of Enumerations defined in Type Library                    
// *********************************************************************//
// Constants for enum OLE_MARKET_ENUM
type
  OLE_MARKET_ENUM = TOleEnum;
const
  OLE_SH_MARKETEx = $00004853;
  OLE_SZ_MARKETEx = $00005A53;
  OLE_HK_MARKETEx = $00004B48;

type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  _IStockDriverEvents = dispinterface;
  IStockReport = interface;
  IStockReportDisp = dispinterface;
  IStockReport2 = interface;
  IStockReport2Disp = dispinterface;
  IStockMinData = interface;
  IStockMinDataDisp = dispinterface;
  IStockHisData = interface;
  IStockHisDataDisp = dispinterface;
  IStockDriver = interface;
  IStockDriverDisp = dispinterface;
  IStockDriver2 = interface;
  IStockDriver2Disp = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  StockDriver = IStockDriver;
  StockReport = IStockReport;
  StockMinData = IStockMinData;
  StockHisData = IStockHisData;


// *********************************************************************//
// Declaration of structures, unions and aliases.                         
// *********************************************************************//
  OLE_RCV_REPORT = packed record
    m_Time: TDateTime;
    m_Market: OLE_MARKET_ENUM;
    m_strLabel: WideString;
    m_strName: WideString;
    m_fLastClose: Single;
    m_fOpen: Single;
    m_fHigh: Single;
    m_fLow: Single;
    m_fNewPrice: Single;
    m_fVolume: Single;
    m_fAmount: Single;
    m_fBuyPrice: array[0..2] of Single;
    m_fBuyVolume: array[0..2] of Single;
    m_fSellPrice: array[0..2] of Single;
    m_fSellVolume: array[0..2] of Single;
  end;

  OLE_RCV_REPORT2 = packed record
    m_Time: TDateTime;
    m_Market: OLE_MARKET_ENUM;
    m_strLabel: WideString;
    m_strName: WideString;
    m_fLastClose: Single;
    m_fOpen: Single;
    m_fHigh: Single;
    m_fLow: Single;
    m_fNewPrice: Single;
    m_fVolume: Single;
    m_fAmount: Single;
    m_fBuyPrice: array[0..2] of Single;
    m_fBuyVolume: array[0..2] of Single;
    m_fSellPrice: array[0..2] of Single;
    m_fSellVolume: array[0..2] of Single;
    m_fBuyPrice4: Single;
    m_fBuyVolume4: Single;
    m_fSellPrice4: Single;
    m_fSellVolume4: Single;
    m_fBuyPrice5: Single;
    m_fBuyVolume5: Single;
    m_fSellPrice5: Single;
    m_fSellVolume5: Single;
  end;

  OLE_RCV_MINUTE = packed record
    m_Time: TDateTime;
    m_Market: OLE_MARKET_ENUM;
    m_strLabel: WideString;
    m_fPrice: Single;
    m_fVolume: Single;
    m_fAmount: Single;
  end;

  OLE_RCV_HISTORY = packed record
    m_strLabel: WideString;
    m_Market: OLE_MARKET_ENUM;
    m_Time: TDateTime;
    m_fOpen: Single;
    m_fHigh: Single;
    m_fLow: Single;
    m_fClose: Single;
    m_fVolume: Single;
    m_fAmount: Single;
    m_nAdvance: SYSINT;
    m_nDecline: SYSINT;
  end;


// *********************************************************************//
// DispIntf:  _IStockDriverEvents
// Flags:     (4096) Dispatchable
// GUID:      {9FD507CB-E42F-11D2-B30C-00C04FCCA334}
// *********************************************************************//
  _IStockDriverEvents = dispinterface
    ['{9FD507CB-E42F-11D2-B30C-00C04FCCA334}']
    procedure OnReport(nPacket: Integer; pBuf: Integer); dispid 1;
    procedure OnMinData(nPacket: Integer; pBuf: Integer); dispid 2;
    procedure OnHistory(nPacketNum: Integer; pBuf: Integer); dispid 3;
    procedure OnNewsFile(NewsType: Integer; SerialNo: Integer; const pFileName: WideString; 
                         nFileLen: Integer; pBuf: Integer); dispid 4;
    procedure OnBaseFile(const strFileName: WideString; Market: Smallint; nFileLen: Integer; 
                         pBuf: Integer); dispid 5;
  end;

// *********************************************************************//
// Interface: IStockReport
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {E518BAC6-E53B-11D2-B30C-00C04FCCA334}
// *********************************************************************//
  IStockReport = interface(IDispatch)
    ['{E518BAC6-E53B-11D2-B30C-00C04FCCA334}']
    procedure Attach(nPacketNum: Integer; pDataBuf: Integer); safecall;
    function Get_ArrayIndexer: Smallint; safecall;
    procedure Set_ArrayIndexer(pVal: Smallint); safecall;
    function Get_strLabel: WideString; safecall;
    function Get_Time: TDateTime; safecall;
    function Get_strName: WideString; safecall;
    function Get_Market: OLE_MARKET_ENUM; safecall;
    function Get_LastClose: Single; safecall;
    function Get_OpenPrice: Single; safecall;
    function Get_HighPrice: Single; safecall;
    function Get_LowPrice: Single; safecall;
    function Get_NewPrice: Single; safecall;
    function Get_Volume: Single; safecall;
    function Get_Amount: Single; safecall;
    function Get_BuyPrice(i: Smallint): Single; safecall;
    function Get_BuyVolume(i: Smallint): Single; safecall;
    function Get_SellPrice(i: Smallint): Single; safecall;
    function Get_SellVolume(i: Smallint): Single; safecall;
    function Get_ElementAt(nNo: SYSINT): OLE_RCV_REPORT; safecall;
    property ArrayIndexer: Smallint read Get_ArrayIndexer write Set_ArrayIndexer;
    property strLabel: WideString read Get_strLabel;
    property Time: TDateTime read Get_Time;
    property strName: WideString read Get_strName;
    property Market: OLE_MARKET_ENUM read Get_Market;
    property LastClose: Single read Get_LastClose;
    property OpenPrice: Single read Get_OpenPrice;
    property HighPrice: Single read Get_HighPrice;
    property LowPrice: Single read Get_LowPrice;
    property NewPrice: Single read Get_NewPrice;
    property Volume: Single read Get_Volume;
    property Amount: Single read Get_Amount;
    property BuyPrice[i: Smallint]: Single read Get_BuyPrice;
    property BuyVolume[i: Smallint]: Single read Get_BuyVolume;
    property SellPrice[i: Smallint]: Single read Get_SellPrice;
    property SellVolume[i: Smallint]: Single read Get_SellVolume;
    property ElementAt[nNo: SYSINT]: OLE_RCV_REPORT read Get_ElementAt;
  end;

// *********************************************************************//
// DispIntf:  IStockReportDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {E518BAC6-E53B-11D2-B30C-00C04FCCA334}
// *********************************************************************//
  IStockReportDisp = dispinterface
    ['{E518BAC6-E53B-11D2-B30C-00C04FCCA334}']
    procedure Attach(nPacketNum: Integer; pDataBuf: Integer); dispid 1;
    property ArrayIndexer: Smallint dispid 3;
    property strLabel: WideString readonly dispid 4;
    property Time: TDateTime readonly dispid 5;
    property strName: WideString readonly dispid 6;
    property Market: OLE_MARKET_ENUM readonly dispid 7;
    property LastClose: Single readonly dispid 8;
    property OpenPrice: Single readonly dispid 9;
    property HighPrice: Single readonly dispid 10;
    property LowPrice: Single readonly dispid 11;
    property NewPrice: Single readonly dispid 12;
    property Volume: Single readonly dispid 13;
    property Amount: Single readonly dispid 14;
    property BuyPrice[i: Smallint]: Single readonly dispid 15;
    property BuyVolume[i: Smallint]: Single readonly dispid 16;
    property SellPrice[i: Smallint]: Single readonly dispid 17;
    property SellVolume[i: Smallint]: Single readonly dispid 18;
    property ElementAt[nNo: SYSINT]: {??OLE_RCV_REPORT}OleVariant readonly dispid 19;
  end;

// *********************************************************************//
// Interface: IStockReport2
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {7B53644A-4B6F-4AE4-8CD7-67C683DC8D9E}
// *********************************************************************//
  IStockReport2 = interface(IDispatch)
    ['{7B53644A-4B6F-4AE4-8CD7-67C683DC8D9E}']
    function Get_ElementAt(nNo: SYSINT): OLE_RCV_REPORT2; safecall;
    property ElementAt[nNo: SYSINT]: OLE_RCV_REPORT2 read Get_ElementAt;
  end;

// *********************************************************************//
// DispIntf:  IStockReport2Disp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {7B53644A-4B6F-4AE4-8CD7-67C683DC8D9E}
// *********************************************************************//
  IStockReport2Disp = dispinterface
    ['{7B53644A-4B6F-4AE4-8CD7-67C683DC8D9E}']
    property ElementAt[nNo: SYSINT]: {??OLE_RCV_REPORT2}OleVariant readonly dispid 1;
  end;

// *********************************************************************//
// Interface: IStockMinData
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {78B9E8B1-E5FA-11D2-B30C-00C04FCCA334}
// *********************************************************************//
  IStockMinData = interface(IDispatch)
    ['{78B9E8B1-E5FA-11D2-B30C-00C04FCCA334}']
    procedure Attach(nPacketNum: Smallint; pDataBuf: Integer); safecall;
    function Get_ArrayIndexer: Smallint; safecall;
    function Get_strLabel: WideString; safecall;
    function Get_Market: OLE_MARKET_ENUM; safecall;
    function Get_Time: TDateTime; safecall;
    function Get_Price: Single; safecall;
    function Get_Volume: Single; safecall;
    function Get_Amount: Single; safecall;
    function Get_PacketNum: Smallint; safecall;
    procedure Next; safecall;
    function Get_ElementAt(i: Integer): OLE_RCV_MINUTE; safecall;
    property ArrayIndexer: Smallint read Get_ArrayIndexer;
    property strLabel: WideString read Get_strLabel;
    property Market: OLE_MARKET_ENUM read Get_Market;
    property Time: TDateTime read Get_Time;
    property Price: Single read Get_Price;
    property Volume: Single read Get_Volume;
    property Amount: Single read Get_Amount;
    property PacketNum: Smallint read Get_PacketNum;
    property ElementAt[i: Integer]: OLE_RCV_MINUTE read Get_ElementAt;
  end;

// *********************************************************************//
// DispIntf:  IStockMinDataDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {78B9E8B1-E5FA-11D2-B30C-00C04FCCA334}
// *********************************************************************//
  IStockMinDataDisp = dispinterface
    ['{78B9E8B1-E5FA-11D2-B30C-00C04FCCA334}']
    procedure Attach(nPacketNum: Smallint; pDataBuf: Integer); dispid 1;
    property ArrayIndexer: Smallint readonly dispid 2;
    property strLabel: WideString readonly dispid 3;
    property Market: OLE_MARKET_ENUM readonly dispid 4;
    property Time: TDateTime readonly dispid 5;
    property Price: Single readonly dispid 6;
    property Volume: Single readonly dispid 7;
    property Amount: Single readonly dispid 8;
    property PacketNum: Smallint readonly dispid 9;
    procedure Next; dispid 10;
    property ElementAt[i: Integer]: {??OLE_RCV_MINUTE}OleVariant readonly dispid 11;
  end;

// *********************************************************************//
// Interface: IStockHisData
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {A22E1441-E61B-11D2-B30C-00C04FCCA334}
// *********************************************************************//
  IStockHisData = interface(IDispatch)
    ['{A22E1441-E61B-11D2-B30C-00C04FCCA334}']
    procedure Attach(nPacket: Integer; pBuf: Integer); safecall;
    function Get_ArrayIndexer: Integer; safecall;
    function Get_strLabel: WideString; safecall;
    function Get_Market: OLE_MARKET_ENUM; safecall;
    function Get_OpenPrice: Single; safecall;
    function Get_Time: TDateTime; safecall;
    function Get_HighPrice: Single; safecall;
    function Get_LowPrice: Single; safecall;
    function Get_ClosePrice: Single; safecall;
    function Get_Volume: Single; safecall;
    function Get_Amount: Single; safecall;
    function Get_AdvanceNum: Integer; safecall;
    function Get_DeclineNum: Integer; safecall;
    function Get_PacketNum: Integer; safecall;
    procedure Next; safecall;
    function Get_ElementAt(i: Integer): OLE_RCV_HISTORY; safecall;
    property ArrayIndexer: Integer read Get_ArrayIndexer;
    property strLabel: WideString read Get_strLabel;
    property Market: OLE_MARKET_ENUM read Get_Market;
    property OpenPrice: Single read Get_OpenPrice;
    property Time: TDateTime read Get_Time;
    property HighPrice: Single read Get_HighPrice;
    property LowPrice: Single read Get_LowPrice;
    property ClosePrice: Single read Get_ClosePrice;
    property Volume: Single read Get_Volume;
    property Amount: Single read Get_Amount;
    property AdvanceNum: Integer read Get_AdvanceNum;
    property DeclineNum: Integer read Get_DeclineNum;
    property PacketNum: Integer read Get_PacketNum;
    property ElementAt[i: Integer]: OLE_RCV_HISTORY read Get_ElementAt;
  end;

// *********************************************************************//
// DispIntf:  IStockHisDataDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {A22E1441-E61B-11D2-B30C-00C04FCCA334}
// *********************************************************************//
  IStockHisDataDisp = dispinterface
    ['{A22E1441-E61B-11D2-B30C-00C04FCCA334}']
    procedure Attach(nPacket: Integer; pBuf: Integer); dispid 1;
    property ArrayIndexer: Integer readonly dispid 2;
    property strLabel: WideString readonly dispid 3;
    property Market: OLE_MARKET_ENUM readonly dispid 4;
    property OpenPrice: Single readonly dispid 5;
    property Time: TDateTime readonly dispid 6;
    property HighPrice: Single readonly dispid 7;
    property LowPrice: Single readonly dispid 8;
    property ClosePrice: Single readonly dispid 9;
    property Volume: Single readonly dispid 10;
    property Amount: Single readonly dispid 11;
    property AdvanceNum: Integer readonly dispid 12;
    property DeclineNum: Integer readonly dispid 13;
    property PacketNum: Integer readonly dispid 14;
    procedure Next; dispid 15;
    property ElementAt[i: Integer]: {??OLE_RCV_HISTORY}OleVariant readonly dispid 16;
  end;

// *********************************************************************//
// Interface: IStockDriver
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {9FD507C9-E42F-11D2-B30C-00C04FCCA334}
// *********************************************************************//
  IStockDriver = interface(IDispatch)
    ['{9FD507C9-E42F-11D2-B30C-00C04FCCA334}']
    procedure Set_BackColor(pclr: OLE_COLOR); safecall;
    function Get_BackColor: OLE_COLOR; safecall;
    function Get_Channel: WideString; safecall;
    function Get_Provider: WideString; safecall;
    function Get_RcvIDCode: WideString; safecall;
    function Get_Version: WideString; safecall;
    function Get_TotalNumber: Integer; safecall;
    procedure Receive; safecall;
    procedure Stop; safecall;
    procedure Setup(bShowWnd: Integer); safecall;
    function Get_EnableReportEvent: Smallint; safecall;
    procedure Set_EnableReportEvent(pVal: Smallint); safecall;
    function Get_EnableMinEvent: Smallint; safecall;