[guranvir]

Delphi 2010
используется:
1)idUDPClient
2)idUDPServer
Свойства:
Active:=true
Host:='89.209.234.36'
Port:=11247
Это свойства Client&Server
Вот код посылки:

Код:

idUDPClient1.Host:='89.209.234.36';
s:=nameofme+#8+Memo2.Text;
IdUDPClient1.Send(s);

Код приема данных:

Код:

procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
  AData: TBytes; ABinding: TIdSocketHandle);
  var
  s:string;
begin
 s:=pchar(Adata);
 Memo1.Lines.Add(s);
end;

До UDPServer данные не доходят
Может ли этому быть причиной внешние IP адреса?

[lmikle]

Может.
Отладься сначала на локальной машине (localhost), а потом уже смотри где тебя не пускают на внешний IP.

[GlobalError]

Данные проходят, только сервер их не ловит. Если обратишь внимание на процедуру:
procedure TForm1.IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
AData: TBytes; ABinding: TIdSocketHandle);

Данные хранятся в классе TBytes.
Попробуй так:

Код:

IdUDPServer
var
stroka: TStringSteam;
begin
stroka:=TStringSteam.Create('');
stroka.CopyFrom(AData,AData.size);
Memo1.Lines.Add(stroka.dataString);
stroka.free;

Admin: Пользуемся тегами!

Так попробуй!
Еще у обоих компонентов сделай свойство BROADCASTENABLED=TRUE.

[guranvir]

Спасибо все уже решил с этой проблемой))Оказывается все работает, есть там некоторые проблемы конечно. Просто провайдер не дает ко мне прямые входящие соединения устанавливать,с чем это связано трудно сказать.Прокси не используется. Просто именно ко мне не было возможности послать сообщения. Если интересно то потом выложу полностью готовый релиз.

[guranvir]

А вобще там даже проще чем Вы говорите BytestoString функа

[GlobalError]

Ну если интересно мнение о программе, то выложи. А вообще, кому как удобнее, в любом случае правильно.
Просто на будущее, если захочешь передавать не текст, а картинку, то прога выведет, либо ошибку, либо абру-катабру. В моем случае, можно из текстового потока выловить картинку, соответственно если поменять тип. Ну а впрочем, если изображения передавать не надо, то так тому и быть!