Changeset 3 for trunk/UNetworkTest.pas

Timestamp:

Nov 27, 2008, 12:16:27 PM (15 years ago)

Author:

george

Message:

• Upraveno: Verze 1.2.

File:

• trunk/UNetworkTest.pas (modified) (2 diffs)

trunk/UNetworkTest.pas

@@ -69 +69 @@
 
 procedure TNetworkTest.FormCreate(Sender: TObject);
-
 var
   Soubor: TextFile;
   Row: string;
+  Hostname: string;
+  LocalIp: string;
+  WSAErr: string;
 
 function Parse: string;
@@ -90 +92 @@
 
 begin
+  PingList := TPingList.Create(True);
+  ChDir(ExtractFileDir(Application.ExeName));
+
+  HostName := 'default';
+  GetIPFromHost(Hostname, LocalIp, WSAErr);
+  if LocalIp <> '127.0.0.1' then
+  // Update list from internet
+  if (Trunc(Now) <> Trunc(MainForm.NetworkTestLastUpdate)) or
+  (not FileExists(NetworkListFilename)) then try
+     Row := IdHTTP1.Get(NetworkListURL);
+     AssignFile(Soubor, NetworkListFilename);
+     Rewrite(Soubor);
+     Write(Soubor, Row);
+     CloseFile(Soubor);
+   finally
+   end;
+
+  // Load from file
   try
-    PingList := TPingList.Create(True);
-    ChDir(ExtractFileDir(Application.ExeName));
-
-    // Update list from internet
-    if (Trunc(Now) <> Trunc(MainForm.NetworkTestLastUpdate)) or
-    (not FileExists(NetworkListFilename)) then try
-       Row := IdHTTP1.Get(NetworkListURL);
-       AssignFile(Soubor, NetworkListFilename);
-       Rewrite(Soubor);
-       Write(Soubor, Row);
-     finally
-       CloseFile(Soubor);
-     end;
-
-    // Load from file
     AssignFile(Soubor, NetworkListFilename);
     Reset(Soubor);