EVaCommError

VCL TMS Async
21

Hi, it is possible to see an example code on how to call the OnErrorException?
Thanks!

22

You do not call OnErrorException. It is an event triggered from TVaComm and can be handled via an event handler:

type
  TForm1 = class(TForm)
    VaComm1: TVaComm;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure HandleErrorException(Sender: TObject; Errors: Integer; ExceptionMsg: string);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  VaComm1.OnErrorException := HandleErrorException;
end;

procedure TForm1.HandleErrorException(Sender: TObject; Errors: Integer;
  ExceptionMsg: string);
begin
  ShowMessage('Error:'+Errors.ToString+#13#10+ExceptionMsg);
end;
23

Sorry I expressed myself badly
The problem is that the OnErrorException event is inaccessible.
I am using c ++

24

It is available as public declared event in the latest release of TMS Async.