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:
47:
48:
49:
50:
51:
52:
53:
54:
55:

// Inhalt des Streams wird ein den array of byte gepackt und gesendet.
procedure TGLSN_Engine.UDPBroadcastStream(S: TMemoryStream);
var
  b: array of byte;
begin
  setlength(b, s.Size);
  s.Read(b, s.Size);
  UdpSockUtil.SendBuf(b, sizeof(b));
end;

// UDP empfangen
procedure TGLSN_Engine.UdpSockUtilReceive(Sender: TObject);
var
  Len: Integer;
  vonIP: in_addr;
  b: array of byte;
  s: TMemoryStream;
  C: Integer;
begin
  Len := UdpSockUtil.ReceiveLength;
  if (Len >= 4) then begin
    //if inet_ntoa(vonIP)<>IP.LocalIP then
    begin
      setlength(b, len);
      UdpSockUtil.ReceiveBuf(b, sizeof(b), vonIP);
      try
        s:= TMemoryStream.Create;
        s.Write(b, sizeof(b));
        s.Read(c, sizeof(c));
        // c ist hier 0 muss aber 1 sein
      finally
        s.Destroy;
      end;
    end;
  end;
end;

// etwas senden
procedure TGLSN_Engine.StartServer;
var
  s: TMemoryStream;
  i: integer;
begin
  // Server anschalten
  Server.Open;
  // Alle sagen wir haben einen Server
  try
    s:= TMemoryStream.Create;
    i:= 1;
    s.Write(i, SizeOf(Integer) );
    UDPBroadcastStream(s);
  finally
    s.Destroy;
  end;
end;					

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

procedure TGLSN_Engine.UDPBroadcastStream(S: TMemoryStream);  
var  
  b: array of byte;  
  BytesSent: Integer;
begin  
  setlength(b, s.Size);  
  s.Read(b, s.Size);  
  BytesSent := UdpSockUtil.SendBuf(b, sizeof(b));
  ShowMessage(IntToStr(BytesSent));
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:
47:
48:
49:
50:
51:
52:
53:

// Inhalt des Streams wird ein den array of byte gepackt und gesendet.
procedure TGLSN_Engine.UDPBroadcastStream(S: TMemoryStream);
var
  b: array of byte;
  BytesSent: Integer;
begin
  setlength(b, s.Size);
  s.Position:=0;
  s.Read(b[0], s.Size);
  BytesSent:=UdpSockUtil.SendBuf(b[0], sizeof(b));
  if Loging then begin
    if BytesSent=0 then begin
      LogMsg('UDP Error: 0 Byte gesendet.');
    end;
    if BytesSent>512 then begin
      LogMsg('UDP Warnung: Paketgröße von 512 Bytes überschriten.');
    end;
  end;
end;

// UDP empfangen
procedure TGLSN_Engine.UdpSockUtilReceive(Sender: TObject);
var
  Len: Integer;
  vonIP: in_addr;
  b: array of byte;
  s: TMemoryStream;
  C: Integer;
begin
  Len := UdpSockUtil.ReceiveLength;
  if (Len >= 4) then begin
    //if inet_ntoa(vonIP)<>IP.LocalIP then
    begin
      setlength(b, len);
      UdpSockUtil.ReceiveBuf(b[0], sizeof(b), vonIP);
      try
        s:= TMemoryStream.Create;
        s.Write(b[0], sizeof(b));
        s.Position:=0;
        s.Read(c, sizeof(c));
        case C of
          GLSN_StartServer{1}:begin
            IPList.addip(inet_ntoa(vonIP));
          end;
        else
          // C is kein GLSN Commmand
        end;
      finally
        s.Destroy;
      end;
    end;
  end;
end;					

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

procedure TForm1.Button1Click(Sender: TObject);
  var
    StrStream: TStringStream;
    IntVar: Integer;
    DoubleVar: Double;
begin
  StrStream := TStringStream.Create(''); // Objekt erzeugen
  IntVar := $4711; // Integer vorbelegen
  StrStream.Write(IntVar,SizeOf(IntVar)); // schreiben
  DoubleVar := 1.41421; // Double vorbelegen
  StrStream.Write(DoubleVar,SizeOf(DoubleVar)); // schreiben
  StrStream.WriteString('Test'); // String anfügen
  // Daten senden und prüfen, ob alles gesendet wurde
  if (UdpSockUtil1.SendText(StrStream.DataString) <> StrStream.Size) then
    ShowMessage('Fehler beim Senden!');
  StrStream.Free; // Stream wieder freigeben
end;					

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

procedure TForm1.UdpSockUtil1Receive(Sender: TObject);
  var
    StrStream: TStringStream;
    vonIP: in_addr;
    IntVar: Integer;
begin
  // Daten vom Socket lesen, per StringStream in einen Stream verwandeln
  StrStream := TStringStream.Create(UdpSockUtil1.ReceiveText(vonIP));
  StrStream.Position := 0; // von Vorne lesen
  if (StrStream.Size >= 4) then begin // genug Daten da?
    StrStream.Write(IntVar,SizeOf(IntVar)); // Integer lesen
    case IntVar of // Fallunterscheidung...
      $4711:
        ShowMessage('Echt komisches Wasser!');
      else
        ShowMessage('Keine Ahnung!?');
    end;
  end
  else
    ShowMessage('Zu wenig Daten gelesen!');
  StrStream.Free; // Objekt freigeben
end;