■Ｄｅｌｐｈｉを用いて
「ローカルＩＰアドレス」、「ローカルホストネーム」の取得方法
Ｄｅｌｐｈｉで、自ＰＣのローカルＩＰアドレス等の取得が簡単なコーディングで実現。
使用しているＩｎｄｙユニットの情報は英語が主で、私には不得手ですが、
この使い方は外国のＷｅｂサイトのサンプルのソースコードから見つけました。
Ｄｅｌｐｈｉのバージョンは２００７ですが、
試しにＤｅｌｐｈｉ７でも実験。一部プロパティの修正で正常に動作しました。
ということは、かなり昔からこの使い方ができたんですね。
下記コードは全文ですので、簡単にコピーして実験できると思います。
（フォーム１個にボタン１個、尚下記コードには全角スペースが混入）
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls,
IdUDPClient, IdStack; // <--- 追加
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// ----- IpAddress,Host 取得 -----
procedure TForm1.Button1Click(Sender: TObject);
var
IdUDP:TIdUDPClient;
LocalAddress,LocalHostName : string;
begin
IdUDP := TIdUDPClient.Create(Self); // この４行がミソ？
LocalAddress := GStack.LocalAddress; //
LocalHostName := GStack.HostName; // Delphi 2007の場合
//LocalHostName := GStack.WSGetHostName; // Delphi 7の場合
showmessage(LocalAddress + ' - ' + LocalHostName);
IdUDP.Free;
end;
end.
ところで、
上記ロジックを調べた目的は、Ｄｅｌｐｈｉで作成したシステムでセキュリティ改善の為、
ログデータ生成の要求があり、
システム稼動時の操作状況を、端末情報やWindowsのログインユーザーも含めて
ＤＢに吐き出すため。
追記 2/19
ところで、上記の使い方のヒントは下記ＵＲＬの「Ｌｅｔ’ｓ ＵＤＰ Ｃｈａｒｔ！」からです。
http://delphi.about.com/library/weekly/aa101105a.htm
（添付の広告は怪しいのですが、変なところをクリックしなければ問題無いみたい）
後で知ったのですが、下記サイトで紹介されているWinSockでの実現方法は、
同じソースでＤｅｌｐｈｉ2007とＤｅｌｐｈｉ7で正常に動作しましますので、こちらの方が良さそう！
ＤｅｌＦｕｓａ Ｆｌｏｏｒ
http://delfusa.main.jp/delfusafloor/technic/technic_f.html
「自マシンのIPアドレスとホスト名(マシン名)を得る方法 2008/01/18(金)」
「ローカルＩＰアドレス」、「ローカルホストネーム」の取得方法
Ｄｅｌｐｈｉで、自ＰＣのローカルＩＰアドレス等の取得が簡単なコーディングで実現。
使用しているＩｎｄｙユニットの情報は英語が主で、私には不得手ですが、
この使い方は外国のＷｅｂサイトのサンプルのソースコードから見つけました。
Ｄｅｌｐｈｉのバージョンは２００７ですが、
試しにＤｅｌｐｈｉ７でも実験。一部プロパティの修正で正常に動作しました。
ということは、かなり昔からこの使い方ができたんですね。
下記コードは全文ですので、簡単にコピーして実験できると思います。
（フォーム１個にボタン１個、尚下記コードには全角スペースが混入）
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls,
IdUDPClient, IdStack; // <--- 追加
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// ----- IpAddress,Host 取得 -----
procedure TForm1.Button1Click(Sender: TObject);
var
IdUDP:TIdUDPClient;
LocalAddress,LocalHostName : string;
begin
IdUDP := TIdUDPClient.Create(Self); // この４行がミソ？
LocalAddress := GStack.LocalAddress; //
LocalHostName := GStack.HostName; // Delphi 2007の場合
//LocalHostName := GStack.WSGetHostName; // Delphi 7の場合
showmessage(LocalAddress + ' - ' + LocalHostName);
IdUDP.Free;
end;
end.
ところで、
上記ロジックを調べた目的は、Ｄｅｌｐｈｉで作成したシステムでセキュリティ改善の為、
ログデータ生成の要求があり、
システム稼動時の操作状況を、端末情報やWindowsのログインユーザーも含めて
ＤＢに吐き出すため。
追記 2/19
ところで、上記の使い方のヒントは下記ＵＲＬの「Ｌｅｔ’ｓ ＵＤＰ Ｃｈａｒｔ！」からです。
http://delphi.about.com/library/weekly/aa101105a.htm
（添付の広告は怪しいのですが、変なところをクリックしなければ問題無いみたい）
後で知ったのですが、下記サイトで紹介されているWinSockでの実現方法は、
同じソースでＤｅｌｐｈｉ2007とＤｅｌｐｈｉ7で正常に動作しましますので、こちらの方が良さそう！
ＤｅｌＦｕｓａ Ｆｌｏｏｒ
http://delfusa.main.jp/delfusafloor/technic/technic_f.html
「自マシンのIPアドレスとホスト名(マシン名)を得る方法 2008/01/18(金)」
■第８回ＣｏｄｅＧｅａｒデベロッパーキャンプ
前回は仕事の都合で参加できませんでしたが、今回は出席
２月１２日（火）１０：００〜１８：００ 青山ダイヤモンドホール
■内容は
マーケティング担当の藤井さんの各製品の特徴や方向付けの話、
CodeGear副社長David I氏のＲｕｂｙを主体とした話、
その後は、Ｊａｖａ、Ｄｅｌｐｈｉ、ＤＢのセッションを選択し受講。
■衝撃的だったのは
「CodeGear™のソフトウェア開発ツールが、ロシアの学校組織の
最大100万台のＰＣ上にインストール」というニュース。
http://www.codegear.com/jp/article/37609/
■CodeGeaｒのロゴについて
CodeGeaｒの製品で作ったソフトなどに表示するロゴができたとの事
「CodeGear "built with" and "powered by" logos」
http://dn.codegear.com/article/37476
ビットマップ（ＰＮＧ）のファイルもダウンロードできるみたいですが、
現時点「Requested Item is not available at this time」との
メッセージがありダウンロードできず。
追記2/18 日本語サイトに正常に動作するものがありました。
http://dn.codegear.com/jp/article/37477
でも、とりあえずあるものを使い、作成中のアプリケーションの
ライセンス表示画面の下部に貼ってみました。
■Ｊａｖａセッション
Ｊａｖａはさほど興味が無いのですが、
「Ｊ2ＥＥ基幹システム開発の経験から考える」というタイトルで
サブタイトルの
「Ｊａｖａはどこで道を踏み外したか？次に来るのはＲｕｂｙか？」
という文字が気になり
また、スピーカーの方の
「．．．プログラムを作り続けた齢５０のプログラマー．．．
まだまだプログラムを作り続ける所存であります。」
という紹介文に興味が湧き受講。
内容は背景説明もあり、また個性的なキャラクターということもあり
全く飽きずに面白かった。
Ｊａｖａは有名でオープンソースもいろいろ存在しているのは知って
いましたが、特に有名だったフレームワークのＥＪＢがＥＪＢ３．０になり
下位互換性が無いことを問題視していました。
オープンソース群も多くなり、複雑になり、互換性の問題も重なり
結果的に開発の生産性にも大きく影響している状況が理解できます。
それが、サブタイトルの
「Ｊａｖａはどこで道を踏み外したか？」でしょうか？？
■最後のアンケートについて
全体的に時間は適当か？みたいな趣旨の問いに対しては「適当」と回答。
とは言え
朝１０時から午後６時迄真面目に聞くだけでも疲れます。
難しい話を聞いていると睡魔が襲って来ますし。
みなさんはどうなんでしょうか？
私の場合、１０年くらい前からかな？
難しい話を聞いていると眠くなる症状が顕著になってしまいました。
前回は仕事の都合で参加できませんでしたが、今回は出席
２月１２日（火）１０：００〜１８：００ 青山ダイヤモンドホール
■内容は
マーケティング担当の藤井さんの各製品の特徴や方向付けの話、
CodeGear副社長David I氏のＲｕｂｙを主体とした話、
その後は、Ｊａｖａ、Ｄｅｌｐｈｉ、ＤＢのセッションを選択し受講。
■衝撃的だったのは
「CodeGear™のソフトウェア開発ツールが、ロシアの学校組織の
最大100万台のＰＣ上にインストール」というニュース。
http://www.codegear.com/jp/article/37609/
■CodeGeaｒのロゴについて
CodeGeaｒの製品で作ったソフトなどに表示するロゴができたとの事
「CodeGear "built with" and "powered by" logos」
http://dn.codegear.com/article/37476
ビットマップ（ＰＮＧ）のファイルもダウンロードできるみたいですが、
現時点「Requested Item is not available at this time」との
メッセージがありダウンロードできず。
追記2/18 日本語サイトに正常に動作するものがありました。
http://dn.codegear.com/jp/article/37477
でも、とりあえずあるものを使い、作成中のアプリケーションの
ライセンス表示画面の下部に貼ってみました。
■Ｊａｖａセッション
Ｊａｖａはさほど興味が無いのですが、
「Ｊ2ＥＥ基幹システム開発の経験から考える」というタイトルで
サブタイトルの
「Ｊａｖａはどこで道を踏み外したか？次に来るのはＲｕｂｙか？」
という文字が気になり
また、スピーカーの方の
「．．．プログラムを作り続けた齢５０のプログラマー．．．
まだまだプログラムを作り続ける所存であります。」
という紹介文に興味が湧き受講。
内容は背景説明もあり、また個性的なキャラクターということもあり
全く飽きずに面白かった。
Ｊａｖａは有名でオープンソースもいろいろ存在しているのは知って
いましたが、特に有名だったフレームワークのＥＪＢがＥＪＢ３．０になり
下位互換性が無いことを問題視していました。
オープンソース群も多くなり、複雑になり、互換性の問題も重なり
結果的に開発の生産性にも大きく影響している状況が理解できます。
それが、サブタイトルの
「Ｊａｖａはどこで道を踏み外したか？」でしょうか？？
■最後のアンケートについて
全体的に時間は適当か？みたいな趣旨の問いに対しては「適当」と回答。
とは言え
朝１０時から午後６時迄真面目に聞くだけでも疲れます。
難しい話を聞いていると睡魔が襲って来ますし。
みなさんはどうなんでしょうか？
私の場合、１０年くらい前からかな？
難しい話を聞いていると眠くなる症状が顕著になってしまいました。
■小生、プログラムを作る時、よくイヤーマフを使います。
静かな事務所（自宅）なのにです。
でも、静かな場所でも耳を澄ませば、エアコンの音やＰＣの冷却ファンなどの音が
いろいろあります。
ですから、仕事をする時にイヤーマフを装着すると集中力が増します。
しかし、しばらくすると頭が重くなってきたりムレたり暑い時は汗ばんできたりします。
その時、今度はイヤーマフを外します。
そうすると今度は耳周りが爽快になり、気分がスッキリしてまた仕事を続けられる
気分になります。
そのような使い方でイヤーマフを愛用しています。
■歴史
今のは２個目で約１年前に購入。
１個目を初めて購入したのは７〜８年前でかなりボロボロになるまで使ってました。
そもそも、初めてイヤーマフを使ったのは初めの会社でそれなりに音が大きい機械
（電子部品実装機）のすぐ横でＮＣプログラムを作る時でした。
それでも、騒音がウルサく音が両耳から入り頭の真ん中でガシャン、ガシャンと
反響していたのを今でも覚えています。
■ところで昨日の土曜日
ノイズキャンセリングヘッドホンで有名なＢＯＳＥのQuietComfort２、３を直営店で
視聴してきました。
確かに騒音は消え、その分近くで鳴っている音楽や会話はクリアになるのを実感
しました。（予想していた感じとは違っていましたが）
構造上、飛行機の中みたいに定常的に「ゴォォ〜」という騒音には特に有効とのこと。
消音効果はイヤーマフに比べると劣ると思いますが、使用目的が集中と気分転換
で、軽い、そしてそれで静かにＢＧＭを流すと仕事の理想の環境ができそうです。
実際に使ってみたいという気持ちと、仕事の効率が良くなれば価格約５万円も高く
ないとも思いますが、費用対効果をウ〜ンと考えた結果は・・・保留。
やっぱり５万円は高いかな？
■追記：イヤーマフの目的２
仕事に集中したい時、イヤーマフを着けることで「今は、話しかけないで．．」という
アピールも含めているのですが
一緒に仕事をしているカミさんは、イヤーマフを無視して平気で話しかけてきます。
本当はこちらが大きな問題。
人の声もほとんど聞こえない理想のイヤーマフ又はソニックキャンセルみたいな
製品があったら２０万円でも欲しくなりそう？
静かな事務所（自宅）なのにです。
でも、静かな場所でも耳を澄ませば、エアコンの音やＰＣの冷却ファンなどの音が
いろいろあります。
ですから、仕事をする時にイヤーマフを装着すると集中力が増します。
しかし、しばらくすると頭が重くなってきたりムレたり暑い時は汗ばんできたりします。
その時、今度はイヤーマフを外します。
そうすると今度は耳周りが爽快になり、気分がスッキリしてまた仕事を続けられる
気分になります。
そのような使い方でイヤーマフを愛用しています。
■歴史
今のは２個目で約１年前に購入。
１個目を初めて購入したのは７〜８年前でかなりボロボロになるまで使ってました。
そもそも、初めてイヤーマフを使ったのは初めの会社でそれなりに音が大きい機械
（電子部品実装機）のすぐ横でＮＣプログラムを作る時でした。
それでも、騒音がウルサく音が両耳から入り頭の真ん中でガシャン、ガシャンと
反響していたのを今でも覚えています。
■ところで昨日の土曜日
ノイズキャンセリングヘッドホンで有名なＢＯＳＥのQuietComfort２、３を直営店で
視聴してきました。
確かに騒音は消え、その分近くで鳴っている音楽や会話はクリアになるのを実感
しました。（予想していた感じとは違っていましたが）
構造上、飛行機の中みたいに定常的に「ゴォォ〜」という騒音には特に有効とのこと。
消音効果はイヤーマフに比べると劣ると思いますが、使用目的が集中と気分転換
で、軽い、そしてそれで静かにＢＧＭを流すと仕事の理想の環境ができそうです。
実際に使ってみたいという気持ちと、仕事の効率が良くなれば価格約５万円も高く
ないとも思いますが、費用対効果をウ〜ンと考えた結果は・・・保留。
やっぱり５万円は高いかな？
■追記：イヤーマフの目的２
仕事に集中したい時、イヤーマフを着けることで「今は、話しかけないで．．」という
アピールも含めているのですが
一緒に仕事をしているカミさんは、イヤーマフを無視して平気で話しかけてきます。
本当はこちらが大きな問題。
人の声もほとんど聞こえない理想のイヤーマフ又はソニックキャンセルみたいな
製品があったら２０万円でも欲しくなりそう？
プロフィール
