WM_DEVICECHANGE, DBT_DEVTYP_PORT: Portnamen rausbekommen.

[Brainshock]

Hallo,

ich versuche gerade über die WM_DEVICECHANGE Message herauszubekommen, ob ein neuer Com Port von einem USB Barcodescanner im System angelegt/gelöscht wird. Das funktioniert soweit ganz gut. Nun möchte ich noch den Namen des Ports wissen und da scheitert es an meinen API Kenntnissen.

Die Struktur zum Auslesen der Information hab ich schon in Jedi gefunden (DBT.pas):

Delphi-Quellcode:

 
PDevBroadCastPortA = ^TDevBroadCastPortA;
DEV_BROADCAST_PORT_A = record
  dbcp_size: DWORD;
  dbcp_devicetype: DWORD;
  dbcp_reserved: DWORD;
  dbcp_name: array [0..0] of AnsiChar;
end;
TDevBroadCastPortA = DEV_BROADCAST_PORT_A;

Das Auslesen mache ich über:

Delphi-Quellcode:

PDevBroadcastPortA(Msg.LParam)^.dbcp_name

Ich weiß nicht, wie ich mit dem dhcp_name umgehen soll, laut msdn ist es ein Pointer zu einem nullterminierten string. Die Länge im Ergebnis ist 1 und enthält 'C'. Das 'C' ist bestimmt der Anfang von ComXX.

Wie komme ich jetzt bloss an den kompletten String?

Gruß,

[Brainshock]

Kann mir da echt keiner helfen?

[DeddyH]

Und wenn Du mal nach PChar castest?

[Apollonius]

Lass dir mal dbcp_size anzeigen.

[Brainshock]

Das mit dem casten auf PChar haut nicht hin.

dbcp_size ist 22.

Die Länge des Inhalts von dbcp_name soll man sich bestimmt mit Hilfe der dbcp_size zusammenrechnen:
Länge des Namens = dbcp_size - sizeof(dbcp_size) - sizeof(dbcp_devicetype) - sizeof(dbcp_reserved).
Hier also 22 - 4 - 4 - 4 = 10.

Richtig?

Wie bekomme ich jetzt den Text mit der richtigen Länge aus der Variablen raus?

[Apollonius]

Versuche es mal mit PChar(@PDevBroadcastPortA(Msg.LParam)^.dbcp_name[0]).

[Brainshock]

Läßt sich so nicht kompilieren: [Fehler] Array-Typ erforderlich

[Brainshock]

Aber so geht es:

Delphi-Quellcode:

var
  ComPort: PAnsiChar

ComPort:= PAnsiChar(@PDevBroadcastPortA(Msg.LParam)^.dbcp_name);

Danke, danke, danke...

[DeddyH]

Da lag ich ja gar nicht mal so verkehrt :roll:

[Rudirabbit]

Hatte neulich sowas ähnliches gebraucht

Zitat:

ComPort:= PAnsiChar(@PDevBroadcastPortA(Msg.LParam)^.dbcp_na me);

Dies hatte in meinem Fall nicht funktiontiert. :?

Wenn ich einen USB to Serial Adapter (FTDI Chip) anstecke/abstecke, und das Event ausgelöst wird, steht in Comport nichts plausibles.
An anderer Stelle hier im Forum habe ich dann eine Lösung gefunden um die VID und PID des Usbdevices zu bekommen. (Danke dafür)

Mit L.Param der Message, und Benutzung der Unit dbt (jedi). Es werden dort nur die records gebraucht.

Delphi-Quellcode:

DeviceInfoBlock := PDevBroadcastDeviceInterface(Msg.LParam);
        MyDevice := String(Pchar(@DeviceInfoBlock.dbcc_name));

Dann steht im String Mydevice die VID/PID drin.
Aber eine Info welcher Comport gerade belegt wird sehe ich dort nicht.

mfg