Mailing lists / lazarus-es / 2008-12
5 messages · 3 people · –
Reply by email Subscribe to this list Your subscription
Read-only archive. Use j and k to move between messages.
�Alguien sabe utilizar el m�todo CallAction del componente no visual de lNet?
Gracias.
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20081210/f239e4ea/attachment.html>
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
;
;
;
;
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�:
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�:
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20081211/52a994fc/attachment.html>
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20081211/0b7b50f4/attachment.html>
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>
------------ pr�xima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus.freepascal.org/pipermail/lazarus-es/attachments/20081211/14f893ca/attachment.html>