/[lcore]/trunk/httpserver_20080306/lloopback.pas
ViewVC logotype

Contents of /trunk/httpserver_20080306/lloopback.pas

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (show annotations)
Fri Mar 28 02:26:58 2008 UTC (11 years, 5 months ago) by plugwash
File size: 645 byte(s)
initial import

1 unit lloopback;
2
3 interface
4 uses lcore,classes;
5
6 type
7 tlloopback=class(tlasio)
8 public
9 constructor create(aowner:tcomponent); override;
10 end;
11
12
13 implementation
14 uses
15 baseunix,unix;
16 {$i unixstuff.inc}
17
18 constructor tlloopback.create(aowner:tcomponent);
19 begin
20 inherited create(aowner);
21 closehandles := true;
22 assignpipe(fdhandlein,fdhandleout);
23
24 eventcore.rmasterset(fdhandlein,false);//fd_set(fdhandlein,fdsrmaster);
25 eventcore.wmasterclr(fdhandlein);//fd_clr(fdhandleout,fdswmaster);
26 eventcore.setfdreverse(fdhandlein,self);
27 eventcore.setfdreverse(fdhandleout,self);
28 state := wsconnected;
29 end;
30 end.

Properties

Name Value
svn:executable

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