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