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:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:

unit Client;
{**************************************************************************************************}
interface
{**************************************************************************************************}
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UdpSockUtil, ExtCtrls;
{**************************************************************************************************}
type
  TfrmClient = class(TForm)
    Timer1: TTimer;
    UdpSockUtil1: TUdpSockUtil;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure UdpSockUtil1Receive(Sender: TObject);
    procedure UdpSockUtil1Error(Sender: TObject; Error: Integer);
  private
    bLaberSuelz: Boolean;
  public
  end;
{**************************************************************************************************}
var
  frmClient: TfrmClient;
{**************************************************************************************************}
implementation
{$R *.dfm}
{**************************************************************************************************}
uses
  WinSock;
{**************************************************************************************************}
procedure TfrmClient.FormCreate(Sender: TObject);
begin
  bLaberSuelz := false;
  UDPSockUtil1.LocalPort  := 12346;
  UDPSockUtil1.RemotePort := 12345;
  UDPSockUtil1.RemoteHost := '192.168.100.100';
  UDPSockUtil1.CloseInactiveSockets := true;
  UDPSockUtil1.Open();
  Timer1.Enabled := true;
end;
{**************************************************************************************************}
procedure TfrmClient.Timer1Timer(Sender: TObject);
var
  st: String;
begin
  if bLaberSuelz then st := 'Laber' else st := 'Sülz';
  bLaberSuelz := Not bLaberSuelz;
  UDPSockUtil1.SendText(st);
end;
{**************************************************************************************************}
procedure TfrmClient.UdpSockUtil1Error(Sender: TObject; Error: Integer);
begin
  // ShutUp exceptions
end;
{**************************************************************************************************}
procedure TfrmClient.UdpSockUtil1Receive(Sender: TObject);
var
  FromAddr: in_Addr;
  stCmd: String;
  Anzahl: Integer;
begin
  try
    Anzahl := UDPSockUtil1.ReceiveLength();
    if Anzahl > 0 then
    begin
      stCmd := UDPSockUtil1.ReceiveText(FromAddr);

      if stCmd = 'Hier spricht Dein Meister' then
        UDPSockUtil1.SendText('Ja, Chef...');
    end;

  except
    Windows.Beep(1000, 10);
  end;
end;
{**************************************************************************************************}
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:

//original
function TUdpSockUtil.ReceiveText(var RemoteAddr: in_addr): String;
begin
  SetLength(Result,ReceiveLength);
  SetLength(Result,ReceiveBuf(Pointer(Result)^,Length(Result),RemoteAddr));
end;


//neu
function TUdpSockUtil.ReceiveText(var RemoteAddr: in_addr): String;
begin
  SetLength(Result,ReceiveLength);

  if Result<>#0 then //nur wenn was drin ist
  SetLength(Result,ReceiveBuf(Pointer(Result)^,Length(Result),RemoteAddr))
  else //ansonsten Fehlermeldung

        if Assigned(FOnError) then
        FOnError(Self,WSAECONNRESET)
        //FOnError(Self,10054) // mit diesem Fehler melden
      else
        raise EUSUError.CreateFmt('Zielhost nicht erreichbar!',[]);

end;					

1:

UDPSockUtil1.RemoteHost := '192.168.100.100';					

1:
2:

server:= UdpUtil1.RemoteAddress;
listbox.items.append(server);					

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:

42c42
<     FRemoteHost: String; // dahin senden
---
>     FRemoteHost: AnsiString; // dahin senden
60c60
<     procedure SetRemoteHost(const Value: String);
---
>     procedure SetRemoteHost(const Value: AnsiString);
90c90
<     property RemoteHost: String read FRemoteHost write SetRemoteHost;
---
>     property RemoteHost: AnsiString read FRemoteHost write SetRemoteHost;
226c226
<   FRemoteAddr.S_addr := INADDR_BROADCAST;
---
>   FRemoteAddr.S_addr := Integer(INADDR_BROADCAST);
369c369
<     FRemoteAddr.S_addr := INADDR_BROADCAST;
---
>     FRemoteAddr.S_addr := Integer(INADDR_BROADCAST);
383c383
<   if (Value.S_addr = INADDR_BROADCAST) then
---
>   if (Value.S_addr = Integer(INADDR_BROADCAST)) then
392c392
< procedure TUdpSockUtil.SetRemoteHost(const Value: String);
---
> procedure TUdpSockUtil.SetRemoteHost(const Value: AnsiString);
401,402c401,402
<       FRemoteAddr.S_addr := inet_addr(PChar(Value)); // IPdotdot?
<       if (FRemoteAddr.S_addr = INADDR_NONE) then begin // nein, DNSresolve
---
>       FRemoteAddr.S_addr := inet_addr(PAnsiChar(AnsiString((Value)))); // IPdotdot?
>       if (FRemoteAddr.S_addr = Integer(INADDR_NONE)) then begin // nein, DNSresolve
491c491
<         ToAddr.sin_addr.S_addr := INADDR_BROADCAST
---
>         ToAddr.sin_addr.S_addr := Integer(INADDR_BROADCAST)