equal
deleted
inserted
replaced
39 handleTail() |
39 handleTail() |
40 end; |
40 end; |
41 |
41 |
42 procedure handler_L; |
42 procedure handler_L; |
43 var cmd: TCmdParamL; |
43 var cmd: TCmdParamL; |
44 begin |
44 s: ansistring; |
45 cmd.cmd:= state.cmd; |
45 begin |
46 cmd.str1:= getLongString; |
46 cmd.cmd:= state.cmd; |
47 if length(cmd.str1) = 0 then exit; |
47 s:= getLongString; |
|
48 cmd.str1len:= length(s); |
|
49 if cmd.str1len = 0 then exit; |
|
50 cmd.str1:= s; |
48 sendUI(mtNetData, @cmd, sizeof(cmd)); |
51 sendUI(mtNetData, @cmd, sizeof(cmd)); |
49 handleTail() |
52 handleTail() |
50 end; |
53 end; |
51 |
54 |
52 procedure handler_ML; |
55 procedure handler_ML; |
53 var cmd: TCmdParamL; |
56 var cmd: TCmdParamL; |
54 f: boolean; |
57 f: boolean; |
|
58 s: ansistring; |
55 begin |
59 begin |
56 sendUI(mtNetData, @state.cmd, sizeof(state.cmd)); |
60 sendUI(mtNetData, @state.cmd, sizeof(state.cmd)); |
57 cmd.cmd:= Succ(state.cmd); |
61 cmd.cmd:= Succ(state.cmd); |
58 |
62 |
59 repeat |
63 repeat |
60 cmd.str1:= getLongString; |
64 s:= getLongString; |
61 f:= cmd.str1[0] <> #0; |
65 cmd.str1len:= length(s); |
|
66 f:= cmd.str1len <> 0; |
|
67 |
62 if f then |
68 if f then |
|
69 begin |
|
70 cmd.str1:= s; |
63 sendUI(mtNetData, @cmd, sizeof(cmd)); |
71 sendUI(mtNetData, @cmd, sizeof(cmd)); |
|
72 end |
64 until not f; |
73 until not f; |
65 state.l:= 0 |
74 state.l:= 0 |
66 end; |
75 end; |
67 |
76 |
68 procedure handler_MS; |
77 procedure handler_MS; |