Zur Verfügung stehende serielle Ports ermitteln !

[Daniel B]

Zitat von Florian:

Moment mal, gut gut
aber wie mach ich jetzt den check ob sie von einer anderen Anwendung benutzt wird ?
einfach mit try...except und wenns nicht geht wird sie von nem anderen programm benutzt ?
so in die richtung?

Ich benutze auch schon ewigkeiten die TComPort 2.6x. Ist wirkich klasse.
Aber, Du kannst damit ganz einfach prüfen ob ein ComPort offen ist.
Und zwar:
Mach eine Schleife,

Delphi-Quellcode:

for i := 0 to ComboBox.Items.Count -1 do
begin
  ComPort1.Port := ComboBox.Item[i];
  if ComPort1.Connected then
    //Setze nächsten Port zum überprüfen
  else 
  ComPort.Open;
  end;
end;

Du musst einfach nur den Port setzen, schauen ob der schon offen ist und wenn nein dann öffnen, ansonsten den nächsten anschauen.

Grüsse, Daniel