Вверх ↑
Ответов: 866
Рейтинг: 186
#1: 2024-06-22 05:34:45 ЛС | профиль | цитата
strannik_nebes писал(а):
Это ошибка компонента?

Нет.
Если на сервере выводить всё в Memo то проблем, указанных тобой выше, не будет.
Сервер

Add(Label,9555241,231,21)
{
Left=230
Top=20
Height=40
Align=2
Caption=""
AutoSize=1
}
Add(Memo,14240064,560,147)
{
Left=550
Top=160
Align=5
ScrollBars=3
}
Add(MainForm,16641521,161,133)
{
link(onCreate,12488255:##open,[])
}
Add(TCP_ServerEx,12488255,441,147)
{
ServerPort=5001
link(onRead,14240064:doAdd,[])
link(onconnect,9683659:doOn,[(480,160)(480,209)])
link(onDisconnect,9683659:doOff,[(501,167)(501,202)])
}
BEGIN_SDK
Add(EditMultiEx,5222853,21,21)
{
WorkCount=#6:##open|9:##hselect|6:do_cmd|
EventCount=#6:onRead|9:onconnect|12:onDisconnect|
VarCount=#10:IDC_client|8:##handle|
DataCount=#3:IDC|
Point(##hselect)
Point(##handle)
link(do_cmd,11416243:doConvert,[(35,41)(35,111)])
link(IDC_client,15163308:Value,[(27,179)(181,179)])
}
Add(TCP_Connection,16139110,105,98)
{
DataType=3
link(onRead,7310823:doConvert,[])
link(onConnect,15163308:doValue,[])
link(onDisconnect,5222853:onDisconnect,[(229,118)(229,41)])
}
Add(Memory,15163308,175,105)
{
Point(Data)
link(onData,5222853:onconnect,[(264,111)(264,34)])
link(Data,5222853:IDC,[(181,63)(27,63)])
}
Add(StreamConvertor,11416243,49,105)
{
Mode=7
link(onResult,16139110:doSend,[])
}
Add(StreamConvertor,7310823,238,98)
{
Mode=6
link(onResult,5222853:onRead,[(285,104)(285,27)])
}
END_SDK
Add(DoData,14547041,238,210)
{
link(onEventData,12488255:##hselect,[(291,216)(291,160)])
link(Data,12488255:IDC_client,[(244,194)(447,194)])
}
Add(Hub,10480729,210,210)
{
link(onEvent1,14547041:doData,[])
link(onEvent2,3061428:doData,[])
}
Add(DoData,3061428,294,217)
{
Data=String(привет от сервера!)
link(onEventData,12488255:do_cmd,[(347,223)(347,167)])
}
Add(Button,14951833,155,210)
{
Left=35
Top=10
Caption="сервер"
link(onClick,10480729:doEvent1,[])
}
Add(Message,9346091,707,42)
{
Caption="Сервер"
}
Add(DoData,6926430,784,42)
{
Data=Integer(5001)
}
Add(LED,9683659,560,189)
{
Left=345
Top=5
}
Add(Synchronize,7146650,756,133)
{
}
Add(Synchronize,3608743,742,182)
{
}


Клиент

Add(MainForm,4077607,371,154)
{
link(onCreate,14146200:doOpen,[(627,174)(627,202)])
}
Add(TCP_Client,14146200,637,196)
{
Port=5001
IP="127.0.0.1"
DataType=3
link(onRead,4598029:doConvert,[])
link(onConnect,9683659:doOn,[(676,209)(676,223)])
link(onDisconnect,9683659:doOff,[])
}
Add(Button,4403601,371,210)
{
Left=175
Top=80
Caption="клиент"
Data=String(Привет от клиента!)
link(onClick,73741:doEvent1,[])
}
Add(LED,9683659,700,203)
{
Left=215
Top=20
}
Add(Message,13702141,833,196)
{
}
Add(Hub,73741,434,210)
{
link(onEvent1,106804:doWork2,[])
link(onEvent2,12356732:doTimer,[])
}
Add(HubEx,106804,518,210)
{
link(onEvent,13373460:doData,[])
}
Add(DoData,13373460,539,210)
{
Data=String(Привет от клиента!)
link(onEventData,14512349:doConvert,[])
}
Add(Timer,12356732,469,217)
{
Interval=100
Enable=1
AutoStop=5
link(onTimer,106804:doWork3,[(522,223)])
}
Add(StreamConvertor,14512349,588,210)
{
Mode=7
link(onResult,14146200:doSend,[])
}
Add(StreamConvertor,4598029,784,196)
{
Mode=6
link(onResult,13702141:doMessage,[])
}


В клиенте поставил 5 срабатываний таймера, для тестов.
карма: 18

0