cl2005ocxlib_tlb.pas

通讯屏控制卡串口发送 最大控制宽度达2048列

unit CL2005OCXLib_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 2007-3-3 16:25:06 from Type Library described below.

// ************************************************************************  //
// Type Lib: C:\Program Files\Borland\Delphi7\Ocx\CL2005Ocx.ocx (1)
// LIBID: {4F705C60-AE8A-45D8-9C0A-6EBD0758B8EC}
// LCID: 0
// Helpfile: C:\Program Files\Borland\Delphi7\Ocx\CL2005Ocx.hlp
// HelpString: CL2005Ocx ActiveX Control module
// DepndLst: 
//   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// ************************************************************************ //
{$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
  CL2005OCXLibMajorVersion = 1;
  CL2005OCXLibMinorVersion = 0;

  LIBID_CL2005OCXLib: TGUID = '{4F705C60-AE8A-45D8-9C0A-6EBD0758B8EC}';

  DIID__DCL2005Ocx: TGUID = '{51E24746-F074-4E34-A298-12D201F695D5}';
  DIID__DCL2005OcxEvents: TGUID = '{0ECDAA89-128F-49AB-B13D-7CDCF3651707}';
  CLASS_CL2005Ocx: TGUID = '{50C0ECAC-CF72-4E79-B44F-0FA3C9AB0056}';
type

// *********************************************************************//
// Forward declaration of types defined in TypeLibrary                    
// *********************************************************************//
  _DCL2005Ocx = dispinterface;
  _DCL2005OcxEvents = dispinterface;

// *********************************************************************//
// Declaration of CoClasses defined in Type Library                       
// (NOTE: Here we map each CoClass to its Default Interface)              
// *********************************************************************//
  CL2005Ocx = _DCL2005Ocx;


// *********************************************************************//
// DispIntf:  _DCL2005Ocx
// Flags:     (4112) Hidden Dispatchable
// GUID:      {51E24746-F074-4E34-A298-12D201F695D5}
// *********************************************************************//
  _DCL2005Ocx = dispinterface
    ['{51E24746-F074-4E34-A298-12D201F695D5}']
    function ComInitial(ComPort: Smallint; BaudRate: Integer; WaitTime: Smallint): WordBool; dispid 1;
    function ModemInitial(ModemPort: Smallint; WaitTime: Smallint): WordBool; dispid 2;
    function NetInitial(RemoteIP: Integer; ClientServerMode: Smallint; WaitTime: Smallint): WordBool; dispid 3;
    procedure CloseCL2005; dispid 4;
    function SendModemCmd(lpCmdStr: Integer; lpRetStr: Integer): WordBool; dispid 5;
    function SetLEDProperty(CardType: Smallint; CardNum: Smallint; Width: Smallint; 
                            Height: Smallint; Color: Smallint; LockHZLibFlag: Smallint): WordBool; dispid 6;
    function GetTotalPictureCount: Smallint; dispid 7;
    function GetPictureSendTimes: Smallint; dispid 8;
    function CorrectTimer: WordBool; dispid 9;
    function SendPicture(PictureIndex: Smallint; lpPictureBuff: Integer): WordBool; dispid 10;
    function SendPictureEx(PictureIndex: Smallint; SendSteps: Smallint; lpPictureBuff: Integer): WordBool; dispid 11;
    function SendProgList(TotalProgCount: Smallint; lpProgList: Integer): WordBool; dispid 12;
    function SetBrightness(Brightness: Smallint): WordBool; dispid 13;
    function SetPowerRelay(OnOff: Smallint): WordBool; dispid 14;
    function SetAutoPower(On_Hour: Smallint; On_Minute: Smallint; Off_Hour: Smallint; 
                          Off_Minute: Smallint): WordBool; dispid 15;
    function ShowString(bank: Smallint; XPos: Smallint; YPos: Smallint; Color: Smallint; 
                        lpString: Integer): WordBool; dispid 16;
    function Line(bank: Smallint; xLeft: Smallint; yTop: Smallint; xRight: Smallint; 
                  yBottom: Smallint; Color: Smallint): WordBool; dispid 17;
    function SwitchToBank(DestBank: Smallint): WordBool; dispid 18;
    function CopyToBank(DestBank: Smallint): WordBool; dispid 19;
    function ClearBank(DestBank: Smallint): WordBool; dispid 20;
    function ShowPicture(bank: Smallint; lpPictureBuff: Integer): WordBool; dispid 21;
    function ShowPictureEx(bank: Smallint; steps: Smallint; lpPictureBuff: Integer): WordBool; dispid 22;
    function SaveToPicture(bank: Smallint; PictureIndex: Smallint): WordBool; dispid 23;
    function LoadPicture(bank: Smallint; PictureIndex: Smallint): WordBool; dispid 24;
    function SendBrightnessTable(lpBrightnessTable: Integer): WordBool; dispid 25;
    function SendDigitCode(lpDigitCode: Integer): WordBool; dispid 26;
    function LYNotPublishedFunction(FuncIndex: Smallint; ByteCount: Smallint; lpDataBuff: Integer): WordBool; dispid 27;
    function InsertlyPlay(lpProg: Integer; lpPict: Integer): WordBool; dispid 28;
    function SendTextToPicture(PictIndex: Smallint; lpString: Integer): WordBool; dispid 29;
    function Reset: WordBool; dispid 30;
    function GetDataPackage(lp16BitsBuff: Integer): WordBool; dispid 31;
  end;

// *********************************************************************//
// DispIntf:  _DCL2005OcxEvents
// Flags:     (4096) Dispatchable
// GUID:      {0ECDAA89-128F-49AB-B13D-7CDCF3651707}
// *********************************************************************//
  _DCL2005OcxEvents = dispinterface
    ['{0ECDAA89-128F-49AB-B13D-7CDCF3651707}']
  end;


// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name     : TCL2005Ocx
// Help String      : CL2005Ocx Control
// Default Interface: _DCL2005Ocx
// Def. Intf. DISP? : Yes
// Event   Interface: _DCL2005OcxEvents
// TypeFlags        : (34) CanCreate Control
// *********************************************************************//
  TCL2005Ocx = class(TOleControl)
  private
    FIntf: _DCL2005Ocx;
    function  GetControlInterface: _DCL2005Ocx;
  protected
    procedure CreateControl;
    procedure InitControlData; override;
  public
    function ComInitial(ComPort: Smallint; BaudRate: Integer; WaitTime: Smallint): WordBool;
    function ModemInitial(ModemPort: Smallint; WaitTime: Smallint): WordBool;
    function NetInitial(RemoteIP: Integer; ClientServerMode: Smallint; WaitTime: Smallint): WordBool;
    procedure CloseCL2005;
    function SendModemCmd(lpCmdStr: Integer; lpRetStr: Integer): WordBool;
    function SetLEDProperty(CardType: Smallint; CardNum: Smallint; Width: Smallint; 
                            Height: Smallint; Color: Smallint; LockHZLibFlag: Smallint): WordBool;
    function GetTotalPictureCount: Smallint;
    function GetPictureSendTimes: Smallint;
    function CorrectTimer: WordBool;
    function SendPicture(PictureIndex: Smallint; lpPictureBuff: Integer): WordBool;
    function SendPictureEx(PictureIndex: Smallint; SendSteps: Smallint; lpPictureBuff: Integer): WordBool;
    function SendProgList(TotalProgCount: Smallint; lpProgList: Integer): WordBool;
    function SetBrightness(Brightness: Smallint): WordBool;
    function SetPowerRelay(OnOff: Smallint): WordBool;
    function SetAutoPower(On_Hour: Smallint; On_Minute: Smallint; Off_Hour: Smallint; 
                          Off_Minute: Smallint): WordBool;
    function ShowString(bank: Smallint; XPos: Smallint; YPos: Smallint; Color: Smallint; 
                        lpString: Integer): WordBool;
    function Line(bank: Smallint; xLeft: Smallint; yTop: Smallint; xRight: Smallint; 
                  yBottom: Smallint; Color: Smallint): WordBool;
    function SwitchToBank(DestBank: Smallint): WordBool;
    function CopyToBank(DestBank: Smallint): WordBool;
    function ClearBank(DestBank: Smallint): WordBool;
    function ShowPicture(bank: Smallint; lpPictureBuff: Integer): WordBool;
    function ShowPictureEx(bank: Smallint; steps: Smallint; lpPictureBuff: Integer): WordBool;
    function SaveToPicture(bank: Smallint; PictureIndex: Smallint): WordBool;
    function LoadPicture(bank: Smallint; PictureIndex: Smallint): WordBool;
    function SendBrightnessTable(lpBrightnessTable: Integer): WordBool;
    function SendDigitCode(lpDigitCode: Integer): WordBool;
    function LYNotPublishedFunction(FuncIndex: Smallint; ByteCount: Smallint; lpDataBuff: Integer): WordBool;
    function InsertlyPlay(lpProg: Integer; lpPict: Integer): WordBool;
    function SendTextToPicture(PictIndex: Smallint; lpString: Integer): WordBool;
    function Reset: WordBool;
    function GetDataPackage(lp16BitsBuff: Integer): WordBool;
    property  ControlInterface: _DCL2005Ocx read GetControlInterface;
    property  DefaultInterface: _DCL2005Ocx read GetControlInterface;
  published
    property Anchors;
  end;

procedure Register;

resourcestring
  dtlServerPage = 'ActiveX';

  dtlOcxPage = 'ActiveX';

implementation

uses ComObj;

procedure TCL2005Ocx.InitControlData;
const
  CControlData: TControlData2 = (
    ClassID: '{50C0ECAC-CF72-4E79-B44F-0FA3C9AB0056}';
    EventIID: '';