EnumSerialPorts Method

Refreshes information about serial ports and returns their number.

Syntax

Delphi
function EnumSerialPorts(): Word; 
BCBuilder
Word EnumSerialPorts();
 

Parameters

None.

Errors

The method may throw exception. Refer to Handle errors sample for details.

Remarks

To retrieve information about each serial port, use GetSerialPort.

Code Example

var
	i: integer;
	PortName: string;
	PortsCount: Word;
begin
	try
		PortsCount := FTSPCControl1.EnumSerialPorts();
		if PortsCount > 0 then
		begin
			for i := 0 to PortsCount - 1 do
			begin
				PortName := FTSPCControl1.GetSerialPort(i);

				// Todo: add your code

			end;
		end;
	except
		on e:FTSPCException do
		begin
			application.MessageBox(
				PChar('Error: ' + inttostr(e.ErrorCode) + 
				' - ' + e.ErrorSource), 'Error!', MB_OK + 
				MB_ICONERROR);
		end;
	end;
end;