|
|
От: | Makep | |
| Дата: | 27.02.05 02:02 | ||
| Оценка: | |||
procedure TfrmMain.btnStartClick(Sender: TObject);
var So:boolean;
begin
UDPServer.DefaultPort := StrToInt(edtSPort.Text);
So := true;
UDPServer.Binding.SetSockOpt(SOL_SOCKET, SO_REUSEADDR, PChar(@So), SizeOf(So));
UDPServer.Active := true;
end;