FDELPHI 12
/RE:05193 RE:ルータのグローバルIPアドレス

　こんにちは、かつぼー さん

》アクセスしてきたやつのIPアドレスを返すようなcgiを、外の
》webサーバーに設置して、そこへアクセスして帰ってきた文字
》を調べる。
》この方法はcgiを置けるサーバーをもたなければ不可能です。

この方法とほぼ同様ですが、ＣＧＩ設置可能なサーバが不要な方法として、SMTP
サーバを使う、という方法があります。これは、SMTP サーバにログインしたら、
サーバからクライアントに対して、クライアントのＩＰアドレスを返すというこ
とがＲＦＣで定められている、ということを利用します。

欠点として、ＲＦＣに則っていないというか、きちんとＩＰアドレスを返してく
れないサーバがたまにあるので、常に使えるわけではない、というのがあります
が、少なくとも現状の smtp.nifty.com はきちんとＩＰアドレスを返してくれて
います。
ちなみに、私が契約している某ＣＡＴＶなプロバイダのメールサーバは、ＩＰア
ドレスを返してくれませんでした。

Delphi5 だと Indy が使えると思いますが、TIdSMTP でその情報がとれるかどう
かはわかりません。もしかしたらラッピングされてしまって、その情報が取れな
いかもしれません。無難にやるのであれば、TIdTelnet で目的のサーバの２５番
ポートに接続し、OnConnect で Writeln('HELO mydomain.com'); 等として、帰っ
てきた文字列を解析する、ということになるでしょう。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　としき