* add method to tell if a string is a biniplist

[lcore.git] / lcoretest.dpr

diff --git a/lcoretest.dpr b/lcoretest.dpr
index f6fe72b31140b96426153d79d04286f55d9f5e9f..9c4ec7c8a34a69bac28dde4a43bc7610e9c8c215 100755 (executable)
--- a/lcoretest.dpr
+++ b/lcoretest.dpr
@@ -115,9 +115,15 @@ begin
 end;\r
 \r
 procedure tsc.dnsrequestdone(sender:tobject;error : word);\r
 end;\r
 \r
 procedure tsc.dnsrequestdone(sender:tobject;error : word);\r

+var\r
+  tempbinip : tbinip;\r
+  tempbiniplist : tbiniplist;\r

 begin\r
   writeln('irc.ipv6.p10link.net resolved to '+das.dnsresult+' connecting client socket there');\r
 begin\r
   writeln('irc.ipv6.p10link.net resolved to '+das.dnsresult+' connecting client socket there');\r

-  clientsocket.addr := das.dnsresult;\r
+  das.dnsresultbin(tempbinip);\r
+  tempbiniplist := biniplist_new;\r
+  biniplist_add(tempbiniplist,tempbinip);\r
+  clientsocket.addr := tempbiniplist;\r

   clientsocket.port := '6667';\r
   clientsocket.connect;\r
   writeln(clientsocket.getxaddr);\r
   clientsocket.port := '6667';\r
   clientsocket.connect;\r
   writeln(clientsocket.getxaddr);\r