add unitfork.pas relicensed under zlib with bewares permission

[lcore.git] / lcoretest.dpr

diff --git a/lcoretest.dpr b/lcoretest.dpr
index f6fe72b31140b96426153d79d04286f55d9f5e9f..b58e14a64e4fd66edbf4eb85a86baf87e6e16b6a 100755 (executable)
--- a/lcoretest.dpr
+++ b/lcoretest.dpr
@@ -11,7 +11,10 @@ uses
   dnsasync,\r
   binipstuff,\r
   sysutils,\r
   dnsasync,\r
   binipstuff,\r
   sysutils,\r

-  dnssync;\r
+  dnssync,\r
+  //we don't actually make any use of lmessages in this app, we just\r
+  //include it to check if it compiles ok ;)\r
+  lmessages;\r

 {$ifdef win32}\r
   {$R *.RES}\r
 {$endif}\r
 {$ifdef win32}\r
   {$R *.RES}\r
 {$endif}\r


@@ -65,7 +68,7 @@ begin
   receivecount := receivecount +1;\r
   if receivecount >50 then begin\r
     writeln('received over 50 bits of data, pausing to let the operator take a look');\r
   receivecount := receivecount +1;\r
   if receivecount >50 then begin\r
     writeln('received over 50 bits of data, pausing to let the operator take a look');\r

-    readln;\r
+    \r

     receivecount := 0;\r
   end;\r
   while pos(#10,receivebuf) > 0 do begin\r
     receivecount := 0;\r
   end;\r
   while pos(#10,receivebuf) > 0 do begin\r


@@ -82,6 +85,7 @@ end;
 \r
 procedure tsc.sessionconnected(sender: tobject;error : word);\r
 begin\r
 \r
 procedure tsc.sessionconnected(sender: tobject;error : word);\r
 begin\r

+  \r

   if error=0 then begin\r
     writeln('session is connected, local address is'+clientsocket.getxaddr);\r
 \r
   if error=0 then begin\r
     writeln('session is connected, local address is'+clientsocket.getxaddr);\r
 \r


@@ -112,15 +116,22 @@ begin
   das.onrequestdone := sc.dnsrequestdone;\r
   //das.forwardfamily := af_inet6;\r
   das.forwardlookup('irc.ipv6.p10link.net');\r
   das.onrequestdone := sc.dnsrequestdone;\r
   //das.forwardfamily := af_inet6;\r
   das.forwardlookup('irc.ipv6.p10link.net');\r

+  \r

 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
   clientsocket.port := '6667';\r
   clientsocket.connect;\r

-  writeln(clientsocket.getxaddr);\r
+  //writeln(clientsocket.getxaddr);\r

   das.free;\r
 end;\r
 \r
   das.free;\r
 end;\r
 \r