Jak obsługiwać wyjątek, gdy port szeregowy USB zostanie nieoczekiwanie usunięty?

Question

Moja aplikacja Delphi (przy użyciu XE3) musi obsługiwać wyjątek EInOutError występujący po usunięciu portu szeregowego USB. Aplikacja jest używana w środowisku testowym, więc nie może polegać na tym, że operator kliknie przycisk OK, aby zamknąć okno dialogowe Błąd aplikacji.

Próbowałem następujące:

• „Wypróbuj .. z wyjątkiem” metody - to nie złapać tych wyjątków. Myślę, że to nie działa, ponieważ wyjątek nie jest spowodowany przez kod w bloku "try". Wygląda na wyjątek niższego poziomu na poziomie systemu.

• Próbowałem dodać do formularza formularz "ApplicationEvents". Metoda OnException przechwytuje wyjątek "niestandardowy" wygenerowany przez moją aplikację, ale nie wyjątek na poziomie systemu.

• Próbowałem również dodać globalny hak wyjątku (jak opisano w Is it possible to have a global exception hook?). To działa częściowo - pozwala mi to na robienie pewnych rzeczy w oknie dialogowym Błąd aplikacji, ale nie zatrzymuje okna błędu.

Byłbym wdzięczny za wszelkie pomysły!

Answer 1

Wyjątki wynikające z usunięcia USB-Com są bardzo denerwujące. Polecam więc wyeliminowanie większości z nich.

Musisz przetworzyć wiadomość Windows WM_DEVICECHANGE i wykryć usunięcie portu. Następnie ustaw specjalną flagę i nie wykonuj żadnej operacji z portem z tą flagą! Jeśli USB-Com jest ponownie podłączony, podłącz ponownie port szeregowy. Niektóre kod, aby pomóc:

const 
     DBT_DEVICEARRIVAL = $8000; 
     DBT_DEVICEREMOVECOMPLETE = $8004; 
     DBT_DEVICEQUERYREMOVE = $8001; 
     DBT_DEVTYP_PORT = 3; 

    type 
     PDevBroadcastHdr = ^TDevBroadcastHdr; 
     TDevBroadcastHdr = packed record 
     dbcd_size: DWORD; 
     dbcd_devicetype: DWORD; 
     dbcd_reserved: DWORD; 
     end; 

     PDEV_BROADCAST_PORT = ^TDEV_BROADCAST_PORT; 
     TDEV_BROADCAST_PORT = packed record 
     dbcp_size: DWord; 
     dbcp_devicetype: DWord; 
     dbcp_reserved: DWord; 
     dbcp_name: array[0..MAX_PATH] of Char; 
     end; 

    ... 
    procedure WMDEVICECHANGE(var Msg: TMessage); message WM_DEVICECHANGE; 
    ... 

procedure TForm1.WMDEVICECHANGE(var Msg: TMessage); 
var 
    prt: PDEV_BROADCAST_PORT; 
    s: string; 
begin 

    if Msg.wparam = DBT_DEVICEREMOVECOMPLETE then 
    if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DEVTYP_PORT then 
     begin 

     b_PortRemoved := True; //check this flag before each operation with port. 


     prt := PDEV_BROADCAST_PORT(PDEV_BROADCAST_PORT(Msg.lParam)); 
     s := prt.dbcp_name; 
     ShowMessage('ComPort ' + s + ' has been removed. What can I do?'); 
    end; 

    if Msg.wparam = DBT_DEVICEARRIVAL then 
    if PDevBroadcastHdr(Msg.lParam)^.dbcd_devicetype = DBT_DEVTYP_PORT then begin 
     // USB-COM plugged, you can find it and make some reinitialisation 
    end; 


end;