「なでしこv1」開発掲示板

蛇足。手元のものは、以下のように書き換えました（受信イベントの受信データ設定、エラーイベントのエラーメッセージ設定、サーバソケットの相手IP設定の各所）
------KTCPW.pas
  p := nako_getGroupMember(PAnsiChar(InstanceName),PAnsiChar('受信データ'));
  if p <> nil then nako_bin2var(PAnsiChar(s),len,p);
  //s := InstanceName + '→受信データ=『' + s + '』;';
  //nako_evalEx(PANsiChar(s), p);
  //nako_var_free(p);
------
  ip := handle2ip(Target.Handle);
  p := nako_getGroupMember(PAnsiChar(InstanceName),PAnsiChar('相手IP'));
  if p <> nil then nako_str2var(PAnsiChar(ip),p);
  //s := InstanceName + '→相手IP=『' + ip + '』;';
  //nako_evalEx(PAnsiChar(s), p);
  //nako_var_free(p);
------
  p := nako_getGroupMember(PAnsiChar(InstanceName),PAnsiChar('エラーメッセージ'));
  if p <> nil then nako_str2var(PAnsiChar(E.Message),p);
  //s := InstanceName + '→エラーメッセージ＝『' + E.Message + '』;';
  //nako_evalEx(PAnsiChar(s), p);
  //nako_var_free(p);
------