Fehler abfangen in CPort

[js747a]

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;

[Sinspin]

Hallo,

So gibt es eine Meldung, die dir den Fehler anzeigt :

Delphi-Quellcode:

var
  ccp: TCustomComPort;

begin
  ...
  try
    ccp.CreateHandle;
  except on E:Exception do
    MessageDialog('Es hat geknallt : '+e.Message);
  end;
  ...

[js747a]

Ich danke dir.

Habe jetzt aber auch eine Meldung wenn im Programm kein Port ausgewählt würde eingefügt.