[FAYSTER]

Получаю пакет с помощью

Код:

//===================================
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  DataStringStream: TStringStream;
  s: STRING;
  i:integer;
begin
DataStringStream:=TStringStream.Create('');
    try
       DataStringStream.CopyFrom(AData, AData.Size);
        for i:=0 to Adata.Size do
          begin
              s:=DataStringStream.DataString;
              Memo1.Lines.Add(s[i]);
          end;
    finally
      DataStringStream.Free;
    end;
        StatusBar1.Panels.Items[0].Text:='Отправитель IP: ' + ABinding.PeerIP;
        StatusBar1.Panels.Items[1].Text:='Получатель IP: ' + ABinding.IP;
        Memo1.Lines.SaveToFile('d.log');
end;
//===============================================

lmikle: ползуемся тегами!!!