1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

  TUdpSockUtil = class(TComponent)
  private
  [...]

    FRemoteHost: AnsiString; // dahin senden
    FRemoteAddr: in_addr; // nochmal als IP-Adresse
    FRemotePort: Word; // an diesen Port senden
    FForceResolve: boolean;  //Namensauflösung erzwingen - OST, 28.02.2016
  [...]
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  [...]
    property RemoteAddr: in_addr read GetRemoteAddr write SetRemoteAddr;
    property RecvFlags: Integer read FRecvFlags write FRecvFlags;
    property SendFlags: Integer read FSendFlags write FSendFlags;
    property ForceResolve: boolean read FForceResolve write FForceResolve;  //Resolve erzwingen - OST, 28.02.2016
  [...]
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

constructor TUdpSockUtil.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Startup;
  [...]
  FRemotePort := 0;
  FCloseInactiveSockets := FALSE;
  FForceResolve:=false;  //Erzwungenes Hostname-Resolving default abgeschaltet - OST, 28.02.2016
  [...]
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

procedure TUdpSockUtil.SetRemoteHost(const Value: AnsiString);
var
   IP: in_addr;
   HostInfo: PHostEnt;
   ErrorCode: Integer;
begin
     //Bei not ForceResolve können wir bei unverändertem Hostnamen gleich raus - OST, 28.02.2016
     if (not FForceResolve) then
        if (FRemoteHost = Value) then
           exit;

     IP.S_addr := inet_addr(PAnsiChar(Value)); // falls der String bereits eine Adresse im IPdotdot-Format ist
     if (IP.S_addr <> Integer(INADDR_NONE)) or (Value = '255.255.255.255') then // sind wir schon fertig, übernehmen
     begin
          if (CheckAddr(IP)) then
          begin
               FRemoteHost := Value;
               FRemoteAddr := IP;
          end;
     end
     else
     begin
          if (Value <> '') then // wurde ein Host angegeben (Leerstring = localhost)
             HostInfo := WinSock.GetHostByName(PAnsiChar(Value)) // Name auflösen
          else
             HostInfo := WinSock.GetHostByName(NIL); // -> localhost abfragen
          if Assigned(HostInfo) then  // Auflösung OK?
          begin
               IP := PInAddr(HostInfo^.h_addr_list^)^;
               if (CheckAddr(IP)) then
               begin
                    FRemoteHost := Value;
                    FRemoteAddr := IP;
               end;
          end
          else
          begin
               ErrorCode := WSAGetLastError;
               if Assigned(FOnResolveError) then
                  FOnResolveError(Self, ErrorCode)
               else
                  raise EUSUError.CreateResFmt(PResStringRec(@sWindowsSocketError),
                                              [SysErrorMessage(ErrorCode), ErrorCode, 'GetHostByName']);
          end;
     end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function TUdpSockUtil.SendBuf(var Buf; BufSize: Integer): Integer;
begin
  FSocketLock.Enter;
  try
    //ggf. Host neu auflösen, wenn wir gezwungen sind - OST, 28.02.2016
    if (FForceResolve) then
       RemoteHost:=FRemoteHost;
    CreateBinding(FMainSocket, FLocalPort, FBroadcast);
    Result := InternalSendBuf(FMainSocket, Buf, BufSize, FSendFlags);
  finally
    CleanupSocket(FMainSocket);
    FSocketLock.Leave;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:

function TUdpSockUtil.SendText(const S: AnsiString): Integer;
begin
    //ggf. Host neu auflösen, wenn wir gezwungen sind - OST, 28.02.2016
    if (FForceResolve) then
       RemoteHost:=FRemoteHost;
  Result := InternalSendText(FMainSocket, FLocalPort, FBroadcast, S);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

For SNet:= 0 To 255 Do
Begin
  For IP:= 1 To 254 Do
  Begin
    UDPSocket.RemoteHost:= '192.168.' + IntToStr(SNet) + ' .' + IntToStr(IP);
    UDPSocket.SendText(SendText);
  End;
End;
Application.ProcessMessages;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

Procedure TMainForm.UDPSocketReceive(Sender: TObject);
Var
  Data        : TStringList;
  vonIP        : in_addr;
  Current      : TCmdToken;              // empfangenes Kommando
  I          : Integer;
  S          : String;
Begin
  Data:= TStringList.Create;
  Try
    Data.Text:= String(UDPSocket.ReceiveText(vonIP));// Daten auslesen
    If (Data.Count > 1) Then              // mind. 2 Datenpakete
    Begin
      If (Data.Strings[0] = APP_ID) Then      // von unserem Client
      Begin
        Current:= GetCmdToken(Data.Strings[1]);
        If (Data.Count >= Succ(Syntax[Current].ArgCount)) Then
          Execute(Current, Data, vonIP);    // gültigen Befehl abarbeiten
      End;
    End
    Else
    Begin
      S:= '';
      For I:= 1 To Length(Data.Text) Do S:= S + IntToHex(Byte(Data.Text[I]), 2) + ' ';
      Loggen('', 'FREMDES PAKET: ' + Trim(S));
    End;
  Finally
    Data.Free;
  End;
End;					

1:
2:

UDPSocket.RemoteHost:= '192.168.255.35';
UDPSocket.SendText:= 'Blablablubb';