タイトル : 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 |