TestTC.pas

   1 unit TestTC;
   2 INTERFACE
   3 IMPLEMENTATION
   4 USES ServerLoop
   5     ,TC
   6     ,MemStream
   7     ,NetAddr
   8     ;
   9 type t=object
  10  tcs:TC.tTCS;
  11  cnt:byte;
  12  buf: array [1..4096] of char;
  13  procedure CanSend;
  14  procedure Init;
  15  end;
  16
  17 procedure t.CanSend;
  18  var s:tMemoryStream;
  19  var size:word;
  20  begin
  21  s.Init(@buf,0,4096);
  22  size:=tcs.MaxSize(4096);
  23  tcs.WriteHeaders(s);
  24  if size>s.size then size:=s.size;
  25  s.Skip(size-1);
  26  s.WriteByte(9);
  27  tcs.Send(s);
  28 end;
  29
  30 procedure t.Init;
  31  begin
  32  cnt:=0;
  33  tcs.Init(tNetAddr('//ip4/127.0.0.1/3519'));
  34  tcs.CanSend:=@CanSend;
  35  tcs.Start;
  36  writeln('TestTC: Transfer started');
  37 end;
  38
  39 var o:t;
  40 BEGIN
  41  o.Init;
  42 END.