Como faço para desconectar um usuário do servidor quot;Indy

Delphi

01/05/2006

Amigos,
tenho um programa servidor que monitora os usuarios que estão utilizando o meu sistema (tenho uma ListBox), até aqui fiz tudo direito, tah tudo funcionando.
Estou com problema em desenvolver uma função para desconectar o usuario.


Orlando Frade

Orlando Frade

Curtidas 0

Respostas

Paullsoftware

Paullsoftware

01/05/2006

Para desconectar um cliente do meu sistema uso o código abaixo...
procedure TfMain.DesconctaEstacao;
var
  Msg : String;
  SelClient: PClient;
begin
  if lbClients.ItemIndex <> -1 then
    begin
     SelClient := PClient(Clients.LockList.Items[lbClients.ItemIndex]);
     lbStatus.Items.Insert(0,SelClient.Nome +´ Foi Desconectado ´+ TimeToStr(Time));
     try
      Clients.LockList.Remove(SelClient);//Essa linha remove o cliente
     finally
      Clients.UnlockList;
     end;
     FreeMem(SelClient);
     lbClients.Items.Delete(lbClients.ItemIndex);
     ListaEstacoes;
    end
  else
   begin
    MessageDlg(´Selecione a Estação na lista acima e tente novamente´,mtInformation,[mbOK],0);
    Exit;
   end;
end; {*DesconectaEstação *}

espero ter ajudado :wink:


GOSTEI 0
POSTAR