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

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