Добрый день !

Помогите плиз !

Всем известен пример Indy 9 : idTCPDemo , а именно чат так сказать на Indy TCP.
Так вот - компилим примерчик и стартуем сервер на машине А и два клиента на машинах B C
Получаем при соединении клиентов с сервером в окошек протокола сервера :

Код

15:56:40 Connection from "server_a" 15:56:41 Connection from "server_a"

То есть имеем в этом коде :

Код

procedure TServerFrmMain.ServerConnect(AThread: TIdPeerThread); var   NewClient: PClient; begin   GetMem(NewClient, SizeOf(TClient)); [b]  NewClient.DNS         := AThread.Connection.LocalName;[/b]   NewClient.Connected   := Now;   NewClient.LastAction  := NewClient.Connected;   NewClient.Thread      :=AThread;   AThread.Data:=TObject(NewClient);   try     Clients.LockList.Add(NewClient);   finally     Clients.UnlockList;   end;   Protocol.Lines.Add(TimeToStr(Time)+' Connection from "'++' '+NewClient.DNS+'"'); end;

NewClient.DNS = server_a - вот значит какое имя у клиента 1 и ровно такое-же имя у клиента 2
Это конечно не мешает кидаться Broadcast сообщениями и слать сообщения на сервер, но
это не позволяет кинуть сообщение с одного клиента на другого !

(Это прописано в строчке :

Код

begin             RecClient:=Items[i];             [b]if RecClient.DNS=CommBlock.ReceiverName then  // we don't have a login function so we have to use the DNS (Hostname)[/b]            begin

конечно если закомментировать "if ..." то все ок ..но все же вопрос :

как на этапе соединения определить кто подключается к серверу ?

C Уважением Wagner

Тут и сказать нечего.
Вроде все правильно. Должно работать.
Но я даже проверить не могу - у меня клиент виснет намертво.
Попробуй Iny 10. Может там поправлено...

Там в принципе те же пироги - вместо

Код

[b]NewClient.DNS         := AThread.Connection.LocalName;[/b] вот эта строчка : [b]NewClient.DNS         := AContext.Connection.LocalName;[/b] смысл остался тот же но это обходиться кажется так: [b]NewClient.DNS         := AContext.Connection.Binding.PeerIP;[/b]

Но не в этом суть просто у меня Delphi7 + Indy 9 - ставить Indy 10 не хочется
(по 9 то мало информации а по 10 и подавно ...)

Как бы при соединении подложить реальный IP или Имя клиента именно в 9 - может есть мысли ?

C Уважением Wagner

Может
Client.DNS := AThread.Connection.Socket.Binding.IP;

Не не катит - я тут вот написал - работает ..но чуйствую криво это все !!!
Может поправите (так все на ура - если из под Delphi то ошибки ...)


Сервер обработка соединения

Код

procedure TServerFrmMain.ServerConnect(AThread: TIdPeerThread); var   NewClient: PClient;   CommBlock: TCommBlock; begin   GetMem(NewClient, SizeOf(TClient));   NewClient.DNS         := AThread.Connection.LocalName;   NewClient.Connected   := Now;   NewClient.LastAction  := NewClient.Connected;   NewClient.Thread      := AThread;   AThread.Data:=TObject(NewClient);   try     NewClient := PClient(AThread.Data);     AThread.Connection.ReadBuffer (CommBlock, SizeOf (CommBlock));     NewClient := PClient(AThread.Data);     NewClient.DNS:=CommBlock.MyUserName;     if CommBlock.Msg='HELO' then     begin     Clients.LockList.Add(NewClient);     Protocol.Lines.Add(TimeToStr(Time)+' Установлено соединение с " '+NewClient.DNS+'"');     Clients.UnlockList;     end     else     begin     Protocol.Lines.Add (TimeToStr(Time)+' Disconnect from "'+NewClient^.DNS+'"');     Clients.LockList.Remove(NewClient);     Clients.UnlockList;     FreeMem(NewClient);     AThread.Data := nil;     end;   finally  //    Clients.UnlockList;   end;

И Клиент обработка соединения

Код

procedure TClientFrmMain.CBClientActiveClick(Sender: TObject); var CommBlock : TCommBlock; begin   if CBClientActive.Checked then   begin     try       Client.Connect(10000);  // in Indy < 8.1 leave the parameter away       ClientHandleThread := TClientHandleThread.Create(True);       ClientHandleThread.FreeOnTerminate:=True;       ClientHandleThread.Resume;       CommBlock.MyUserName   := Client.LocalName;       CommBlock.Msg          := 'HELO';       Client.WriteBuffer (CommBlock, SizeOf (CommBlock), true);     except       on E: Exception do MessageDlg ('Error while connecting:'+#13+E.Message, mtError, [mbOk], 0);     end;   end   else   begin     ClientHandleThread.Terminate;     Client.Disconnect;   end;   ButtonSend.Enabled := Client.Connected;   CBClientActive.Checked := Client.Connected; end;

Вот сомневаюсь я ...