source: trunk/Forms/UFormMain.pas

unit UFormMain;

{$mode delphi}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  StdCtrls, UNetwork;

type

  { TFormMain }

  TFormMain = class(TForm)
    Memo1: TMemo;
    PaintBox1: TPaintBox;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure PaintBox1Click(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
  private
    procedure Log(Sender: TNetworkNode; Data: string);
  public
    Network: TNetwork;
  end;

var
  FormMain: TFormMain;

implementation

{$R *.lfm}

{ TFormMain }

procedure TFormMain.FormCreate(Sender: TObject);
begin
  Network := TNetwork.Create;
end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
  Network.Free;
end;

procedure TFormMain.FormShow(Sender: TObject);
var
  NodeFranta: TNetworkHost;
  NodeGeorge: TNetworkHost;
  NodeHonza: TNetworkHost;
  NodeJakub: TNetworkHost;
  NodeMonika: TNetworkHost;
  NodeRouter: TNetworkRouter;
  NodeSwitch: TNetworkSwitch;
  NodeSwitch2: TNetworkSwitch;
begin
  with Network do begin
    NodeRouter := AddRouter('router', Point(400, 300), 2, Log);
    NodeRouter.Interfaces[0].Address := NetworkAddress([1]);
    NodeRouter.Interfaces[0].Network := 3;
    NodeRouter.Interfaces[1].Address := NetworkAddress([8]);;
    NodeRouter.Interfaces[1].Network := 4;
    NodeSwitch := AddSwitch('switch', Point(200, 200), 4);
    NodeSwitch2 := AddSwitch('switch2', Point(700, 200), 4);
    NodeGeorge := AddHost('george', Point(100, 100), 1, Log);
    NodeGeorge.Interfaces[0].Address := NetworkAddress([2]);;
    NodeFranta := AddHost('franta', Point(200, 100), 1, Log);
    NodeFranta.Interfaces[0].Address := NetworkAddress([3]);;
    NodeHonza := AddHost('honza', Point(300, 100), 1, Log);
    NodeHonza.Interfaces[0].Address := NetworkAddress([4]);;
    NodeJakub := AddHost('jakub', Point(600, 100), 1, Log);
    NodeJakub.Interfaces[0].Address := NetworkAddress([2]);;
    NodeMonika := AddHost('monika', Point(700, 100), 1, Log);
    NodeMonika.Interfaces[0].Address := NetworkAddress([3]);;

    NodeFranta.Interfaces[0].Connect(NodeSwitch.Interfaces[1]);
    NodeGeorge.Interfaces[0].Connect(NodeSwitch.Interfaces[0]);
    NodeHonza.Interfaces[0].Connect(NodeSwitch.Interfaces[2]);

    NodeSwitch.Interfaces[3].Connect(NodeRouter.Interfaces[0]);
    NodeSwitch2.Interfaces[0].Connect(NodeRouter.Interfaces[1]);

    NodeJakub.Interfaces[0].Connect(NodeSwitch2.Interfaces[1]);
    NodeMonika.Interfaces[0].Connect(NodeSwitch2.Interfaces[2]);

    NodeGeorge.Ping(NetworkAddress([1, 4]));
  end;
end;

procedure TFormMain.PaintBox1Click(Sender: TObject);
begin

end;

procedure TFormMain.PaintBox1Paint(Sender: TObject);
begin
  Network.Paint(PaintBox1.Canvas);
end;

procedure TFormMain.Log(Sender: TNetworkNode; Data: string);
begin
  Memo1.Lines.Add(Sender.Name + ': ' + Data);
end;

end.