<!--CodeS-->
procedure TfrmChatServerMain.IdServerConnect(AThread: TIdPeerThread);
var
PeerIP : String;
begin
try
AddLog_Memo('Client Connected...');
PeerIP := TIdIOHandlerSocket(AThread.Connection.IOHandler).Binding.PeerIP; ----> 이 부분
//매니저 서버에게 채팅방 정보를 요청한다.
AddLog_Memo('Client Connected..Address : [' + PeerIP + ']');
except
on E : Exception do AddLogError_Memo('IdServerConnect Function Except Messsage : ' + E.Message);
end;
end;
<!--CodeE-->
위에 PeerIP로 IP를 알아내는 부분이 블로킹되어버립니다...
음..이유를 모르겠네요...
급해서 그러는데 힌트라도 좀 가르쳐주세요~~~~~~~~~
이 부분에서 블록되어버리네요.............이거