Ping A Un Cliente Y Accion

[fide]

Por que cuando intento hacer ping con ese componente de la Indy desde una seccion que no es administrador en Windows XP SP2 me aparece el siguiente error.

Socket Error # 10013
Access denied.

Si alguien sabe que pasa, por favor que me ayuda!. Esto pasa solo si no soy administrador....

[jesconsa]

Hola. Eso pasa como ya habras visto por otros sitios porque la manera que tiene Indy de hacer el ping es a traves del Winsock 2 que tiene elementos de seguridad que le obligan a pasar por el Firewall. En cambio el Ping que utilizas en Windows es a traves de una dll, ICMP.DLL creo recordar, y esta dll es con raw sockets no sujetas a esas directivas de seguridad, por eso puedes hacer un ping desde el interprete de comandos sin tener que tocar el Firewall. Es la primera vez que hablo por aqui, no seais muy duros conmigo.

Saludos

[jesconsa]

Perdon, ICMP.DLL no es raw sockets. Una pregunta por si alguien me da alguna pista. LLevo algunos dias con IcmpClient de Indy y todo va bien, o casi. Lo que hago es una llamada en bucle para crear threads para hacer pings a equipos. No he reinventado la rueda sino que he estado mirando una rutina en Internet de alguien que ya la hizo. la rutina del ejecutable del Thread es la siguiente:


procedure TPingThread.Execute;
var
rp:TReplyStatus;
begin
FErrorCount := 0;
FAlarmed := false;

Ping := TIdIcmpClient.Create(nil);
Ping.FreeOnRelease;
Ping.Host := FHost;

Ping.PacketSize:=16;
Ping.OnReply := PingReply;
Ping.ReceiveTimeout := 1000;


try
// Lanzar el PING
Ping.Ping;
finally
FreeAndNil(Ping);
end;

end;


procedure TPingThread.PingReply(ASender: TComponent; const AReplyStatus: TReplyStatus);
begin

if (AReplyStatus.ReplyStatusType = rsTimeOut) or (AReplyStatus.ReplyStatusType = rsErrorUnreachable) then begin
Form1.Memo1.Lines.Add('Equipo caido.');
end else begin
Form1.Memo1.Lines.Add('Equipo OK');
end;

end;


Si comienzo el thread con Resume o Start para dos equipos (dos threads) resulta que si el primero tiene conexion y el segundo no, lo muestra bien en el Memo ,...pero si el primero NO tiene conexion y el segundo si, en el Memo se ve como el segundo da su mensaje de 'Equipo OK' y al llegar el Reply del primero (Timeout) me aparece tambien 'Equipo OK' como si fuera el otro equipo, es decir, cuando llega el timeout de uno es como si los Threads no estuvieran bien difrenciados y toma los datos del ultimo Thread que se ejecuto.......He probado con Synchronize y este tipo de cosas pero no he funcionado....

Alguna pista please?

Muchas gracias
Jesus

[Casimiro Noteví]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.