42 respuestas en este tema

[enecumene]

Pues eso, tengo una aplicación que verifica si unos equipos (24) están activos o no a través del método ping, sucede que si muchos equipos están apagados o inactivos, la aplicación se congela (1 minuto a 1.5) hasta empezar el proceso, ¿cómo puedo evitar eso?. Estoy usando los Indy más especí­ficamente el TIdIcmpClient, dejo el código e imagen de la aplicación.

Saludos.

[seoane]

Pues me temo que tendrás que usar threads.

Si implementas el ping dentro de un thread puedes realizar 10, 20 o incluso 30 pings simultáneos. Además mientras se están realizando tu aplicación no parecerá congelada.

[enecumene]

Gracias Seoane, lo de hacerlo con Hilos es interesante, la cuestión es que no sé ni pí­o de Threads, pues si esa es la solución voy a googlear un poco sobre la programación con threads.

Saludos.

[eduarcol]

en el foro de juegos hay ejemplos de threads, si mal no recuerdo en la gallina...

[enecumene]

¿Alguien ha probado éste código?, porque la agrego tal cual como está y no me compila y no le encuentro el problema:

http://delphi.about....l/aa081503a.htm

Saludos.

[Delphius]

Copié el código, no me compiló. El errror que veo es "redeclared Ping". Lo que hice fue cambiar el nombre de la función por otro y compiló. Se debe a que el nombre de la función es identico a la de la unit.

Ahora bien... hice una prueba con la IP que muestra de ejemplo y no veo el cartelito... ¿será que la IP de delphi about ya no es esa? 8-)

Saludos,

[enecumene]

Pues al parecer no, ¿probaste con otra IP?, hice el cambio y no me compila o es que estoy haciendo algo mal:

[Pascal Error] Main.pas(1): Unable to invoke Code Completion due to errors in source code

Saludos.

[Delphius]

Pues no te sabrí­a decir Fernando, los error que me aparecí­a a mi eran estos:

delphi

[Error] Ping.pas(39): Identifier redeclared: 'Ping'
[Error] Ping.pas(112): Identifier redeclared: 'Ping'
[Error] Ping.pas(39): Unsatisfied forward or external declaration: '.1'
[Fatal Error] Unit1.pas(7): Could not compile used unit 'Ping.pas'

Y lo que tuve que hacer fue reemplazar el nombre de la función Ping por otro... digamos IfPing. Luego para llamar a la función lo único que hice es esto:

delphi

procedure TForm1.Button1Click(Sender: TObject);
const ADP_IP = '208.185.127.40'; (* http://delphi.about.com *)
begin
 If  ifPing(ADP_IP) then
   ShowMessage('About Delphi Programming reachable!');
end;

Y por lo que estuve viendo en Who is, la IP de delphi.about es esa... No me muestra el cartelito...

Saludos,

[enecumene]

Esos errores eran los que me salí­an e hice el cambio de nombre en la función y aún así­ no me compila. , Bueno seguiré buscando, traté de hacer con los Threads con una ayudita de Eduardo, entendí­ un poco la teorí­a pero en la práctica nada me comió.

Saludos.

[Delphius]

Esruve probando haciendo ping a otras IP amigo, y funciona,... a veces.

Saludos,

[enecumene]

Esruve probando haciendo ping a otras IP amigo, y funciona,... a veces.

Saludos,

Ah pues, eso indica que deberé seguir buscando...

[Delphius]

¿A ti, a pesar de que se congela... te funciona el código original, con el componente TIdIcmpClient?

Yo al igual que Domingo creo que el tema pasa por emplear hilos. Yo mucho del manejo de hilos no tengo idea, sólo cierta teorí­a: se declara un descendiente de la clase TThread, se sobrescribe el método Execute y en él se implementan las rutinas necesarias (en este caso el ping). Luego se instancian algunos objetos de esta clase y se mandan a ejecutar.

Saludos,

[Delphius]

A lo mejor se puede aprovechar el utilitario que Javier nos acercó hace unos dí­as . Este hace uso de unas apis y va haciendo ping al servidor de delphiaccess. Este funciona de mil maravillas.

A lo mejor podemos estudiarlo y ver el modo de adaptarlo a lo que necesitas... y te evitas usar un componente .

Saludos,

[enecumene]

¿A ti, a pesar de que se congela... te funciona el código original, con el componente TIdIcmpClient?

Yo al igual que Domingo creo que el tema pasa por emplear hilos. Yo mucho del manejo de hilos no tengo idea, sólo cierta teorí­a: se declara un descendiente de la clase TThread, se sobrescribe el método Execute y en él se implementan las rutinas necesarias (en este caso el ping). Luego se instancian algunos objetos de esta clase y se mandan a ejecutar.

Saludos,

El código original funciona perfectamente, el problema es que si hay muchos relojes fuera de servicio se congela por minutos hasta que termine y repite el proceso.

Saludos.

[enecumene]

Bueno, Tratando con Hilos, hice lo siguiente:

delphi

unit Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdRawBase, IdRawClient,
  IdIcmpClient;
 
type
  TThreadPing = class(TThread)
    private
      Respuesta: String; //resultado
    protected
      procedure Execute; override;
    public
      constructor Create(IP: String);
    end;
 
  TForm1 = class(TForm)
    Button1: TButton;
    pE01: TIdIcmpClient;
    procedure IdIcmpClient1Reply(ASender: TComponent;
      const AReplyStatus: TReplyStatus);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  cIP: String;
 
implementation
 
{$R *.dfm}
 
constructor TThreadPing.Create(IP: String);
begin
cIP := IP; //guarda la IP en una variable privada
inherited Create(True);
end;
 
procedure SetReloj(Host: String; S: TLabel; Recibe: TIdIcmpClient);
begin
  Recibe.Host := cIP;
  with Recibe.ReplyStatus do begin
  case ReplyStatusType of
     rsEcho:    begin   S.Caption := 'Conectado';
                        S.Font.Color := clBlue;
                 end;
     rsTimeOut: begin   S.Caption := 'Apagado';
                        S.Font.Color := clRed;
                 end;
    rsErrorUnreachable: begin   S.Caption := 'Sin Conección';
                        S.Font.Color := clRed;
                 end;
    end;
  end;
end;
 
procedure TThreadPing.Execute;
begin
  Synchronize(SetReloj);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  DIR: TThreadPing;
begin
DIR.Create('127.0.0.1');
end;
 
end.

No logro echarlo a andar, se queda en el Execute con "[Error] Main.pas(66): There is no overloaded version of 'Synchronize' that can be called with these arguments", estoy seguro que está totalmente mal , ¿una mano? :$

Saludos.

[eduarcol]

delphi

unit Main;
 
interface
 
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdRawBase, IdRawClient,
 IdIcmpClient;
 
type
 TThreadPing = class(TThread)
   private
     Respuesta: String; //resultado
     procedure SetReloj(Host: String; S: TLabel; Recibe: TIdIcmpClient);
   protected
     procedure Execute; override;
   public
     constructor Create(IP: String);
   end;
 
 TForm1 = class(TForm)
   Button1: TButton;
   pE01: TIdIcmpClient;
   procedure IdIcmpClient1Reply(ASender: TComponent;
     const AReplyStatus: TReplyStatus);
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;
 
var
 Form1: TForm1;
 cIP: String;
 
implementation
 
{$R *.dfm}
 
constructor TThreadPing.Create(IP: String);
begin
cIP := IP; //guarda la IP en una variable privada
inherited Create(True);
end;
 
procedure TThreadPing.SetReloj(Host: String; S: TLabel; Recibe: TIdIcmpClient);
begin
 Recibe.Host := cIP;
 with Recibe.ReplyStatus do begin
 case ReplyStatusType of
    rsEcho:    begin   S.Caption := 'Conectado';
                       S.Font.Color := clBlue;
                end;
    rsTimeOut: begin   S.Caption := 'Apagado';
                       S.Font.Color := clRed;
                end;
   rsErrorUnreachable: begin   S.Caption := 'Sin Conección';
                       S.Font.Color := clRed;
                end;
   end;
 end;
end;
 
procedure TThreadPing.Execute;
begin
 Synchronize(SetReloj);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 DIR: TThreadPing;
begin
DIR.Create('127.0.0.1');
end;
 
end.

Debes meter el procedure SetReloj dentro del TThread, ya que Syncronize trabaja con TThreadMetod

[enecumene]

Hola Eduardo, gracias por la aclaración, pero aún persiste el problema y tiene que ver con el procedimiento,

[enecumene]

Hola compañeros, con la ayuda de eduardo pude hacer un Thread, pero el resultado sigue siendo el mismo, dejo el .pas para que lo vean.

Saludos.

[Kipow]

Yo no tengo mucha experiencia con Threads pero si he hecho uso de ellos en un par de aplicaciones ultimamente. y te pudo decir esto.

1. El metodo syncronize recibe un procedimiento sin parametros es por eso lo de tu error.
2. Te sugiero crear dentro del thread el Componente de las Indy.
3.

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 DIR: TThreadPing;
begin
DIR.Create('127.0.0.1');
DiR.Resume; // Con esto le indicas que inicie el thread. porque el parametro true del constructor lo inicia pausado.
end;

Saludos.

[Rolphy Reyes]

Yo no tengo mucha experiencia con Threads pero si he hecho uso de ellos en un par de aplicaciones ultimamente. y te pudo decir esto.

1. El metodo syncronize recibe un procedimiento sin parametros es por eso lo de tu error.
2. Te sugiero crear dentro del thread el Componente de las Indy.
3.

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 DIR: TThreadPing;
begin
DIR.Create('127.0.0.1');
DiR.Resume; // Con esto le indicas que inicie el thread. porque el parametro true del constructor lo inicia pausado.
end;

Saludos.

Se me fue adelante Kipow, es correcta la indicación, no debes pasar un método con parámetros a Syncronize.

delphi

type TThreadMethod = procedure of object;