[Jcl-checkins-diff] SF.net SVN: jcl: [1861] trunk/jcl/source/common/JclSysInfo.pas

[<ou...@us...>]

Revision: 1861
          http://svn.sourceforge.net/jcl/?rev=1861&view=rev
Author:   outchy
Date:     2006-12-30 09:28:35 -0800 (Sat, 30 Dec 2006)

Log Message:
-----------
Fixed warning
TODO: framework version detection

Modified Paths:
--------------
    trunk/jcl/source/common/JclSysInfo.pas

Modified: trunk/jcl/source/common/JclSysInfo.pas
===================================================================
--- trunk/jcl/source/common/JclSysInfo.pas	2006-12-30 13:53:48 UTC (rev 1860)
+++ trunk/jcl/source/common/JclSysInfo.pas	2006-12-30 17:28:35 UTC (rev 1861)
@@ -2075,7 +2075,14 @@
 var
   Host: IPHostEntry;
 begin
+  // TODO: CLR detection:
+  //   Resolve was deprecated in Framework 2.0
+  //   GetHostEntry was introduced in Framework 2.0
+  {$IFDEF BDS5_UP}
+  Host := System.Net.Dns.GetHostEntry(HostName);
+  {$ELSE ~BDS5_UP}
   Host := System.Net.Dns.Resolve(HostName);
+  {$ENDIF ~BDS5_UP}
   if (Host <> nil) and (Length(Host.AddressList) > 0) then
     Result := Host.AddressList[0].ToString()
   else


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.