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