Enumerate serial ports
'---------------------------------------------------------------------
' Visual Basic 6 Example
'---------------------------------------------------------------------
On Error GoTo ErrorHandler
Dim i As Integer
Dim nPorts As Integer
Dim PortName As String
nPorts = FTSPCControl1.EnumSerialPorts()
For i = 0 To nPorts
PortName = FTSPCControl1.GetSerialPort(i)
' Todo: add your code
Next i
Exit Sub
ErrorHandler:
Dim err_code As Integer
err_code = FTSPCControl1.GetLastError
MsgBox "ErrorCode = " & CStr(err_code) & " - " & _
Err.Description, vbCritical, "Error!"
/////////////////////////////////////////////////////////////////////
// C++ Example
/////////////////////////////////////////////////////////////////////
CString PortName;
try
{
long nPorts = m_SPCControl1.EnumSerialPorts();
for (int i = 0; i < nPorts i++)
{
PortName = m_SPCControl1.GetSerialPort(i);
// Todo: add your code
}
}
catch(COleDispatchException* E)
{
MessageBox(E->m_strDescription, mbCaption, MB_OK | MB_ICONERROR);
}