<div>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.</div>
<div>¿No hay otro modo de llamar al CallAction que resuelva esto que no sea dentro de un evento OnTImer?</div>
<div>Gracias.<br></div>
<div class="gmail_quote">2008/12/11 Mgutierrez <span dir="ltr"><<a href="mailto:mgutierrez@h-tecnologia.com">mgutierrez@h-tecnologia.com</a>></span><br>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid">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 ?<br>
<br><br>
<blockquote dir="ltr" style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<div style="FONT: 10pt arial">--------- Mensagem Original --------<br>De: "Spanish version of Lazarus List" <<a href="mailto:lazarus-es@lazarus.freepascal.org" target="_blank">lazarus-es@lazarus.freepascal.org</a>><br>
Para: "Spanish version of Lazarus List" <<a href="mailto:lazarus-es@lazarus.freepascal.org" target="_blank">lazarus-es@lazarus.freepascal.org</a>><br>Asunto: Re: [Lazarus-es] lNet: CallAction<br>Fecha: 11/12/08 13:51
<div>
<div></div>
<div class="Wj3C7c"><br><br>
<p>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.</p>
<p>Lo tengo así, a ver si me echas un cable:<br></p>
<p>procedure TForm1.FormCreate(Sender: TObject);<br>begin<br> Conexion := TLTCP.Create(nil); <br> Conexion.OnError := @OnError; <br> Conexion.OnReceive := @OnReceive;<br> Conexion.OnDisconnect := @OnDisconnect;<br> Conexion.Timeout := 100; <br>
end;<br><br>procedure TForm1.ButtonConnectClick(Sender: TObject);<br>begin<br> Conexion.Connect('localhost', 200);<br>end;<br><br>procedure TForm1.ButtonDisconnectClick(Sender: TObject);<br>begin<br> Conexion.Disconnect;<br>
end;<br><br>procedure TForm1.ButtonSendClick(Sender: TObject);<br>begin<br> Conexion.SendMessage(Edit1.Text);<br>end;<br><br>procedure TForm1.OnDisconnect(aSocket: TLSocket);<br>begin<br> ShowMessage('Lost connection');<br>
end;<br><br>procedure TForm1.OnReceive(aSocket: TLSocket);<br>var<br> s: string;<br>begin<br> if aSocket.GetMessage(s) > 0 then<br> ShowMessage(s);<br>end;<br><br>procedure TForm1.OnError(const msg: string; aSocket: TLSocket);<br>
begin<br> ShowMessage(msg);<br>end;</p>
<p>¿Dónde meto el CallAction para que salten los distintos eventos?</p>
<p>Gracias.<br><br></p><br>
<div class="gmail_quote">El 11 de diciembre de 2008 0:48, Manuel Gutiérrez <span dir="ltr"><<a href="mailto:mgutierrez@h-tecnologia.com" target="_blank">mgutierrez@h-tecnologia.com</a>></span> escribió:<br>
<blockquote class="gmail_quote" style="PADDING-LEFT: 1ex; MARGIN: 0px 0px 0px 0.8ex; BORDER-LEFT: #ccc 1px solid"><br> Sólo hay que llamarlo, me explico, lo que hace es que se ejecuten<br>los eventos que haya en la cola del objeto, más o menos se usa así<br>
<br>procedure OnRecibir(socket:TLSocket);<br>begin<br> // Aqui tu codigo para cuando recibas algo<br>end;<br><br>procedure OnMiError(socket:TLSocket);<br>begin<br> // Aqui tu codigo para cuando recibas un error<br>end;<br>
<br>procedure OnAceptar(socket:TLSocket);<br>begin<br> // Aqui tu codigo para cuando comienza una conexion<br>end;<br><br>procedure OnDesconectar(socket:TLSocket);<br>begin<br> // Aqui tu codigo para cuando se desconecte el cliente<br>
end;<br><br> var<br> conexion:TLTC;<br> begin<br> conexion.onreceive:=@OnRecibir;<br> conexion.onError:=@OnMiError;<br> conexion.OnAccept:=@OnAceptar;<br> conexion.Disconnect:=@OnDesconectar;<br>
while true do<br> begin<br> conexion.callaction; // Procesas los eventos que hay<br> // Más codigo si quieres que se vaya haciendo algo<br> end;<br><br><br>Espero haberme explicado, Saludos.<br>
<br><br>User escribió:<br>
<div>><br>> ¿Alguien sabe utilizar el método CallAction del componente no visual<br>> de lNet?<br>><br>> Gracias.<br>><br></div>> ------------------------------------------------------------------------<br>
><br>> _______________________________________________<br>> Lazarus-es mailing list<br>> <a href="mailto:Lazarus-es@lazarus.freepascal.org" target="_blank">Lazarus-es@lazarus.freepascal.org</a><br>> <a href="http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
><br>><br>><br>> __________ Información de NOD32, revisión 3682 (20081210) __________<br>><br>> Este mensaje ha sido analizado con NOD32 antivirus system<br>> <a href="http://www.nod32.com/" target="_blank">http://www.nod32.com</a><br>
><br><br>--<br><br>Manuel Ángel Gutiérrez<br><br>Director Técnico<br><br><a href="mailto:mgutierrez@h-tecnologia.com" target="_blank">mgutierrez@h-tecnologia.com</a> <mailto:<a href="mailto:mgutierrez@h-tecnologia.com" target="_blank">mgutierrez@h-tecnologia.com</a>><br>
<br><a href="http://www.h-tecnologia.com/" target="_blank">www.h-tecnologia.com</a> <<a href="http://www.h-tecnologia.com/" target="_blank">http://www.h-tecnologia.com/</a>><br><br>665.950.837<br><br><br>_______________________________________________<br>
Lazarus-es mailing list<br><a href="mailto:Lazarus-es@lazarus.freepascal.org" target="_blank">Lazarus-es@lazarus.freepascal.org</a><br><a href="http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
</blockquote></div><br><br><br></div></div>
<hr>
<div class="Ih2E3d"><br><font face="Courier New" size="2">_______________________________________________<br>Lazarus-es mailing list<br><a href="mailto:Lazarus-es@lazarus.freepascal.org" target="_blank">Lazarus-es@lazarus.freepascal.org</a><br>
<a href="http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br></font></div></div></blockquote><br><br>________________________________________________<br>
Message sent using Webmail Sync.es<br><br>_______________________________________________<br>Lazarus-es mailing list<br><a href="mailto:Lazarus-es@lazarus.freepascal.org">Lazarus-es@lazarus.freepascal.org</a><br><a href="http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es" target="_blank">http://www.lazarus.freepascal.org/mailman/listinfo/lazarus-es</a><br>
<br></blockquote></div><br>