lightallboxthread.pas

自己用API编写的端口通讯

unit MyThread;

interface
uses
    Classes,TestControl;

type
    LightAllBoxThread = Class (TThread)
    public
       constructor  Create(CreateSuspended: Boolean);
       procedure Execute; override;
    end;

implementation

{ LightAllBoxThread }

constructor LightAllBoxThread.Create(CreateSuspended: Boolean);
begin

end;

procedure LightAllBoxThread.Execute;
var
  i,j:integer;
begin
  inherited;
  if ((Form1.ComboBoxCom.Text='') or (Form1.ComboBoxCabinet.Text='') or (self.ComboBoxBox.Text='')) then
  begin
       ShowMessage('未选择串口、柜子、抽屉');
       exit;
  end;
  for i:=0 to 15 do
  begin
      for j:=0 to self.FUnitMaxNumber-1 do
      begin
          if not (Form1.FCabinetControler.LighterStoreUnit(i,
                       Form1.ComboBoxBox.ItemIndex,j)) then
          begin
              ShowMessage('点亮失败');
              exit;
          end;
          Sleep(2000);
      end;
  end;
  ShowMessage('所有单元指示灯点亮成功');

end;

end.