In der
Unit cport wird mein Prohgramm beendet wenn der Port nicht existiert.
Im fertigen Programm bekomme ich eine Fehlermeldeung - unable to open comport.
In der Delphi
IDE wird das Programm abgebrochen .
wie kann ich das in de
IDE abfangen mit einer Fehlermeldung und die Fehlermeldung anzeigen beim fertigen Programm.
// create
handle to serial port
procedure TCustomComPort.CreateHandle;
begin
FHandle := CreateFile(
PChar('\\.\' + FPort),
GENERIC_READ or GENERIC_WRITE,
0,
nil,
OPEN_EXISTING,
FILE_FLAG_OVERLAPPED,
0);
if FHandle = INVALID_HANDLE_VALUE then
raise EComPort.Create(CError_OpenFailed, GetLastError);
end;