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

struct InSimInit    // UDP packet to initialise the InSim system
{
  char  Id  [4];  // ISI + zero
  word  Port;    // Port for UDP replies from LFS (0...65535)
  byte  Flags;    // Bit flags for options - see below
  byte  NodeSecs;  // Number of seconds between NLP or MCI packets (0=none)
  char  Admin  [16];  // Admin password (required if set in LFS host options)
};                    

1:
2:
3:
4:
5:

const
  INSIM_INIT_ID = 'ISI'+#0;
  INSIM_FLAGS = #11;
  INSIM_NODESECS = #1;
  INSIM_ADMINPWD = 'xyz'+#0;                    

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

procedure TInSimCommunication.sendData (data : String);
begin
  udpClient.Host := '255.255.255.255';
  udpClient.Active := true;
  udpClient.BroadcastEnabled := true;
  udpClient.Send(data);
  udpClient.BroadcastEnabled := false;
end;

constructor TInSimCommunication.create (port : word);
// erzeugt ein neues Kommunikationsobjekt der Klasse und initialisiert die Werte
begin
  udpClient := TIdUDPClient.Create(nil);
  udpClient.Port := port;
  sendData(INSIM_INIT_ID+#0+#0+INSIM_FLAGS+INSIM_NODESECS+INSIM_ADMINPWD)
//  sendData(INSIM_INIT_ID+#0+#0+INSIM_FLAGS+INSIM_NODESECS+INSIM_ADMINPWD+#13) auch schon versucht
end.