NAT Traversal技術をおしえてください

解決

納豆 2006-11-23 17:03:26 No: 24018

２日間調べたのですが、NAT Traversal技術のサンプルコードが見つけられませんでした。どうか皆様お助けください。

NAT Traversal技術で実現したいのは…
１．ルータの有無を知ること。
２．グローバルIPを知ること。
３．できればhttpポートを開くこと。

えーとね 2006-11-23 21:10:47 No: 24019

> １．ルータの有無を知ること。
IUPnPDeviceFinder のFindByType でしょうか。
urn:schemas-upnp-org:device:InternetGatewayDevice:1 を探すのだと思います。

> ２．グローバルIPを知ること。
IStaticPortMapping のget_ExternalIPAddress でしょうか。

> ３．できればhttpポートを開くこと。
IUPnPService のInvokeAction でしょうか。

試していませんが、1.と3. に役立ちそうなサンプルが載っています。
http://www.delphipraxis.net/post598522.html

かみづ 2006-11-23 21:21:42 No: 24020

2のサンプルもあるみたいです。
http://www.delphipraxis.net/topic59019,0,asc,0.html

納豆 2006-11-24 03:17:26 No: 24021

えーとね様、かみづ様
サンプルのリンクどうもありがとうございます。
昼から紹介していただいたコードにコメント（ドイツ語ですか？）があり、「UPUP.dllをインポートするよう」みたいなことが書き込まれていたものですからActiveXの追加をチェックしました。しかし、なぜかそれらしきものはなく、UPUP.dllのあるSystem32のフォルダを調べてみてもUPUP.ocxもありませんでした。当方はD7なのですが、みなさんはインポートできるものなのでしょうか？また関連キーワードでヒットしたコードにはuses節にUPNPLib_TLBなるものが追加されていたのですが、「UPNPLib_TLB.pas」なるものがもともとあるのでしょうか？もしよろしければお教えください。

えーとね 2006-11-24 04:16:30 No: 24022

> UPUP.dllのあるSystem32のフォルダを調べてみてもUPUP.ocxもありませんでした。
お探しのファイル名が間違ってませんか？UPNP.dll です。

> みなさんはインポートできるものなのでしょうか？
XP Pro SP2 + Delphi 2006 Update2 の場合
コンポーネントのインポート -> タイプライブラリの取り込みで出来ました。

納豆納得 2006-11-24 05:11:49 No: 24023

えーとね様、かみづ様
細やかにお教えくださいましてありがとうございます。タイプライブラリの取り込みもできました。ただし、D7ではプロジェクト＞タイプライブラリの取り込みでした。
後はコードを試すだけです。これでひとまず解決しました。ありがとうございます。