delphi大华dvr改通道名字

Question

CLIENT_SetupChannelName
修改设备通道名称BOOL CLIENT_SetupChannelName(
  LLONG lLoginID,
  char  *pbuf,
  int   nbuflen
);
Parameters
[in]lLoginID 
CLIENT_Login的返回值 
[in]pbuf 
通道名称的缓冲 
[in]nbuflen 
缓冲区长度 32*16(单位:字节)，用户需传递的缓冲长度 
Return Values
成功返回TRUE，失败返回FALSE。 ResSee Also
CLIENT_Login，CLIENT_QueryChannelName。 申明
 function CLIENT_SetupChannelName(lLoginID:LongInt;PBUF:Char;Bbufelen:Integer): Boolean; stdcall external DH_NET_SDK;怎么依次写入各个通道啊。做施工的项目经理的。有400多个设备要一个个写入。也不太会这个。求高人用delphi帮忙。他的demo是c++的更看不懂了。网上找到这个代码
function tform1.SetChannelNames(lLoginID:LongInt;ChnList: TStrings;const CHN:integer=16;const CHNLen:integer=32): boolean;
var
    i,j,k: Integer;
    ChannelList:array[0..511] of char;
    Channel:array[0..31] of char;
    ChannelStr:string;
begin
    //初始变量
    Result:=false;
    ChannelList:='';
    Channel:='';
    k:=0;    //将ChnList字符串中的通道名称转化到ChannelList数组中,每个通道长度32
    for i := Low(ChannelList) to High(ChannelList) do
    begin
      if i mod 32 =0 then
      begin
          ChannelStr:=ChnList[k];
          StrPCopy(Channel,ChannelStr);
          for  j:=0  to  length(Channel)-1 do
          begin
            ChannelList[i+j]:= Channel[j];
          end;
          k:=K+1;
      end;
    end;    //将ChannelList数组中的所有通道名称写入录像机中
   // Result:= CLIENT_SetupChannelName(lLoginID,ChannelList[0],CHN*CHNLen);
    //Result:= CLIENT_SetupChannelName(lLoginID,ChannelList[0],512);
end;也没法用。报错是kenanl的什么错误。跪求代码