[Lazarus-es] lNet: CallAction

[User]

Hola de nuevo, no uso los componentes visuales porque estoy realizando una
aplicación de formularios usando otros componentes que no me permiten
utilizar los componentes visuales de lNet y por tanto recurro a los no
visuales que sí los permite.
¿No hay otro modo de llamar al CallAction que resuelva esto que no sea
dentro de un evento OnTImer?
Gracias.
2008/12/11 Mgutierrez <mgutierrez en h-tecnologia.com>

> Lo único que se me ocurre es un el evento de un timer, ¿por que no usas los
> componentes visuales que ya te encapsulan todo estto ?
>
>
>  --------- Mensagem Original --------
> De: "Spanish version of Lazarus List" <lazarus-es en lazarus.freepascal.org>
> Para: "Spanish version of Lazarus List" <lazarus-es en lazarus.freepascal.org
> >
> Asunto: Re: [Lazarus-es] lNet: CallAction
> Fecha: 11/12/08 13:51
>
>
> Hola, creo que lo que tú has puesto es válido para una aplicación de
> consola. Yo estoy usando componentes lNet no visuales en una aplicación de
> formularios por eso no se dónde poner el CallAction.
>
> Lo tengo así, a ver si me echas un cable:
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
>   Conexion := TLTCP.Create(nil);
>   Conexion.OnError := @OnError;
>   Conexion.OnReceive := @OnReceive;
>   Conexion.OnDisconnect := @OnDisconnect;
>   Conexion.Timeout := 100;
> end;
>
> procedure TForm1.ButtonConnectClick(Sender: TObject);
> begin
>   Conexion.Connect('localhost', 200);
> end;
>
> procedure TForm1.ButtonDisconnectClick(Sender: TObject);
> begin
>   Conexion.Disconnect;
> end;
>
> procedure TForm1.ButtonSendClick(Sender: TObject);
> begin
>   Conexion.SendMessage(Edit1.Text);
> end;
>
> procedure TForm1.OnDisconnect(aSocket: TLSocket);
> begin
>   ShowMessage('Lost connection');
> end;
>
> procedure TForm1.OnReceive(aSocket: TLSocket);
> var
>   s: string;
> begin
>   if aSocket.GetMessage(s) > 0 then
>   ShowMessage(s);
> end;
>
> procedure TForm1.OnError(const msg: string; aSocket: TLSocket);
> begin
>   ShowMessage(msg);
> end;
>
> ¿Dónde meto el CallAction para que salten los distintos eventos?
>
> Gracias.
>
>
> El 11 de diciembre de 2008 0:48, Manuel Gutiérrez <
> mgutierrez en h-tecnologia.com> escribió:
>
>>
>>    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
>>
>>
>> _______________________________________________
>> Lazarus-es mailing list
>> Lazarus-es en lazarus.freepascal.org
>> http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>>
>
>
>
> ------------------------------
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lazarus.freepascal.org
> http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>
>
> ________________________________________________
> Message sent using Webmail Sync.es
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lazarus.freepascal.org
> http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20081211/14f893ca/attachment-0001.html>