перелопатил интернет, но не смог найти рабочую 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 мне пишет:
ПОМОГИТЕ ЧЕМ СМОЖЕТЕ!!!