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