SPCOMM_BUG_delphiSPCOMM_

procedure TMainFrm.advBtnConnectClick(Sender: TObject); var serialPortNO: string; begin try with comMain do begin StopComm; serialPortNO := Copy(cbbCOM.Text, 4, Length(cbbCOM.Text) - 3); BaudRate := StrToInt(cbbBaudRate.Text); // ByteSize := TByteSize(cbbByteSize.ItemIndex); // StopBits := TStopBits(cbbStopBit.ItemIndex); // Parity := TParity(cbbCheckBit.ItemIndex); if StrToInt(serialPortNO) > 9 then begin CommName := '//./' + cbbCOM.Text; end else begin CommName := cbbCOM.Text; end; comMain.StartComm; connectStatus.Caption := 'Connected'; connectStatus.FillColor := clLime; advBtnConnect.Enabled := False; gbSendMsg.Enabled := True; end; except connectStatus.Caption := 'Not Connected'; connectStatus.FillColor := clRed; gbSendMsg.Enabled := False; end; end;