repo.or.cz
/
brdnet.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Upload Manager mission statement.
[brdnet.git]
/
TestTC.pas
blob
563ff4b05b9004224ae9228642d0276f74591d44
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
.