怎样连接到特定的Kvaser CAN通道

1. 自定义通道名称

2. 查找一路特定通道的通道信息

2.1. CANlib命令canOpenChannel()

2.2. 用户自定义的MycanOpenChannel()

3. 结论

4. 附录A ：MycanOpenChannel()

4.1. 函数MycanOpenChannel()

function MycanOpenChannel(const NickName: string; const flags: integer; var FoundChannel: integer): canHandle;
    var
      I: integer;

      EAN       : string;
      SN        : UINT64;
      ChNoOnCard: UINT32;

      N: integer;
      UI64   : UINT64;
      UI32   : UINT32;
      st     : string;

    begin
      result       := canERR_NOTFOUND;
      FoundChannel := canERR_NOTFOUND;

      /// Most probably, NickName contains something like:'00752-9:12160:0'
      /// EAN=00752-9 (this is the last part of Device EAN	73-30130-00752-9)
      /// sn = 12160
      /// NoOnCard=0

      if SplitNickNameStringPlease(NickName, EAN, SN, ChNoOnCard) then
      begin
        // Let us see if we can find the combination of EAN, SN, ChNoOnCard

        if (canGetNumberOfChannels(N) = canOK) then
        begin
          for I := 0 to N - 1 do
          begin
            // Look for SN first
            if (canGetChannelData(I, canCHANNELDATA_CARD_SERIAL_NO, UI64, sizeof(UI64)) = canOK) then
            begin
              if (UI64 = SN) then
              begin
                if (canGetChannelData(I, canCHANNELDATA_CHAN_NO_ON_CARD, UI32, sizeof(UI32)) = canOK) then
                begin
                  if (UI32 = ChNoOnCard) then
                  begin
                    // We have found a channel with SN and NoC that is correct, let see if EAN is correct
                    if (canGetChannelData(I, canCHANNELDATA_CARD_UPC_NO, UI64, sizeof(UI64)) = canOK) then
                    begin
                      st := UI64.ToHexString(16);
                      st := copy(st, 11, 5) + '-' + copy(st, 16, 1);
                      if (st = EAN) then
                      begin
                        FoundChannel := I;
                        break; // Breaks the FOR-loop
                      end;
                    end;
                  end;
                end;
              end;
            end;
          end;

          if FoundChannel >= 0 then
          begin
            // Let us use "FoundChannel" and see what happens
            result := canOpenChannel(FoundChannel, flags);
          end;
        end;
      end;
    End;

4.2. 函数 SplitNickNameStringPlease()

function SplitNickNameStringPlease(const NickName: string; var EAN: string; var SN: UINT64; var NoC: UINT32): boolean;
    var
      P   : integer;
      st  : string;
      temp: string;
    begin
      result := false;
      try
        // '00752-9:12160/0'
        temp := NickName;
        P    := pos(':', temp);
        if P > 0 then
        begin
          EAN  := copy(temp, 1, P - 1);
          temp := copy(temp, P + 1, 1024);

          EAN := trim(EAN); // remove leading and trailing spaces
          while length(EAN) < 7 do
          begin
            EAN := '0' + EAN; // add leading zeros if needed
          end;

          P := pos('/', temp);
          if P > 0 then
          Begin
            st := copy(temp, 1, P - 1);
            SN := st.ToInteger;

            st  := copy(temp, P + 1, 1024);
            NoC := st.ToInteger;

            result := true;
          end;
        end;
      except
        result := false;
      end;
    end;