fix a bug in peekmessage

[lcore.git] / lcoretest.dpr

diff --git a/lcoretest.dpr b/lcoretest.dpr
index 150b488988437d146784d7184c9f210b02be8469..61d771f3fd4118d25b5963a8f806c059e8881a18 100755 (executable)
--- a/lcoretest.dpr
+++ b/lcoretest.dpr
@@ -36,6 +36,9 @@ type
     procedure dnsrequestdone(sender:tobject;error : word);\r
     procedure sessionclosed(sender:tobject;error : word);\r
   end;\r
     procedure dnsrequestdone(sender:tobject;error : word);\r
     procedure sessionclosed(sender:tobject;error : word);\r
   end;\r

+  treleasetest=class(tlcomponent)
+    destructor destroy; override;
+  end;

 var\r
   listensocket : tlsocket;\r
   serversocket : tlsocket;\r
 var\r
   listensocket : tlsocket;\r
   serversocket : tlsocket;\r


@@ -147,7 +150,14 @@ end;
 procedure tsc.timehandler(sender:tobject);\r
 begin\r
   //writeln('got timer event');\r
 procedure tsc.timehandler(sender:tobject);\r
 begin\r
   //writeln('got timer event');\r

-end;\r
+end;
+
+destructor treleasetest.destroy;
+begin
+  writeln('releasetest.destroy called');
+  inherited destroy;
+end;
+\r

 procedure tsc.sessionclosed(sender:tobject;error : word);\r
 begin\r
   Writeln('session closed with error ',error);\r
 procedure tsc.sessionclosed(sender:tobject;error : word);\r
 begin\r
   Writeln('session closed with error ',error);\r


@@ -157,8 +167,12 @@ var
   ipbin : tbinip;\r
   dummy : integer;\r
   iplist : tbiniplist;\r
   ipbin : tbinip;\r
   dummy : integer;\r
   iplist : tbiniplist;\r

+  releasetest : treleasetest;

 begin\r
   lcoreinit;\r
 begin\r
   lcoreinit;\r

+  releasetest := treleasetest.create(nil);
+  releasetest.release;
+  

   ipbin := forwardlookup('invalid.domain',5);\r
   writeln(ipbintostr(ipbin));\r
 \r
   ipbin := forwardlookup('invalid.domain',5);\r
   writeln(ipbintostr(ipbin));\r
 \r