16,748
社区成员
发帖
与我相关
我的任务
分享
function TGlobalDLLInterface.DLL_SetReference(deviceIndex: Integer; canIndex: Integer; refType: Integer; pData: PAnsiChar;
deviceType: EDeviceType = EDeviceType.CANET2): Integer;
begin
result := 0;
try
if deviceType = EDeviceType.CANET2 then
begin
{$IFDEF CPU64BITS}
result := X64.CANET2.VCI_SetReference(Ord(deviceType), deviceIndex, canIndex, refType, pData);
{$ELSE}
result := X86.CANET2.VCI_SetReference(Ord(deviceType), deviceIndex, canIndex, refType, pData);
{$ENDIF}
end;
except
end;
end;