GUI putis.
[brdnet.git] / ZidanStore.pas
blobb698894e47ea95f8a68cfa364c6ea0a110904c2b
1 unit ZidanStore;
3 INTERFACE
5 type
6 tfid=array [0..20] of byte;
7 tStoreObjectInfo=object
8 hnd:file of byte;
9 final:boolean;
10 rc:Word;
11 length:LongWord;
12 seglen:longword;
14 procedure Open(const fid:tfid);
15 procedure Close;
16 procedure SegSeek(ofs:LongWord);
17 end;
19 IMPLEMENTATION
20 procedure tStoreObjectInfo.Open(const fid:tfid);
21 begin
22 rc:=0;
23 final:=true;
24 length:=65000;
25 Assign(hnd,'/dev/urandom');
26 Reset(hnd);
27 end;
28 procedure tStoreObjectInfo.Close;
29 begin
30 end;
31 procedure tStoreObjectInfo.SegSeek(ofs:longword);
32 begin
33 if ofs=0 then begin
34 rc:=0;
35 seglen:=65000;
36 end else rc:=7;
37 end;
39 END.