unit1.pas

《Delphi7编程100例》代码,书配资料

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    procedure Button1Click(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.Button1Click(Sender: TObject);
begin
  Edit2.Text:=GetDomainName(Edit1.Text);
end;

end.