11 buf
: array [1..4096] of char;
12 procedure CanSend(size
:word);
16 procedure t
.CanSend(size
:word);
21 if size
>s
.size
then size
:=s
.size
;
33 tcs
.Remote
.FromString('//ip4/192.168.1.47/3511');
34 tcs
.CanSend
:=@CanSend
;
37 writeln('TestTC: Transfer started');