Delphi2009中取得本机IP及名称

首先是本地IP的获取：

我们选择最简单的办法，不使用WinSock而直接使用Indy Misc下的TIdIPWatch控件。

然而获取本机名称的方法却一时没能在Indy的控件中找到。

于是我们回到原始的Windows.GetComputerName方法来取得。

代码如下：

1. unit Unit1;
3. interface
5. uses
6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7.   Dialogs, IdCustomTCPServer, IdTCPServer, IdIPWatch, IdBaseComponent,
8.   IdComponent, IdCustomTransparentProxy, IdSocks, StdCtrls;
10. type
11.   TForm1 = class(TForm)
12.     IdIPWatch1: TIdIPWatch;
13.     Edit1: TEdit;
14.     Edit2: TEdit;
15.     procedure FormCreate(Sender: TObject);
16.   private
17.     { Private declarations }
18.   public
19.     { Public declarations }
20.   end;
22. var
23.   Form1: TForm1;
25. implementation
27. {$R *.dfm}
29. procedure TForm1.FormCreate(Sender: TObject);
30. var
31.   hostname: array[0..MAX_COMPUTERNAME_LENGTH] of char;
32.   length: DWORD;
33. begin
34.   length := SizeOf(hostname);
35.   Windows.GetComputerName(hostname, length);
36.   Edit1.Text := hostname;
38.   Edit2.Text := IdIPWatch1.LocalIP;
39. end;
41. end.