Сервер клиент. Определить ип и отослать серверу

[Pein95]

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var smessage: string;
  begin
  smessage:=socket.ReceiveText;
 if copy(smessage,1,3)='#IP' then
 begin
  delete(smessage,1,3);
 end;
 edit2.Text:=smessage;

end;

здесь сервер читает какой текст ему пришол

ip:=idhttp1.get('http://www.myip.ru/get_ip.php?loc=');

  P := Pos('<TABLE',ip);
  P := PosEx('<TABLE',ip,P+1);
  P := PosEx('<TABLE',ip,P+1);
  P := PosEx('<TD',ip,P+1);
  P := PosEx('<TD',ip,P+1);
  P := PosEx('>',ip,P+1);
  Delete(ip,1,P);
  ip := Copy(ip,1,Pos('<',ip)-1);
 result:=ip;
 clientsocket1.socket.sendtext('#IP'+result);

здесь опредиляетса ип и отсылаетса серверу
ошыбок никаких не возникает но ип почемуто не приходит.
кто может сказать в чем здесь проблема.

[Stilet]

А зачем передавать IP? Насколько я понимаю сервер при получении сообщения знает IP отсылателя. Зачем его еще вписывать в сообщение?

[veniside]

То, что IP можно взять прямо из свойств сокета, думаю понятно.

А ошибка может быть в том, что клиент просто не связывается с сервером. SendText() что возвращает?

[Stilet]

Индусы отдыхают.

Да, тут не поспоришь...

На сколько я не знаю Инди, там вроде как при выходе из ServerSocket1ClientRead()

А Инди с этим обработчиком не связано.

[veniside]

Точно, я поспешил. Подправил свой пост. Скорей всего клиент вобще ничего серверу не отсылает.

[Pein95]

проллема в том что если делать отдельное приложение клиент сервер то здесь всё работает, а у меня в одной проге есть и клиент и сервер и в другой тоже но они работают под разными портами поетому я не могу понять где здесь ошибка

[veniside]

Просто ответь на 2 вопроса:

1) Зачем передавать IP, если сервер и так его знает из свойства socket.remotehost?
2) Что возвращает SendText()

[Stilet]

Подправил свой пост.

Ну я править свой уже не буду )

а у меня в одной проге есть и клиент и сервер и в другой тоже но они работают под разными портами поетому я не могу понять где здесь ошибка

Ну тут пожалуй нужно конкретно смотреть прогу. Или пошаговку устраивать, смотреть куда чего отсылается.

[Pein95]

всем спс) кто загленул в ету тему проблема решена банальная ошыбка не в том событии отсылал)
но нужно ещо немного подкоректировать прогу допустим когда сервер не создан и клиент хочет подключитса чтоб не вылетала ошыбка о том что не возможно подключитса, как ето можно реализировать?