tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル Directplayデフォルトポートの2302を変更する方法
投稿日: 2009/01/28(Wed) 18:30
投稿者はるちゃん
Directplayを使うソフトを組んでいます
デフォルトポートの2302を変更する方法があれば知りたいのですがよろしくお願いしますイk以下は、サーバーの参考コーデイングです

  Dim objDPAH       As DirectPlay8Address     ' ホストのアドレス情報
  Dim objDPDI       As DirectPlay8Address     ' サービスプロバイダの情報
  Dim udtPlayerInfo As DPN_PLAYER_INFO        ' ユーザー情報
  Dim udtAppDesc    As DPN_APPLICATION_DESC   ' アプリケーション情報        
If InStr(gobjDPC.GetServiceProvider(intCounter).Name, "TCP") Then
    ' アドレス(URL)情報用DirectPlayAddressオブジェクトを作成
    Set objDPAH = gobjDX.DirectPlayAddressCreate
    With objDPAH
        .SetSP gobjDPC.GetServiceProvider(intCounter).Guid
        .AddComponentLong DPN_KEY_PORT, glngPortNo
        .AddComponentString DPN_KEY_HOSTNAME, 1025 '<-相手のポートを指定する

    End With
    ' サービスプロバイダ情報用DirectPlayAddressオブジェクトを作成
    Set objDPDI = gobjDX.DirectPlayAddressCreate
    With objDPDI
         gstrTcpGuid = gobjDPC.GetServiceProvider(intCounter).Guid
        .SetSP gobjDPC.GetServiceProvider(intCounter).Guid
    End With
end if

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。