RE: [delphi-br] Criar componente em tempo de execu ção e executar um PING em UNIT sem form

Fri, 07 Apr 2006 11:18:03 -0700 

Não conheco o componente, mas a logica e a mesma:

function Tfrm_update_ping.update_ping : boolean; begin
  result := true;
  try
    if ping = Nil then
       ping := "TClasse do objeto".Create(Nil);
    ping.parametro1 := Parametro1;
    ping.parametro2 := Parametro2;
    ping.Ping;
  except
    result := false;
  end
end;

 
 
Eduardo Castro Alves
Analista de Sistemas
-----Original Message-----
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of 
Luciano-User-BA
Sent: sexta-feira, 7 de abril de 2006 08:27
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Criar componente em tempo de execução e executar um PING 
em UNIT sem form



Oi gente...
Estou precisando de uma ajuda...
abaixo está um codigo de um componentes PING
da paleta indy
inserido em um form (frm_ping)
com o componente já com todos os parametros
pré configurados...
host, timeout, etc.
apartir de outro form (principal)
chamo a função para dar o ping.

mas eu gostaria de fazer isto,
ou seja, chamar a função
que estaria em uma unit (SÓ QUE SEM FORMS)
e para isto eu teria que criar
o componente em tempo de execução
inclusive com todos os parametros,
e executar o ping.

* he he he... resumindo a bagunça
* chamar a função update_ping apartir do form principal
* sendo que a função deve estar em um UNIT sem FORM :)

obrigado se puderem me der uma dica.
Luciano-User-BA

=================================================
unit u_ping;

interface

uses
  Forms,
  Classes,
  IdBaseComponent,
  IdComponent,
  IdRawBase,
  IdRawClient,
  IdIcmpClient;

type
  Tfrm_update_ping = class(TForm)
    ping: TIdIcmpClient;
  private
  public
    function update_ping : boolean;
  end;

var
  frm_update_ping: Tfrm_update_ping;

implementation

{$R *.dfm}

function Tfrm_update_ping.update_ping : boolean;
begin
  result := true;
  try
    ping.Ping;
  except
    result := false;
  end
end;

end.

                
_______________________________________________________ 
Novidade no Yahoo! Mail: receba alertas de novas mensagens no seu celular. 
Registre seu aparelho agora! 
http://br.mobile.yahoo.com/mailalertas/ 
 



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>


 
Links do Yahoo! Grupos




 





-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Responder a