Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Как сделать проверку приложения по указанному IP

Автор: MuForum 18.6.2007, 20:09

Мне необходимо было написать приложение, которое будет запускать другое приложение с указанными параметрами - Это я выполнил.
Но передомной ещё одна задача, которую я не знаю как решить даже приблизительно и мне нужна хоть какая-то информация/помощь!

Как сделать проверку на активность приложения по указанному IP и порту?
Тоесть: Если программа по указанному IP и порту активна, то показывать в моём приложение статус Online, если не активна, то Offline.

Прошу говорить хоть какие-то идея, дальше я уже как-то буду мучаться..., просто у меня вообще идей нету, как это реализовать.

P.S. -> Работаю на Delphi 7.

Автор: Snowy 18.6.2007, 20:25

Для этого приложение должно иметь встроенный сервер и отвечать на запросы на свой порт.

Автор: gambit 25.6.2007, 21:21

Копонент TIDtcpserver.
Скачай пример indy чата.

Автор: MuForum 30.6.2007, 00:17

# for all - Не знаю, может это конечно и тупо, но я осуществил данную проверку через компонент TcpClient(Socket).

Вот так у меня выглядит код:

Код


procedure TForm1Main.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval:=60000;
  TcpClient1.RemoteHost:=IP;
  TcpClient1.RemotePort:=IntToStr(Port);
  TcpClient1.Active := True;
  if (TcpClient1.Connected) then
begin
  Form1Main.Caption := ServerName+' - [Server: Online]';
end
else
  Begin
  Form1Main.Caption := ServerName+' - [Server: Offline]';
  end;
  TcpClient1.Active := false;
end;