IdUDPServer indy 10

[Lime]

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

Я вообще так делал и проблем не было

procedure TChatForm.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes;
  ABinding: TIdSocketHandle);
  var i:integer;
      RxText:String;
begin
 RxText:='';
 for i:= 0 to High(Adata) do RxText:=RxText+chr(Adata[i]);

end;

Попробовал так как Вы посоветовали , та - же проблема. - приведу упрощённо как у меня сейчас :

procedure TForm2.BitBtn1Click(Sender: TObject);
var msgtext:string;
begin
msgtext := (memomsg.text);
udps1.Send(sb1.Panels[1].Text,6677, msgtext,nil);
udpc1.Send(sb1.Panels[1].Text,6677, msgtext,nil);
udps1.SendBuffer(sb1.Panels[1].Text,6677,id_IPv4,tobytes(msgtext));
end;



procedure TForm2.UDPS1UDPRead(AThread: TIdUDPListenerThread; AData: TBytes;
  ABinding: TIdSocketHandle);
var
StringFormatedStream:TStringStream;
s: String;
i:integer;
str:tstream;
ll:tstringlist;
RxText:String;
begin
 RxText:='';
 for i:= 0 to High(Adata) do RxText:=RxText+chr(Adata[i]);

ll:= Tstringlist.Create;//советовали сохранить то что я получил и попробовать подобрать кодировку ... 
ll.Add(ABinding.PeerIP+': '+Rxtext);
ll.SaveToFile('C:\texxxx.txt');//собственно и сохранил ..


richedit1.Lines.Add(ABinding.PeerIP+': '+Rxtext);

//(BytesToString(adata));//Советовали в других источниках ...
end;

Ощущение что у меня Indy корявая ...

А всеголиш хотел сделать простенький P2P клиентсервер ... для локалки/однопровайдерного интернета ...

[raxp]

а без Indy никак?

...давно тут уже говорю что корявая она

[Lime]

бред какойто .. даже Client/ServerSocket хрень получают .. видимо дело в кодировках ...

[S_Yevgeniy]

Уважаемый Квэнди спасибо что пнули в нужном направление. Спасибо rangel подняли тему
Отправка пакета.

IdUDPClient1.Broadcast(Bytes,NPort);

Получение покатов.

procedure IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;  AData: TBytes; ABinding: TIdSocketHandle);

var S : String;

begin
ShowMessage('Есть связь');

if ABinding.PeerIP=lip then  exit;

  S:=BytesToString( AData , TEncoding.UTF8 );

ShowMessage(S);


end;

Все работает (DELPHI XE), может кому будет полезно. С уважением Евгений.

Большое спасибо Stilet_у что подсказал о широковещание.