×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Contact US

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

com port

com port

com port

(OP)
Is it possible to know by any API which com port are available on the computer and which number they are?

Thanks
Davide

RE: com port

you can use registry to find this information.
you can look on borland web site there is tutorial for your problem:
http://community.borland.com/article/0,1410,16774,00.html

the borland delphi code looks like this:
Example:

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  reg : TRegistry;
  ts : TStrings;
  i : integer;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('hardware\devicemap\serialcomm',
              false);
  ts := TStringList.Create;
  reg.GetValueNames(ts);
  for i := 0 to ts.Count -1 do begin
    Memo1.Lines.Add(reg.ReadString(ts.Strings[i]));
  end;
  ts.Free;
  reg.CloseKey;
  reg.free;
end;

but its easy to program this in any language just use this registry nodes and 'rip' com-ports information...

Good luck
Slobo

RE: com port

Hi,

I've taken this code from a VB App that I'm writing.

CODE

Public Function EnumCommPorts(Port As Integer) As Boolean
    Dim comCfg As COMMCONFIG, comSize As Long
    comSize = LenB(comCfg)
    EnumCommPorts = IIf(GetDefaultCommConfig(("COM" & Trim(Str(Port)) & vbNullChar), comCfg, comSize), True, False)
End Function

All you need to is create a loop and pass it an integer starting at 1 going (if needed) to 16. If it returns true then the port is present on the system. Sorted.

You'll need to tweak it to suit, but it does work.

HTH

William
Software Engineer
ICQ No. 56047340

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close