PEAK-System Forum

The Delphi implementation for GetParam reading a can_param_string255_t looks like this:

class function TCanApi4.GetParam(const device: can_device_t; const paramType: Word;
const objClass: can_objclass_t; const objHandle: Longword; out value: AnsiString)
: can_status_t;
var
param: can_any_param ...

I am in the process of moving our software from CANAPI2 to CANAPI4 and am a bit puzzled about the meaning of the bus errors:

CANAPI2 had these:
CAN_ERR_BUSLIGHT = $0004; // Bus error: an error counter reached the 'light' limit
CAN_ERR_BUSHEAVY = $0008; // Bus error: an error counter reached the ...

A workaround is to pass a timeout to the MonitorEnter call in RefreshMessages, like this:


procedure TMainForm.RefreshMessages;
var
msg: TCanMessage;
Item: TListItem;
begin
if System.MonitorEnter(FReceivedMessages, 100) then begin
try
for msg in FReceivedMessages do begin
Item ...

I have just compiled the Delphi VCL sample provided with PCAN-Developer 4 and tried it.
When I select "Read using an Event" on the "Messages" tab, the program locks up after a while.

That's because the VCL thread is waiting in the System.MonitorEnter call in RefreshMessages for access to the ...