equal
deleted
inserted
replaced
9 procedure sendNet(s: shortstring); |
9 procedure sendNet(s: shortstring); |
10 procedure sendNetLn(s: shortstring); |
10 procedure sendNetLn(s: shortstring); |
11 procedure passToNet(data: PByteArray; len: Longword); |
11 procedure passToNet(data: PByteArray; len: Longword); |
12 |
12 |
13 var isConnected: boolean = false; |
13 var isConnected: boolean = false; |
|
14 myNickname: shortstring = 'qmlfrontend'; |
14 |
15 |
15 implementation |
16 implementation |
16 uses uFLIPC, uFLUICallback, uFLNetTypes, uFLUtils, uFLTypes; |
17 uses uFLIPC, uFLUICallback, uFLNetTypes, uFLUtils, uFLTypes; |
17 |
18 |
18 const endCmd: shortstring = #10 + #10; |
19 const endCmd: shortstring = #10 + #10; |
400 end; |
401 end; |
401 |
402 |
402 |
403 |
403 procedure passToNet(data: PByteArray; len: Longword); |
404 procedure passToNet(data: PByteArray; len: Longword); |
404 var i: Longword; |
405 var i: Longword; |
|
406 l: ansistring; |
|
407 s: shortstring; |
405 begin |
408 begin |
406 i:= 0; |
409 i:= 0; |
407 |
410 |
408 while(i < len) do |
411 while(i < len) do |
409 begin |
412 begin |
410 if data^[i + 1] = ord('s') then |
413 if data^[i + 1] = ord('s') then |
411 begin |
414 begin |
412 sendUI(mtRoomChatLine, @(data^[i + 2]), data^[i]); |
415 s[0]:= char(data^[i] - 1); |
413 //sendChatLine() |
416 Move(data^[i + 2], s[1], data^[i] - 1); |
|
417 |
|
418 l:= myNickname + #10; |
|
419 l:= l + s; |
|
420 |
|
421 sendUI(mtRoomChatLine, @l[1], length(l)); |
|
422 sendNetLn('CHAT'); |
|
423 sendNet(s); |
414 end; |
424 end; |
415 |
425 |
416 inc(i, data^[i] + 1); |
426 inc(i, data^[i] + 1); |
417 end; |
427 end; |
418 end; |
428 end; |