Проверка существования ПК в локальной сети

@Alexsiger · Регистрация: 15.08.2014

Author24 — интернет-сервис помощи студентам

Возник вопрос, есть такой код:

Delphi

begin
if DirectoryExists('//user1/test/') then
    begin
    PC1.picture.loadfromfile('D:\green.jpg')
    end
    else
    begin
    PC1.picture.loadfromfile('D:\red.jpg')
    end
  end;

Проверял вкл ли компьютер в локальной сети по этому способу, он не устраивает, так как нужно открывать для него папку на каждом комп, который проверяется.
Вопрос в том, подскажите способ проверки либо по IP, либо по Имени хоста. (IP и Имя хоста - известны за ранее)

@Игорь[Igor] · 15.08.2014, 15:11

Оно?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  ipstr: String;
begin
  ipstr:='127.0.0.1';
  if not InputQuery('Внимание', 'Введи IP-адрес', ipstr) then
  exit;
  TcpClient1.RemoteHost:=ipstr;
  for i:=StrToInt(Edit1.Text) to StrToInt(Edit2.Text) do
  begin
    TcpClient1.RemotePort:=IntToStr(i);
    TcpClient1.Open;
    if TcpClient1.connected then
    Memo1.Lines.add(IntToStr(i)+'открыт');
    TcpClient1.Close;
    form1.Caption:=inttostr(i);
  end;
end;

	15.08.2014, 15:11