Dynamisch ComPort ermitteln...

[bingo72]

Hallo Delphi-Kollegen!!

Ich verwende AsyncPro um Daten von den USB-Schnittstellen zu lesen...alles ok!!
Da auf jedem PC die ComPort-Nummern anders sein können/werden, suche ich nach einer Möglichkeit, daß die Applikation selbstständig alle Ports scannt und den richtigen Port findet??
Bislang stellte ich dem Anwender eine Combo-Box zur Auswahl seines Anschlusses zur Verfügung...geht das auch auf eine automatische Art und Weise, sodaß sich darum der Anwender nicht kümmern muß??

LG
Thomas

[SirThornberry]

dann müsstest du wissen woran du erkennst ob du den richtigen Comport hast. Und das hängt ja dann vom Gerät ab. Und was ist wenn er Nutzer mehrere Geräte angeschlossen hat? Dann könnte er nicht auswählen welches er nutzen will.

[bingo72]

Hintergrund meiner Frage ist folgender:

Eine USB-GPS-Maus sowie ein Bewegungssensor (ebenfalls über USB) hängen über einen Hub an meinem Laptop. Hier ist es ja klar, an welchen Port welcher Sensor sitzt. Nur wenn ich meinen Hub an einen anderen Laptop hänge, dann vergibt Windows unter umständen andere Port-Nummern. Nun müßte der Anwender, der in der Regel ein Laie ist, herausfinden welcher Sensor, welche Port-Nummer hat.
Und diese Arbeit will ich ihm abnehmen...

Den richtigen Comport würde ich wahrscheinlich, an der Art der erhaltenen Werte erkennen können.....beim Bewegungssensor sind es Realwerte, beim GPS sind es NMEA-String-Sätze....find i zwar auch ned einen guten Ansatz, aber zumindest müßte sich das auf diese Weise unterscheiden lassen??!!

Oder bietet für genau mein Anliegen bereits AsyncPro alle Features und ich weiß sie nur nicht??

[bingo72]

Hatte noch keiner dieses Problem??

[oki]

Hallo Bingo72,

du kannst das Thema imho nur damit lösen, in dem du in einer sogenannten Initialisierungsprozedur folgendes tust:

- alle vorhandenen Com-Ports finden,
- beim ersten beginnend jeden Port öffnen,
- auf initialisierung deiner Endgeräte eine definierte Zeit warten,
- erhaltenen Traffic auswerten welches deiner Geräte passt oder Timeout abwaren,
- erkannte eigenen Geräte auflisten,
- Kunden Auswahl bestätigen lassen.

Das setzt voraus, dass deine Geräte nach öffnen des Ports automatisch Daten schicken. Deine GPS-Maus sollte dies tun (ich glaube NMEA-Protokolle). Läßt sich ein Port nicht öffnen, ist er von einer anderen Anwendung belegt. Diese Exception mußt du abfangen und entsprechend verarbeiten. Werden mehrere Geräte des richtigen Typs erkannt bietest du dem anwender eine Auswahl an.

Sollten deine Geräte auf eine spezielle Sequenz antworten, so kannst du diese natürlich auch auf jeden Port senden. Damit entsteht aber das Problem, dass Geräte die diesen nicht verarbeiten können Sachen tun die nicht erwünscht oder gut sind. Aus diesem Grund würde ich die passende Methode vorziehen.

Wie man zu den eingerichteten Com-Ports die dazugehörigen installierten Treiber erkennt weis ich leider nicht. Sollte das möglich sein und diese speziell für deine Endreräte eingerichtet sein, so besteht auch die Möglichkeit diese zu erkennen und eine entsprechende Zuordnung zu setzen. Imho benötigt eine GPS-Maus aber keinen speziellen Treiber. Somit müßte sich diese Variante ausschließen.

Gruß oki

[alzaimar]

... normalerweise macht man soetwas nicht, das ist zu unsicher. Wir beschäftigen uns seit 20 Jahren mit dem Thema und verpassen unseren Applikationen einen Konfigurations-Dialog, in dem der Anwender einträgt, an welchem Com-Port welches Gerät hängt. Nebenbei wird hier noch Baudrate, Start-Stop Bits, Parität und Flusskontrolle eingestellt.

In deinem speziellen Fall kannst Du versuchen, über eine Heuristik genau deine beiden Geräte zu finden. Das dürfte sogar funktionieren, zumal du genau weisst, was rüberkommen muss. Diese Vorgehensweise wurde ja eben schon von oki erläutert.

Aber Eins verstehe ich nicht: USB und COM-Ports, wie passt das zusammen?

[bingo72]

Hallo Oki!!

Danke für Deine rasche Antwort....so in die Richtung hab ich mir das auch gedacht...
Ich hab mal sowas in die Richtung ausprobiert:

Delphi-Quellcode:

procedure TComPorts.ComPortTest;
var
  lStatusOK        : Boolean;
  lPortNr          : Byte;
  lMaxPortNr       : Byte;
begin
  lStatusOK := true;
  lPortNr := 0;
  lMaxPortNr := 128;

  repeat
    try
      CloseAccel;
      inc(lPortNr);
      AccelComPort.ComNumber := lPortNr;
      InitAccel;
      StartAccel;
    except
    end;
  until (lPortNr = lMaxPortNr);
end;

Kurz zur Erklärung:
Ich starte im repeat-Teil mit Com-Nr: 1 --> im Init-Teil wird nur der Port geöffnet und bei StartAccel wird ein 'G' an den Port geschickt, der wenn der Port verfügbar ist ein OnTriggerAvail-Event auslöst....dort hab ich mal zu Testzwecken einen Breakpoint gesetzt. Dort soll später dann mal eine Abbruchbedingung eingebaut werden, wenn es der richtige Port ist.
Ganz interessieren würde mich, wie man in der repeat-Schleife so einen Timeout abwarten kann, denn auch wenn es der richtige Port ist, der Event wird erst zeitverzögert ausgelöst. In diesem Zeitraum muß ich die repeat-Schleife allerdings anhalten, denn sonst bin ich schon längst bei einer weit höheren Port-Nr, als jener die ursprünglich den Event ausgelöst hat!!
Bitte nochmals um geniale Ideen....

LG
Thomas

[yörsch]

Erstmal ein servus!
Doch, ich arbeite mit einem RocketPort mit bis zu 16 zusätzlichen Ports! (alles RS232 oder RS485)
Über die Ports werden u.a. Scanner von verschiedenen Herstellern angesteuert.
Den Anwender das entscheiden zulassen ist hier eine gewagte sache!
1. Zuviele möglichkeiten
2. Scanner sind zuähnlich
3. der Anwender ist zulangsam und spätestens nach dem zweiten mal völlig genervt!
Wir steuern Anlagen damit. Die PC´s steuern meißt die gleiche Anlage über einen längeren Zeitraum.
Eine vollautomatische einstellung hat noch keinen sinn gemmacht.

Aber: Beim installieren der PC´s werden die Scanner nach ihrer Kennung oder Versionsnummer gefragt!
Mit der INFO kann dann der PC Konfiguriert werden.

Zitat von oki:

Das setzt voraus, dass deine Geräte nach öffnen des Ports automatisch Daten schicken.

davon kann mann nicht leider nicht immer ausgehn... auch bei USB!
lange rede gar kein sinn : beim möglichen port selbst fragen was dran ist!

[bingo72]

USB und ComPorts deshalb, weil jeder USB-Anschluß letztendlich über eine ComPort-Nummer angesprochen wird....

[yörsch]

Danke für die Idee!
das nahe liegt sofern... ich werd mich drann machen und eine Vollautomatische Version schreiben...