list of serial ports in combobox

[luk2009]

Hi

In Delphi

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2.  var
3.  reg:  TRegistry;
4.  I:Integer;
5. begin
6.    Reg := TRegistry.Create;
7.   try
8.     Reg.RootKey := HKEY_LOCAL_MACHINE;
9.     if Reg.OpenKey('HARDWARE\DEVICEMAP\SERIALCOMM', false) then
10.     begin
11.       Reg.GetValueNames(ComboBox1.Items);
12.       for I := 0 to ComboBox1.Items.Count - 1 do
13.           ComboBox1.Items[i] := Reg.ReadString(ComboBox1.Items[i]);
14.     end;
15.     ComboBox1.Sorted := true;
16.   finally
17.     Reg.Free;
18.   end;
19. end;  

How Can I do this on lazarus?

[molly]

How Can I do this on lazarus?

(Almost) exactly the same ? 

[Paul Breneman]

How Can I do this on lazarus?

You might take a look at the bottom of the SynaSer.pas unit (that unit lists the ports in Windows and Linux) here: www.CtrlTerm.com

[luk2009]

How Can I do this on lazarus?

You might take a look at the bottom of the SynaSer.pas unit (that unit lists the ports in Windows and Linux) here: www.CtrlTerm.com

thanks Paul

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   ports : string;
4.  
5. begin
6.   ports := GetSerialPortNames;
7.   ComboBox1.Items.Add(ports);
8.  
9. end;    

[luk2009]

How Can I do this on lazarus?

(Almost) exactly the same ? 

Thanks molly
uses   .....  registry;

Code: Pascal  [Select][+][-]

1. var
2. I:integer;
3. reg:tregistry;
4.  
5. begin
6.    Reg := TRegistry.Create;
7.   try
8.     Reg.RootKey := HKEY_LOCAL_MACHINE;
9.     if Reg.OpenKeyReadOnly('HARDWARE\DEVICEMAP\SERIALCOMM') then
10.     begin
11.       Reg.GetValueNames(ComboBox1.Items);
12.       for I := 0 to ComboBox1.Items.Count - 1 do
13.           ComboBox1.Items[i] := Reg.ReadString(ComboBox1.Items[i]);
14.     end;
15.     ComboBox1.Sorted := true;
16.   finally
17.     Reg.Free;
18.   end;              

[molly]

@luk2009,
Excellent 

Thank you for posting your answers. Great spirit that allows others to learn from 

uses   .....  registry;

For the life of me i can't remember what we had to use for delphi to use the registry.... does it matter ? nope ! 

[Jurassic Pork]

hello,
with the Tlazserial component, you have a  form for settings of the serial port. In this form, you can choose your port from a combobox filled with the serial ports of your system (see attachment). You can try the sertest example of the component to see how this works.
in this form To list the serial port in the combobox , the function    GetSerialPortNames of synaser is used like this :

Code: Pascal  [Select][+][-]

1. ComComboBox1.Items.CommaText :=  GetSerialPortNames();  

Friendly, J.P

[luk2009]

jurassic

thanks for the info

That seems a better way to do it.

The answers that I put were for tests

[Stan17]

hello,
with the Tlazserial component, you have a  form for settings of the serial port. In this form, you can choose your port from a combobox filled with the serial ports of your system (see attachment). You can try the sertest example of the component to see how this works.
in this form To list the serial port in the combobox , the function    GetSerialPortNames of synaser is used like this :

Code: Pascal  [Select][+][-]

1. ComComboBox1.Items.CommaText :=  GetSerialPortNames();  

Friendly, J.P

When there is no COM ports available, it still shows COM1

[J-G]

When there is no COM ports available, it still shows COM1

I'm guessing - but from a solid technical background - that although you may not have a physical Com port outlet on the back of your PC there is one on the motherboard  -  just waiting for a cable to be attached.

[marcov]

See also http://stackoverflow.com/questions/16100798/serial-com-ports-name-or-identification

Virtual comports of webcams touchscreens and the like make it sometimes difficult, specially on laptops.