procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread)

Question

Desculpa minha ignor�ncia..mas como eu pego o ip do cliente nessa procedure Execute do IdTCPServer1 do Indy?Eu tava pegando �AThread.Connection.LocalName�mas t� retornando o IP do servidor.. como pego...

Massuda · Answer

Porque voc� precisa dessa informa��o? A conex�o entre o servidor e o cliente j� est� feita....

Amon-ra · Answer

Preciso identificar de quem est� vindo essa mensagem, podem haver mais clientes simult�neos...

criei uma tabela �online� com:

usuario.. nome.. ip/host

Queria buscar na tabela o nome atraves do host...

Estou executando um �thread� dentro desse �Execute� que faz o trabalho..

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var
cm : checamsg;
begin
cm := checamsg.Create(true);
cm.linha := AThread.Connection.ReadLn(LF, 500);
cm.ok(@AThread);
cm.FreeOnTerminate := true;
cm.Priority := tpNormal;
cm.resume;
end;

A� o thread ja t� interpretando legal a mensagem e t� rodando r�pido.. pq nao usei �while� ou outros loops como normalmente acho que fazem..

Problema que minha identifica��o do usu�rio tava:

Query.Active:=false;
Query.SQL.Text := �Select usuario from online where ip=���+AThread2.Connection.LocalName+����;
Query.Active:=true;
if not query.Eof then
  begin
  usuario := Query.FieldValues[�usuario�];
  end;

Eu mais burro nao vi o erro pq tava testando sozinho.. agora que comecei a testar com mais computadores ao mesmo tempo � que notei que n�o se detecta o ip assim..

Valeu

Massuda · Answer

O IP do cliente est� em AThread.Connection.Socket.Binding.PeerIP e a porta do cliente est� em AThread.Connection.Socket.Binding.PeerPort....

F�rum procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread) #299302