cl2005ocxlib_tlb.pas

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

    EventCount: 0;
    EventDispIDs: nil;
    LicenseKey: nil (*HR:$80004005*);
    Flags: $00000000;
    Version: 401);
begin
  ControlData := @CControlData;
end;

procedure TCL2005Ocx.CreateControl;

  procedure DoCreate;
  begin
    FIntf := IUnknown(OleObject) as _DCL2005Ocx;
  end;

begin
  if FIntf = nil then DoCreate;
end;

function TCL2005Ocx.GetControlInterface: _DCL2005Ocx;
begin
  CreateControl;
  Result := FIntf;
end;

function TCL2005Ocx.ComInitial(ComPort: Smallint; BaudRate: Integer; WaitTime: Smallint): WordBool;
begin
  Result := DefaultInterface.ComInitial(ComPort, BaudRate, WaitTime);
end;

function TCL2005Ocx.ModemInitial(ModemPort: Smallint; WaitTime: Smallint): WordBool;
begin
  Result := DefaultInterface.ModemInitial(ModemPort, WaitTime);
end;

function TCL2005Ocx.NetInitial(RemoteIP: Integer; ClientServerMode: Smallint; WaitTime: Smallint): WordBool;
begin
  Result := DefaultInterface.NetInitial(RemoteIP, ClientServerMode, WaitTime);
end;

procedure TCL2005Ocx.CloseCL2005;
begin
  DefaultInterface.CloseCL2005;
end;

function TCL2005Ocx.SendModemCmd(lpCmdStr: Integer; lpRetStr: Integer): WordBool;
begin
  Result := DefaultInterface.SendModemCmd(lpCmdStr, lpRetStr);
end;

function TCL2005Ocx.SetLEDProperty(CardType: Smallint; CardNum: Smallint; Width: Smallint; 
                                   Height: Smallint; Color: Smallint; LockHZLibFlag: Smallint): WordBool;
begin
  Result := DefaultInterface.SetLEDProperty(CardType, CardNum, Width, Height, Color, LockHZLibFlag);
end;

function TCL2005Ocx.GetTotalPictureCount: Smallint;
begin
  Result := DefaultInterface.GetTotalPictureCount;
end;

function TCL2005Ocx.GetPictureSendTimes: Smallint;
begin
  Result := DefaultInterface.GetPictureSendTimes;
end;

function TCL2005Ocx.CorrectTimer: WordBool;
begin
  Result := DefaultInterface.CorrectTimer;
end;

function TCL2005Ocx.SendPicture(PictureIndex: Smallint; lpPictureBuff: Integer): WordBool;
begin
  Result := DefaultInterface.SendPicture(PictureIndex, lpPictureBuff);
end;

function TCL2005Ocx.SendPictureEx(PictureIndex: Smallint; SendSteps: Smallint; 
                                  lpPictureBuff: Integer): WordBool;
begin
  Result := DefaultInterface.SendPictureEx(PictureIndex, SendSteps, lpPictureBuff);
end;

function TCL2005Ocx.SendProgList(TotalProgCount: Smallint; lpProgList: Integer): WordBool;
begin
  Result := DefaultInterface.SendProgList(TotalProgCount, lpProgList);
end;

function TCL2005Ocx.SetBrightness(Brightness: Smallint): WordBool;
begin
  Result := DefaultInterface.SetBrightness(Brightness);
end;

function TCL2005Ocx.SetPowerRelay(OnOff: Smallint): WordBool;
begin
  Result := DefaultInterface.SetPowerRelay(OnOff);
end;

function TCL2005Ocx.SetAutoPower(On_Hour: Smallint; On_Minute: Smallint; Off_Hour: Smallint; 
                                 Off_Minute: Smallint): WordBool;
begin
  Result := DefaultInterface.SetAutoPower(On_Hour, On_Minute, Off_Hour, Off_Minute);
end;

function TCL2005Ocx.ShowString(bank: Smallint; XPos: Smallint; YPos: Smallint; Color: Smallint; 
                               lpString: Integer): WordBool;
begin
  Result := DefaultInterface.ShowString(bank, XPos, YPos, Color, lpString);
end;

function TCL2005Ocx.Line(bank: Smallint; xLeft: Smallint; yTop: Smallint; xRight: Smallint; 
                         yBottom: Smallint; Color: Smallint): WordBool;
begin
  Result := DefaultInterface.Line(bank, xLeft, yTop, xRight, yBottom, Color);
end;

function TCL2005Ocx.SwitchToBank(DestBank: Smallint): WordBool;
begin
  Result := DefaultInterface.SwitchToBank(DestBank);
end;

function TCL2005Ocx.CopyToBank(DestBank: Smallint): WordBool;
begin
  Result := DefaultInterface.CopyToBank(DestBank);
end;

function TCL2005Ocx.ClearBank(DestBank: Smallint): WordBool;
begin
  Result := DefaultInterface.ClearBank(DestBank);
end;

function TCL2005Ocx.ShowPicture(bank: Smallint; lpPictureBuff: Integer): WordBool;
begin
  Result := DefaultInterface.ShowPicture(bank, lpPictureBuff);
end;

function TCL2005Ocx.ShowPictureEx(bank: Smallint; steps: Smallint; lpPictureBuff: Integer): WordBool;
begin
  Result := DefaultInterface.ShowPictureEx(bank, steps, lpPictureBuff);
end;

function TCL2005Ocx.SaveToPicture(bank: Smallint; PictureIndex: Smallint): WordBool;
begin
  Result := DefaultInterface.SaveToPicture(bank, PictureIndex);
end;

function TCL2005Ocx.LoadPicture(bank: Smallint; PictureIndex: Smallint): WordBool;
begin
  Result := DefaultInterface.LoadPicture(bank, PictureIndex);
end;

function TCL2005Ocx.SendBrightnessTable(lpBrightnessTable: Integer): WordBool;
begin
  Result := DefaultInterface.SendBrightnessTable(lpBrightnessTable);
end;

function TCL2005Ocx.SendDigitCode(lpDigitCode: Integer): WordBool;
begin
  Result := DefaultInterface.SendDigitCode(lpDigitCode);
end;

function TCL2005Ocx.LYNotPublishedFunction(FuncIndex: Smallint; ByteCount: Smallint; 
                                           lpDataBuff: Integer): WordBool;
begin
  Result := DefaultInterface.LYNotPublishedFunction(FuncIndex, ByteCount, lpDataBuff);
end;

function TCL2005Ocx.InsertlyPlay(lpProg: Integer; lpPict: Integer): WordBool;
begin
  Result := DefaultInterface.InsertlyPlay(lpProg, lpPict);
end;

function TCL2005Ocx.SendTextToPicture(PictIndex: Smallint; lpString: Integer): WordBool;
begin
  Result := DefaultInterface.SendTextToPicture(PictIndex, lpString);
end;

function TCL2005Ocx.Reset: WordBool;
begin
  Result := DefaultInterface.Reset;
end;

function TCL2005Ocx.GetDataPackage(lp16BitsBuff: Integer): WordBool;
begin
  Result := DefaultInterface.GetDataPackage(lp16BitsBuff);
end;

procedure Register;
begin
  RegisterComponents(dtlOcxPage, [TCL2005Ocx]);
end;

end.