[Norfonzor]

перелопатил интернет, но не смог найти рабочую Indy. Не могу даже сделать элементарный пример работы по UDP:

на форме
IdUDPServer1
и
IdUDPClient1

от клиента:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Host := editHost.Text; (берет инфу с edit)
IdUDPClient1.Send(Edit1.Text);      (берет инфу с edit)
end;

на сервере идет прием по UDPRead

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  LMsg: string;
begin
  if AData.Size = 0 then
  begin
   Label4.Caption:=inttostr(random(2));
  end 
  else
  begin
    SetLength(LMsg, AData.Size);
    AData.ReadBuffer(LMsg[1], Length(LMsg));
    Label3.Caption:=LMsg;
  end;
end;

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

делаю это в делфи, выбираю на сервере onUDPRead мне пишет:


ПОМОГИТЕ ЧЕМ СМОЖЕТЕ!!!