searchhost.pas

来自「Delphi basic program. Basic programing」· PAS 代码 · 共 59 行

unit searchhost;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    Label1: TLabel;
    Bevel1: TBevel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
function FindComputer(ComputerName: string):Boolean;

implementation

{$R *.dfm}

function FindComputer(ComputerName: string):Boolean;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
Result :=True;
WSAStartup(2, WSAData); //所有windows sockets必需的步骤
HostEnt := gethostbyname(PChar(ComputerName));
if HostEnt = nil then Result := False;
WSACleanup;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if FindComputer(edit1.text)=True then
Memo1.lines.Add(edit1.text+'在局域网上！')
else
Memo1.lines.Add(edit1.text+'不在局域网上！');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;

end.