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

結局、こんな感じにuPnPを試しました。uPNPの1900はXP以降だとOSのサービスでも起動されるものがあるため、自側のポートが同じだと都合が悪いようです。
（別途、OSのサービスを停止すれば、送信側が1900でも動きます）
------dll_net_function.pas
      //---
      try
        p.PortNo := StrToIntDef(getToken_s(s, ':'), 80);
      except on e: Exception do
        raise Exception.Create('ポート番号が解決できません。');
      end;
      if s <> '' then
      begin
        try
          p.OwnHost := getToken_s(s, ':');
        except on e: Exception do
          raise Exception.Create('自ホスト名が解決できません。');
        end;
        try
          p.OwnPortNo := StrToIntDef(s, p.PortNo);
        except on e: Exception do
          p.OwnPortNo := p.PortNo;
        end;
      end else begin
        p.OwnHost := '';
        p.OwnPortNo := p.PortNo;
      end;
------
------UdpUnit.pas
    // 外部との対話用の接続管理
    FHost           : string;         // 接続先
    FPortNo         : Integer;
    FOwnHost        : string;         // 自側Host
    FOwnPortNo      : Integer;
    // イベント用
------
------UdpUnit.pas
    property Host: string read FHost write FHost;
    property PortNo: Integer read FPortNo write FPortNo;
    property OwnHost: string read FOwnHost write FOwnHost;
    property OwnPortNo: Integer read FOwnPortNo write FOwnPortNo;
  end;
------
------UdpUnit.pas
  // ポートの設定
  FSockAddr.sin_port         := htons(FOwnPortNo);
  FSockAddr.sin_family       := AF_INET;
  if FOwnHost = '' then
  begin
    FSockAddr.sin_addr.S_addr  := INADDR_ANY;
  end else begin
    FsockAddr.sin_addr.S_addr  := inet_addr(PAnsiChar(FOwnHost));
  end;
------
------nakonet.nako
　・ポート{=60001}
　・ホスト{=『225.0.0.0』}
　・自ポート{=『』}  # 接続の時点で、1以上:その値 空:ポート同じ 0:自動
　・自ホスト{=『』}  # 接続の時点で、空:ADDR_ANY IP:ネットワークIFのIP
------
------nakonet.nako
　・接続～
　　　UDP_COMMAND(UDPID,"connect","{ホスト}:{ポート}:{自ホスト}:{自ポート}")
------