[Lazarus-es] lNet: CallAction

[User]

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
>
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20081211/52a994fc/attachment-0001.html>