Changeset 3 for trunk/UNetwork.pas

Timestamp:

Sep 16, 2016, 10:49:27 PM (8 years ago)

Author:

chronos

Message:

• Modified: Network address in each network interface should be full address not just single integer. Yet need to specify network subnets for routing.

File:

• trunk/UNetwork.pas (modified) (15 diffs)

trunk/UNetwork.pas

@@ -19 +19 @@
     class operator Equal(A, B: TNetworkAddress): Boolean;
     function GetString: string;
+    procedure Clear;
   end;
 
@@ -44 +45 @@
   public
     Node: TNetworkNode;
-    Address: Integer;
+    Address: TNetworkAddress;
     Network: Integer;
     procedure Connect(Remote: TNetworkInterface);
@@ -50 +51 @@
     procedure SendPacket(Packet: TNetworkPacket);
     constructor Create;
+    destructor Destroy; override;
     property Remote: TNetworkInterface read FRemote
       write SetRemote;
@@ -112 +114 @@
 function NetworkAddress(AParts: array of Integer): TNetworkAddress;
 
+
 implementation
 
@@ -121 +124 @@
   for I := 0 to High(Result.Parts) do
     Result.Parts[I] := AParts[I];
-  Result.Context := 0;
 end;
 
@@ -142 +144 @@
   Result := '';
   for I := 0 to Length(Parts) - 1 do begin
-    if I = Context then Result := Result + ';'
-    else if I > 0 then Result := Result + '.';
+    if I > 0 then Result := Result + '.';
     Result := Result + IntToStr(Parts[I]);
   end;
+end;
+
+procedure TNetworkAddress.Clear;
+begin
+  SetLength(Parts, 0);
 end;
 
@@ -155 +161 @@
   I: Integer;
 begin
-  if Packet.Destination = NetworkAddress([Sender.Address]) then
+  if Packet.Destination = Sender.Address then
     DoLog(Self, 'Received ' + Packet.Data + ' from ' + Packet.Source.GetString)
   else begin
     if Length(Packet.Destination.Parts) > Packet.Destination.Context then
     for I := 0 to Interfaces.Count - 1 do
-    with TNetworkInterface(Interfaces[I]) do begin
+    with Interfaces[I] do begin
       if Network = Packet.Destination.Parts[Packet.Destination.Context + 1] then begin
         //Inc
@@ -177 +183 @@
 begin
   for I := 0 to Interfaces.Count - 1 do
-    if TNetworkInterface(Interfaces[I]) <> Sender then
-      TNetworkInterface(Interfaces[I]).SendPacket(Packet);
+    if Interfaces[I] <> Sender then
+      Interfaces[I].SendPacket(Packet);
 end;
 
@@ -263 +269 @@
   R = 30;
 begin
-  Canvas.Pen.Color := clBlack;
+  Canvas.Pen.Color := clRed;
   Canvas.Pen.Style := psSolid;
 
@@ -277 +283 @@
     for J := 0 to Interfaces.Count - 1 do
     if Assigned(Interfaces[J]) then begin
-      if Assigned(TNetworkInterface(Interfaces[J]).Remote) then begin
-        RemoteInterface := TNetworkInterface(Interfaces[J]).Remote;
+      if Assigned(Interfaces[J].Remote) then begin
+        RemoteInterface := Interfaces[J].Remote;
         RemoteNode := RemoteInterface.Node;
         RemoteInterfaceIndex := RemoteNode.Interfaces.IndexOf(RemoteInterface);
         Canvas.Line(Position.X + J * R - R * Interfaces.Count div 2 + R div 2, Position.Y,
-          RemoteInterface.Node.Position.X + RemoteInterfaceIndex * R - R * RemoteNode.Interfaces.Count div 2 + R div 2, RemoteNode.Position.Y);
+          RemoteInterface.Node.Position.X + RemoteInterfaceIndex * R - R *
+          RemoteNode.Interfaces.Count div 2 + R div 2, RemoteNode.Position.Y);
       end;
     end;
@@ -290 +297 @@
     for J := 0 to Interfaces.Count - 1 do
     if Assigned(Interfaces[J]) then begin
-      if TNetworkInterface(Interfaces[J]).Address > 0 then
-      Canvas.TextOut(Position.X + J * R - R * Interfaces.Count div 2 + R div 2 - Canvas.TextWidth(IntToStr(TNetworkInterface(Interfaces[J]).Address)) div 2,
-        Position.Y - Canvas.TextHeight(IntToStr(TNetworkInterface(Interfaces[J]).Address)) div 2,
-        IntToStr(TNetworkInterface(Interfaces[J]).Address));
-      if TNetworkInterface(Interfaces[J]).Network > 0 then
-      Canvas.TextOut(Position.X + J * R - R * Interfaces.Count div 2 + R div 2 - Canvas.TextWidth(IntToStr(TNetworkInterface(Interfaces[J]).Network)) div 2,
-        Position.Y - R - Canvas.TextHeight(IntToStr(TNetworkInterface(Interfaces[J]).Network)) div 2,
-        IntToStr(TNetworkInterface(Interfaces[J]).Network));
+      //if Interfaces[J].Address > 0 then
+      Canvas.TextOut(Position.X + J * R - R * Interfaces.Count div 2 + R div 2 - Canvas.TextWidth(Interfaces[J].Address.GetString) div 2,
+        Position.Y - Canvas.TextHeight(Interfaces[J].Address.GetString) div 2,
+        Interfaces[J].Address.GetString);
+      //if Interfaces[J].Network > 0 then
+      Canvas.TextOut(Position.X + J * R - R * Interfaces.Count div 2 + R div 2 - Canvas.TextWidth(IntToStr(Interfaces[J].Network)) div 2,
+        Position.Y - R - Canvas.TextHeight(IntToStr(Interfaces[J].Network)) div 2,
+        IntToStr(Interfaces[J].Network));
     end;
   end;
@@ -312 +319 @@
   Packet: TNetworkPacket);
 begin
-  if Packet.Destination = NetworkAddress([Sender.Address]) then
+  if Packet.Destination = Sender.Address then
     DoLog(Self, 'Received ' + Packet.Data + ' from ' + Packet.Source.GetString);
 end;
@@ -328 +335 @@
   UseInterface := TNetworkInterface(Interfaces[0]);
   NewPacket := TNetworkPacket.Create;
-  NewPacket.Source := NetworkAddress(UseInterface.Address);
+  NewPacket.Source := UseInterface.Address;
   NewPacket.Destination := Address;
   NewPacket.Data := 'ping';
@@ -340 +347 @@
   Result := TNetworkInterface.Create;
   Result.Node := Self;
-  Result.Address := 0;
+  Result.Address.Clear;
   Result.OnReceivePacket := ReceivePacket;
   Interfaces.Add(Result);
@@ -401 +408 @@
 begin
   FRemote := nil;
-  Address := 0;
+  Address.Clear;
+end;
+
+destructor TNetworkInterface.Destroy;
+begin
+  inherited Destroy;
 end;