Usando Trheads

[Mauro Jr]

Olá,

Estou desenvolvendo um programinha que fica monitorando enderços IP. Faço isso através de ping. O problema é que quando dou um ping e a resposta demora, o sistema fica "parado" até acabar aquele processo. Daí não consigo acessar as opções de configuração, ou fechar o programa, pois o mesmo está fazendo o ping e neste momento o programa fica "congelado".

Pensei em utilizar Multi Thread, para que os processos trabalhem paralelamente. Mas como faço isso? Devo colocar um thread para controlar o ping e outro que cuida do resto da aplicação? Em que momento devo executar os threads?

Agradeço a atenção,

Mauro Jr

[s3c]

Como você está fazendo o ping ?

[Mauro Jr]

Utilizo o componente IdIcmpClient ---- IdIcmpClientNetMon.Ping;

//* Evento OnTimer do Timer

procedure TFormNetMonitor.TimerNetMonitorTimer(Sender: TObject);

begin

ClientDataSet.First;

While not ClientDataSetAddressToTest.Eof do

begin

IdIcmpClient.OnReply := IdIcmpClientReply;

IdIcmpClient.ReceiveTimeout := 2;

IdIcmpClient.Host := ClientDataSet.AsString;

IdIcmpClient.Ping;

.

.

.

ClientDataSet.Next;

end;

end;

[s3c]

Defina uma classe que descenda de TThread:

type TPingThread = Class(TThread)
       procedure   Execute; override;
       constructor Create;
end;

Depois implemente os dois métodos:

constructor TPingThread.Create;
begin
  inherited Create(true); // cria suspensa
  FreeOnTerminate := false; // deixa você liberar o objeto
end;

procedure TPingThread.Execute;
begin
  While not Terminated do
  begin
// Aqui você coloca o código do evento timer
// Não deixe sair deste While, executando Suspend após sua tabela chegar ao fim
end;
end;

Defina uma variável p/ a Thread:

var PT:TPingThread;

No onCreate do Form você instancia:

PT := TPingThread.Create;

No onTimer você ativa:

PT.Resume;

No onDestroy você libera:

PT.Free;

[s3c]

Antes de dar o Resume, teste se ela está suspensa:

if PT.Suspended then
  PT.Resume;

[Mauro Jr]

Pô cara, valeu!

Valeu mesmo pela ajuda!

Abraços,

Mauro