поиск IP сервера по номеру порта

[32-bit]

Есть клиент и сервер. Они работают на 8080 и 8081 порту. запускаем сервер. запускаем клиент прописываем в поле Edit IP-адрес сервера и жмем кнопку подлючится и всё суперски работает. но нужно сделать чтобы приложение клиент само находило ip адрес среди компьютеров в сети.
Где то говорили что в Delphi можно опросить сеть стандартными модулями чтобы получить список адресов, в которых искать порты.
Можно прописать оригинальные номера портов чтобы достаточно однозначно определять компьютер в сети с запущеным приложением Сервер

[Slym]

Способ применим только в подсети локальной сети:
1. Сервер запускает UDP сервер
2. Клиент посылает бродкаст по заранее определенному порту. бродкаст рассылается всем в локальной сети
3. сервер отвечает на полученный бродкаст
4. клиент теперь знает где сервер

[32-bit]

А такой пример можно найти гденибудь?

[Slym]

на сервере TIdUDPServer

procedure TForm1.Button1Click(Sender: TObject);
Const LocatorStr='Where are you?';
var
  Init: TWSAData;
  timeout:timeval;
  SockOpt: BOOL;
  Sock: TSocket;
  Target: TSockAddrIn;
  Responce:string;
  Dummy,i,r:integer;
begin
  WSAStartup($101,Init);
  Sock:=Socket(PF_INET,SOCK_DGRAM,IPPROTO_UDP);
  SockOpt:=TRUE;
  SetSockOpt(Sock,SOL_SOCKET,SO_BROADCAST, PChar(@SockOpt),SizeOf(SockOpt));
  timeout.tv_sec:=5000;
  timeout.tv_usec:=0;
  SetSockOpt(Sock,SOL_SOCKET,SO_RCVTIMEO, PChar(@timeout),SizeOf(timeout));
  Target.sin_port:=htons(8167);
  Target.sin_addr.S_addr:=INADDR_BROADCAST;
  Target.sa_family:=AF_INET;
  SendTo(Sock,PChar(LocatorStr)^,Length(LocatorStr),0,Target,SizeOf(Target));
  SetLength(Responce,1024);
  Dummy:=SizeOf(Target);
  r:=RecvFrom(Sock,PChar(Responce)^,Length(Responce),0,Target,Dummy);
  SetLength(Responce,r);
  if r>0 then MessageBox(0,PChar(Responce), inet_ntoa(Target.sin_addr),ID_OK);
  CloseSocket(Sock);
  WSACleanup;
end;
procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  AData: TIdBytes; ABinding: TIdSocketHandle);
const s='I am here';
var a:TIdBytes;
begin
  SetLength(a,length(s));
  move(s[1],a[0],Length(s));
  ABinding.SendTo(ABinding.PeerIP,ABinding.PeerPort,a);
end;

[32-bit]

а если отправлять сообщение при помощи idudpclient.broadcast('NOIZE';порт) ;
подскажите что написать в приложении сервере чтобы принять это сообщение, ответить и на машине с который был отправлен бродкаст определить ip адрес ответчика

если можно в асе 433726776, моё мыло vager13@rambler.ru

у меня всего несколько вопросов, я уверен не много времени отниму у вас Slim

[Slym]

procedure TForm1.Button2Click(Sender: TObject);
var
UDPClient:TIdUDPClient;
a:TIdBytes;
PeerIP:string;
PeerPort:word;
begin
UDPClient:=TIdUDPClient.Create;
try
UDPClient.Broadcast('Where are you?',8167);
SetLength(a,1024);
UDPClient.ReceiveBuffer(a,PeerIP,Pe erPort,5000);
finally
UDPClient.Free;
end;
MessageBox(0,PChar(PeerIP+':'+IntTo Str(PeerPort)), 'Я тут',ID_OK);
end;

на сервере
procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
AData: TIdBytes; ABinding: TIdSocketHandle);
const s='I am here';
var a:TIdBytes;
begin
SetLength(a,length(s));
move(s[1],a[0],Length(s));
ABinding.SendTo(ABinding.PeerIP,ABi nding.PeerPort,a);
end;

[32-bit]

большое спасибо
но делфа 7 ругается на это procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
AData: TIdBytes; ABinding: TIdSocketHandle);

IdSocketHandle я добавил в uses

[Slym]

версия инди какая? из коробки? ставь свежую