+++ /dev/null
-unit lloopback;\r
-\r
-interface\r
-uses lcore,classes;\r
-\r
-type\r
- tlloopback=class(tlasio)\r
- public\r
- constructor create(aowner:tcomponent); override;\r
- end;\r
-\r
-\r
-implementation\r
-uses
- baseunix,unix;
-{$i unixstuff.inc}
-
-constructor tlloopback.create(aowner:tcomponent);\r
-begin\r
- inherited create(aowner);\r
- closehandles := true;\r
- assignpipe(fdhandlein,fdhandleout);\r
-\r
- eventcore.rmasterset(fdhandlein,false);//fd_set(fdhandlein,fdsrmaster);\r
- eventcore.wmasterclr(fdhandlein);//fd_clr(fdhandleout,fdswmaster);\r
- eventcore.setfdreverse(fdhandlein,self);\r
- eventcore.setfdreverse(fdhandleout,self);\r
- state := wsconnected;\r
-end;\r
-end.\r