Creacion dinamica componentes
Publicado por Javi (7 intervenciones) el 30/04/2003 19:20:27
Hola, no llevo mucho tiempo programando en delphi, asi que perdonarme
si la respuesta a mi problema es una tonteria, pero llevo ya tiempo
intentando solucionarlo y no puedo :)
El problema es el siguiente :
Tengo esta clase basica:
type
TDatosUsuarios = class
public
Nombre : String;
Conectado : Boolean;
end;
Estoy usando el componente de INDY TCP Servidor, he aqui el codigo de
los metodos que esto utilizando
procedure TInicioServidor.IniServidorConnect(AThread: TIdPeerThread);
var
Datos : ^TDatosUsuarios;
begin
SecCritica.Acquire; // ENTRA SECCIÓN CRÍTICA
// ESTO ES LO QUE NO SE COMO HACERLOOOO :( :(
// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Datos := @(TDatosUsuarios.Create);
// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
AThread.Connection.Tag := Integer (Datos);
if (NumeroClientesActuales < MAXIMOS_CLIENTES) then
begin
NumeroClientes := NumeroClientes + 1;
Datos.Conectado := True;
end else
begin
Datos.Conectado := False;
AThread.Connection.Disconnect;
end;
SecCritica.Release; // SALE SECCIÓN CRÍTICA
end;
procedure TInicioServidor.IniServidorExecute(AThread: TIdPeerThread);
var
Usuario : ^TDatosUsuarios;
b
si la respuesta a mi problema es una tonteria, pero llevo ya tiempo
intentando solucionarlo y no puedo :)
El problema es el siguiente :
Tengo esta clase basica:
type
TDatosUsuarios = class
public
Nombre : String;
Conectado : Boolean;
end;
Estoy usando el componente de INDY TCP Servidor, he aqui el codigo de
los metodos que esto utilizando
procedure TInicioServidor.IniServidorConnect(AThread: TIdPeerThread);
var
Datos : ^TDatosUsuarios;
begin
SecCritica.Acquire; // ENTRA SECCIÓN CRÍTICA
// ESTO ES LO QUE NO SE COMO HACERLOOOO :( :(
// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Datos := @(TDatosUsuarios.Create);
// !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
AThread.Connection.Tag := Integer (Datos);
if (NumeroClientesActuales < MAXIMOS_CLIENTES) then
begin
NumeroClientes := NumeroClientes + 1;
Datos.Conectado := True;
end else
begin
Datos.Conectado := False;
AThread.Connection.Disconnect;
end;
SecCritica.Release; // SALE SECCIÓN CRÍTICA
end;
procedure TInicioServidor.IniServidorExecute(AThread: TIdPeerThread);
var
Usuario : ^TDatosUsuarios;
b
Valora esta pregunta


0