Можно не большой примерчик по работе с UDP Socket? Из TCP попробовал сделать так:
| Код | procedure TForm1.Button1Click(Sender: TObject);
begin
UDP.RemotePort:='666';
UDP.RemoteHost:='10.8.106.2';
UDP.Sendln('Fuck');
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
UDP2.LocalPort:='666';
UDP2.Open;
end;
procedure TForm1.UDP2Receive(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
var
Msg:string;
begin
Msg:=UDP2.Receiveln;
Edit1.Text:=Msg;
end; |
Но чё то не работает.. Даже функция UDP2Receive не выполняется..  |