Exception-Handling bei ApdCOMPort

[Carsten1234]

Nur zur Info:
Ich reiche die Exception jetzt per SendMessage an die MainForm weiter ala

Delphi-Quellcode:

const
  wm_WGError  = wm_User+60;
  wm_COMError = wm_User+61;
(...)
try
  ApdComPort.PutString(AValue);
except
  on E:Exception do
    SendMessage(MainForm.Handle, wm_WGError, wm_COMError, Integer(@E));
end;

und fange die Message in der MainForm dann auf mit

Delphi-Quellcode:

var E: Exception;
begin
if (Msg.Msg = wm_WGError) then
begin
  if (Msg.WParam = wm_COMError) then
  begin
    E:= nil;
    E:= Pointer(Msg.LParam);
    if (Assigned(E)) then
    begin
      if (E.ClassType = EOpenComm) then
      begin
        // irgendwas
      end;
      if (E.ClassType = EGeneral) then
      begin
        // irgendwas anderes
      end;
    end;
  end;
(...)
end;

Gruß, Carsten