/[lcore]/trunk/lcoretest.dpr
ViewVC logotype

Diff of /trunk/lcoretest.dpr

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 35 by plugwash, Thu Feb 5 18:38:37 2009 UTC revision 36 by plugwash, Thu Feb 5 21:52:57 2009 UTC
# Line 36  Line 36 
36      procedure dnsrequestdone(sender:tobject;error : word);      procedure dnsrequestdone(sender:tobject;error : word);
37      procedure sessionclosed(sender:tobject;error : word);      procedure sessionclosed(sender:tobject;error : word);
38    end;    end;
39      treleasetest=class(tlcomponent)
40        destructor destroy; override;
41      end;
42  var  var
43    listensocket : tlsocket;    listensocket : tlsocket;
44    serversocket : tlsocket;    serversocket : tlsocket;
# Line 148  Line 151 
151  begin  begin
152    //writeln('got timer event');    //writeln('got timer event');
153  end;  end;
154    
155    destructor treleasetest.destroy;
156    begin
157      writeln('releasetest.destroy called');
158      inherited destroy;
159    end;
160    
161  procedure tsc.sessionclosed(sender:tobject;error : word);  procedure tsc.sessionclosed(sender:tobject;error : word);
162  begin  begin
163    Writeln('session closed with error ',error);    Writeln('session closed with error ',error);
# Line 157  Line 167 
167    ipbin : tbinip;    ipbin : tbinip;
168    dummy : integer;    dummy : integer;
169    iplist : tbiniplist;    iplist : tbiniplist;
170      releasetest : treleasetest;
171  begin  begin
172    lcoreinit;    lcoreinit;
173      releasetest := treleasetest.create(nil);
174      releasetest.release;
175      
176    ipbin := forwardlookup('invalid.domain',5);    ipbin := forwardlookup('invalid.domain',5);
177    writeln(ipbintostr(ipbin));    writeln(ipbintostr(ipbin));
178    

Legend:
Removed from v.35  
changed lines
  Added in v.36

No admin address has been configured">No admin address has been configured
ViewVC Help
Powered by ViewVC 1.1.22