[Lazarus-es] lNet: CallAction

[Manuel Gutiérrez]

    Sólo hay que llamarlo, me explico, lo que hace es que se ejecuten 
los eventos que haya en la cola del objeto, más o menos se usa así

procedure OnRecibir(socket:TLSocket);
begin
     // Aqui tu codigo para cuando recibas algo
end;

procedure OnMiError(socket:TLSocket);
begin
     // Aqui tu codigo para cuando recibas un error
end;

procedure OnAceptar(socket:TLSocket);
begin
     // Aqui tu codigo para cuando comienza una conexion
end;

procedure OnDesconectar(socket:TLSocket);
begin
     // Aqui tu codigo para cuando se desconecte el cliente
end;

    var
       conexion:TLTC;
    begin
        conexion.onreceive:=@OnRecibir;
        conexion.onError:=@OnMiError;
        conexion.OnAccept:=@OnAceptar; 
        conexion.Disconnect:=@OnDesconectar;
         while true do
         begin
              conexion.callaction;  // Procesas los eventos que hay
              // Más codigo si quieres que se vaya haciendo algo
         end;


Espero haberme explicado, Saludos.
 

User escribió:
>
> ¿Alguien sabe utilizar el método CallAction del componente no visual 
> de lNet?
>
> Gracias.
>
> ------------------------------------------------------------------------
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lazarus.freepascal.org
> http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>
>
> __________ Información de NOD32, revisión 3682 (20081210) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32.com
>   

-- 

Manuel Ángel Gutiérrez

Director Técnico

mgutierrez en h-tecnologia.com <mailto:mgutierrez en h-tecnologia.com>

www.h-tecnologia.com <http://www.h-tecnologia.com/>

665.950.837