Serielle Schnittstellen / ComPort Abfragen

[Frank ter Duis]

Hi Leute, <br><br>
wie kann ich abfragen welche PomPorts an einem Rechner alles vorhanden sind? <br><br>
CU<br>
Frank

[Elmar Herzog]

Hallo,<p>
wenn es darum geht, wieviele COM-Anschlüsse vorhanden sind:<bR> http://www.entwickler-forum.de\webx?50@@.ee6f1b1/3 <p>
Was ist bitte mit "welche" gemeint

[Frank ter Duis]

Ich meinte nicht unbedingt wie viele sondern welche z. B. COM1 und COM2 oder COM1, COM2 und COM

[Frank ter Duis]

Danke genau das beispiel hab ich gesucht... besten Dank (kapieren muss ichs ja nicht, haupsache läuft ;-)

[Ulli Schmidt]

Hallo,

Vielleicht ist folgende Möglichkeit hilfreich:

<PRE>
function CommExists(CommPort : integer) : boolean;
var
s : array[0..10] of char;
i : cardinal;
CommConfig : TCommConfig;
begin
s:='COM';
StrCat(s,Pchar(IntToStr(Commport)));
StrCat(s,#0);
i:=SizeOf(CommConfig);
Result:=GetDefaultCommConfig(s,CommConfig,i);
end;
</PRE&gt