X-Git-Url: http://www.lcore.org/git/lcore.git/blobdiff_plain/0e83198df591c5ed5d31f53c9bcdcd16ab26d4a6..495c276d681a5b3f79d4b2af2ed36e8e5d9e993d:/lcoretest.dpr?ds=sidebyside

diff --git a/lcoretest.dpr b/lcoretest.dpr
index f6fe72b..9c4ec7c 100755
--- a/lcoretest.dpr
+++ b/lcoretest.dpr
@@ -115,9 +115,15 @@ begin
 end;
 
 procedure tsc.dnsrequestdone(sender:tobject;error : word);
+var
+  tempbinip : tbinip;
+  tempbiniplist : tbiniplist;
 begin
   writeln('irc.ipv6.p10link.net resolved to '+das.dnsresult+' connecting client socket there');
-  clientsocket.addr := das.dnsresult;
+  das.dnsresultbin(tempbinip);
+  tempbiniplist := biniplist_new;
+  biniplist_add(tempbiniplist,tempbinip);
+  clientsocket.addr := tempbiniplist;
   clientsocket.port := '6667';
   clientsocket.connect;
   writeln(clientsocket.getxaddr);