unit1.~pas

来自「精彩编程百例75～100 其中有媒体播放器 SQL语言编辑器 ADO方法连接多个」· ~PAS 代码 · 共 62 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls ,winsock, Buttons;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    procedure BitBtn1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

function GetDomainName(Ip: string): string;

var
  Form1: TForm1;

implementation

{$R *.DFM}

function GetDomainName(Ip: string): string;
//获得局域网内IP地址的机器名,只对网络设置设为允许其它人使用我的机子的机器有效
var
  pH                : PHostent;
  data              : twsadata;
  ii                : dword;
begin
  WSAStartup($101, Data);
  ii := inet_addr(pchar(ip));
  pH := gethostbyaddr(@ii, sizeof(ii), PF_INET);
  if (ph <> nil) then
    result := pH.h_name
  else
    begin
      result := '未知的计算机';
    end;
  WSACleanup;
end;




procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  edit2.text:='';
  edit2.text:=GetDomainName(edit1.text);
end;

end.