ott.pas

   1 unit ott;
   2 {OT test}
   3
   4 INTERFACE
   5 IMPLEMENTATION
   6 uses ServerLoop,MemStream,opcode,NetAddr,Fetch,Store2,dhtLookup;
   7
   8 type t=object
   9   job:pFetch;
  10   lookup:dhtLookup.tSearch;
  11  procedure DoTestFetch;
  12  //procedure DoTestLookup;
  13  procedure FetchComplete;
  14 end;
  15
  16 procedure t.DoTestFetch;
  17  const id1:array [0..19] of byte=($CD,$BF,$75,$83,$B1,$59,$44,$60,$A9,$A5,$CC,$F3,$E8,$E0,$B7,$F1,$3D,$1A,$6B,$DB);
  18  const id2:array [0..19] of byte=($E2,$05,$D4,$BF,$17,$A8,$5B,$67,$B2,$44,$EF,$FC,$83,$A2,$23,$D0,$1F,$98,$12,$6D);
  19  begin
  20  writeln('ott: start fetch');
  21  job:=FetchObject(id2,'//ip4/127.0.0.1/3512', 48, @FetchComplete);
  22  if not assigned(job) then FetchComplete;
  23 end;
  24
  25 procedure t.FetchComplete;
  26   begin
  27   if (job=nil)or(job^.done) then writeln('ott: fetch complete')
  28   else begin
  29     writeln('ott: fetch error ',job^.error);
  30   end;
  31 end;
  32
  33 var o:t;
  34 BEGIN
  35 shedule(1,@o.DOTestFetch);
  36 end.
  37