BorlandTalk.com

Rafael Crivellari Saliba · Guest

Hi,
I'm creating a program to control a LAN.
But the client parts are passive, I mean, the users doesn't choose what
he want to do on the server.
So I've writen a code that sends a ping to each one of these computers
to know if they are running the software.
This works ok until I try to send a ping to a big number of computers
(higher than 100) and I get the following error, even if these computers
are not available and the timeout occurs:

Exception EidSocketError in module ETHERCOP_SERVER.EXE at 0009E62C.
Socket Error # 10055
No buffer space avaliable.

Here is the part of the code that executes this function

IP is passed as a parameter to the procedure e has the IP of the
computer to be pinged;
LoggedIP is a TStringList that store the IP that has been pinged without
errors.
All this is called into a loop structure.

try
cidtcpPingaAlunos.Host := Ip;
cidtcpPingaAlunos.Connect(100);
if Connected then
begin
LoggedIP.Add(Ip);
cidtcpPingaAlunos.WriteLn(LocalIp);
Disconnect;
end;
except
end;

Please I need a solution for this problem without big changes on the
code because the project is almost finishing and I'll can't change this
function completely

Thanks!

Rafael Crivellari Saliba Schouery