|
|
@@ -98,11 +98,14 @@ begin
|
|
|
FileRec(SockIn).Handle:=Sock;
|
|
|
FileRec(SockIn).RecSize:=1;
|
|
|
FileRec(Sockin).userdata[1]:=S_IN;
|
|
|
+ TextRec(SockIn).Mode := fmInput;
|
|
|
+
|
|
|
{Output}
|
|
|
Assign(SockOut,'.');
|
|
|
FileRec(SockOut).Handle:=Sock;
|
|
|
FileRec(SockOut).RecSize:=1;
|
|
|
FileRec(SockOut).userdata[1]:=S_OUT;
|
|
|
+ TextRec(SockOut).Mode := fmAppend;
|
|
|
end;
|
|
|
|
|
|
{******************************************************************************
|
|
|
@@ -169,7 +172,10 @@ begin
|
|
|
end;
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.7 2003-11-22 10:32:41 marco
|
|
|
+ Revision 1.8 2003-11-22 10:33:38 marco
|
|
|
+ fix from johill for 2801
|
|
|
+
|
|
|
+ Revision 1.7 2003/11/22 10:32:41 marco
|
|
|
fix from johill
|
|
|
|
|
|
Revision 1.6 2003/09/15 07:55:29 marco
|
marco