TestTC.pas

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