Работа ServerSocket ClientSocket с внешним ip

[Anton911]

Недавно создал клиент серверное приложение на основе ServerSocket и ClientSocket. В локальной сети работает отлично, через интернет тоже работает, если одинаковый провайдер, тоесть ip клиента и ip сервера видны друг другу. Но столкнулся с такой проблемой, поставили сервер программы на внешний ip причем, клиенты видят сервер, но никак не могли коннектиться. После того как начал химичить с компонентами, максимум чего добился это, клиентское приложение пишет что к серверу приконнектился, но на серверном приложении молчек (а должно писать кто приконнектился), вобщем отказывает отправлять и принимать данные. Может быть, ктото уже сталкивался с такой проблемой? Помогите плиз, весь интернет перерыл уже.
Вот код:

Клиент:

При нажатии на кнопку соединиться:

ClientS.Port:=strtoint(PortEdit.Text);
ClientS.Active:=true;
Connected:=true;
ClientConsole.Lines.Add('['+TimeToStr(Time)+'] Активация...');
ClientConsole.Lines.Add('['+TimeToStr(Time)+'] Канал-> '+ClientS.Address+':'+inttostr(ClientS.Port));

При событии OnConnect:

ClientS.Socket.SendText(UnicodeString(Name+'|'+'Privet|'+Version));


Сервер:

При нажатии на кнопку включить сервер:

ServerS.Port:=strtoint(PortEdit.Text);
ServerS.Active:=true;
ServerConsole.Lines.add('['+TimeToStr(Time)+']'+' Сервер включен');

Событие OnClientConnect:

serverconsole.Lines.Add('['+TimeToStr(Time)+'] '+'Обанаружено соединение: '+Socket.RemoteAddress);

Событие OnClientRead:

SetLength(sss, Socket.ReceiveLength);
SetLength(sss, Socket.ReceiveBuf(Pointer(sss)^, Length(sss)));
len:=Length(sss);

[mss]

А где обработка событий OnError, OnClientError ?

[Anton911]

Сообщение от mss

А где обработка событий OnError, OnClientError ?

Это все, есть:

Клиент:

Для события OnError:

ClientConsole.Lines.add('['+TimeToStr(Time)+'] Ошибка. Код = '+IntToStr(ErrorCode));
if (ErrorCode=10061) or (ErrorCode=10051)   then
begin
ClientS.Active:=false;
ClientConsole.Lines.add('['+TimeToStr(Time)+'] Ошибка: Сервер отсутствует.');
end;
if (ErrorCode=10053) then
begin
ClientS.Active:=false;
ClientConsole.Lines.add('['+TimeToStr(Time)+'] Ошибка: Сервер был отключен.');
end;
ClientS.Active:=false;
memo1.Font.Color:=clMaroon;

Сервер:

Событие OnClientError:

  ServerConsole.Lines.add('['+TimeToStr(Time)+']'+' Ошибка игрока. Код = '+IntToStr(ErrorCode));

[mss]

Твой обработчик OnError чреват утечками памяти.

try
  case ErrorCode of
... здесь анализ кода ошибки , протоколирование и пр.
  end;
finally
  Socket.Close; // Socket - это 2-й формальный параметр метода-обработчика !
  ErrorCode := 0; // можно закомментировать, если не требуется подавление вывода диал.окна сообщения об ошибке
end;

Тоже самое касается и обработки OnClientError на стороне сервера, с той лишь разницей что незакрытие в обработчике ошибки гнезда отказавшего клиентского соединения чревато "мертвыми душами" в списке Connections[] (по сути та же потенциальная утечка ресурсов)

[Anton911]

Сообщение от mss

Твой обработчик OnError чреват утечками памяти.

try
  case ErrorCode of
... здесь анализ кода ошибки , протоколирование и пр.
  end;
finally
  Socket.Close; // Socket - это 2-й формальный параметр метода-обработчика !
  ErrorCode := 0; // можно закомментировать, если не требуется подавление вывода диал.окна сообщения об ошибке
end;

Тоже самое касается и обработки OnClientError на стороне сервера, с той лишь разницей что незакрытие в обработчике ошибки гнезда отказавшего клиентского соединения чревато "мертвыми душами" в списке Connections[] (по сути та же потенциальная утечка ресурсов)

Клиент:

  try
  case ErrorCode of
10061 or 10051:
begin
ClientS.Active:=false; ClientConsole.Lines.add('['+TimeToStr(Time)+'] Ошибка: Сервер отсутствует.');
end;
10053:
begin ClientS.Active:=false; ClientConsole.Lines.add('['+TimeToStr(Time)+'] Ошибка: Сервер был отключен.');
end;
else
begin ClientS.Active:=false;
ClientConsole.Lines.add('['+TimeToStr(Time)+'] Ошибка: '+inttostr(errorCode));
end;
  end;
finally
  clients.Close;
  ErrorCode := 0;
end;

Сервер:

  try
  ServerConsole.Lines.add('['+TimeToStr(Time)+']'+' Ошибка игрока. Код = '+IntToStr(ErrorCode));
finally
  Socket.Close;
  ErrorCode := 0;
end;

Посмотри пожалуйсто, так лучше?

[mss]

ClientS.Active:=false

Это убери.

[Anton911]

Скажите пожалуйсто, сокетам важно, что клиент и сервер находятся в разных сетях(ip у сервера выделенный)?

[mss]

Абсолютно неважно.

[Anton911]

В опциях сокета нужно что-нибудь указывать в Service или оставить его пустым?

И еще:
ip клиента:10.3.6.***
ip сервера: 85.28.202.***
Пробовал пинговать, пинг проходит, 2мс. Коннектюсь к серверу, вроде приконнектился(так пишет в клиентском приложении), вроде данные отсылаются(проверял через фаервол, фаервол не блокирует), но ответ не приходит, и на серверном приложении молчек. В чем может быть проблема? Админы меня заверили что фаервол не блокирует и порт открыт.

[mss]

нужно что-нибудь указывать в Service или оставить его пустым?

Если св-во Port назначено, то не нужно.

В чем может быть проблема?

В ошибках в твоих программах. В 17-й строке.