F�rum Preciso de uma Solu��o para o Erro: Invalid Pointer #320189

28/04/2006

Pessoal bom dia...
[b:54874ff983]Primeiramente se o t�tulo do t�pico estiver parecendo apelativo, pesso que algum miderador mude, pois, foi o que achei mais conveniente...[/b:54874ff983]
Estou tentando desenvolver um sistema para lan-house usando componentes da paleta Indy idTCPServer e idTCPClient, o sistema est� funcionando quase que perfeitamente, por�m vez por outra ele me retorna esse erro quando clico no nome do micro conectado ao servidor, ele funciona mais ou menos assim:
Quando um terminal � iniciado ele e se conecta ao servidor, o servidor guarda em uma lista o nome dessa esta��o e outras informa��es como hora da conex�o, tempo de uso, Ponteiro e outros...
para enviar algum comando do servidor para o cliente eu simplesmente seleciono a esta��o com um clique na lista de esta��es conectadas (listbox pra ser exato) funciona perfeitamente, por�m algumas vezes ele me retorna esse erro que mecionei no t�tulo (Invalid Pointer) que se n�o me engano � o endere�o da mem�ria no qual a thread est� armazenada... minha principal d�vida hoje �: Tem como enviar um comando para a esta��o usando essa instru��o de outra forma?

 
var
  Msg : String;
  SelClient : PClient;
  begin
   if lbClients.ItemIndex <> -1 then
     begin
      try
      SelClient := PClient(Clients.LockList.Items[lbClients.ItemIndex]);
      if SelClient.Ligado then
      TIdPeerThread(SelClient.Thread).Connection.WriteLn(Msg);
      finally
      Clients.UnlockList;
      end;

algu�m com esperi�ncia nesse tipo de sistema poderia me dizer como eu fa�o para enviar um comando para o terminal selecionado o IP ou nome desse terminal, pq nesse caso eu j� possuo um cadastro de todos os terminais da lan, e seria s� selecionar esse terminal e enviar o comando para esse tipo:

with QyEstacoes do
 begin
  idTcpServer.UmaFormaDeEnviar.NomeDaEstacao.WeriteLn(�Comando�);
 end;

grato a todos pela aten��o!

Paullsoftware

Curtir t�pico

+ 0

Responder