GetSerialPort Method

Retrieves string value of serial port name.

Syntax

Delphi
function GetSerialPort(index: Word): String; 
BCBuilder
String GetSerialPort(Word index);
 

Parameters

index

[in] Index of serial port (0 ... number_of_ports - 1).

Return

String value representing serial port name.

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;