Вверх ↑
Ответов: 117
Рейтинг: 1
#1: 2015-04-03 14:55:07 ЛС | профиль | цитата
Netspirit, спасибо, никогда не видел эту тему. Очень интересные компоненты, лишь бы сервер мог работать со множеством клиентов и проводить операции. Попробую их.
------------ Дoбавленo в 14.55:
И с новым компонентом не получается в данный момент времени получать данные только от конкретного клиента с конкретным id, приходит всё разом, хотя вроде посылаю на CliendID сервера идентификатор клиента... И хотелось бы знать как компоненту указать тип данных dtString/dtStream, как в классической версии.
Add(TCPServer,476432,441,210)
{
Port=1001
Point(doEnumClients)
Point(onEnumClients)
link(onReceive,8542496:doAdd,[(531,216)(531,153)])
link(ClientID,2523225:Text,[(454,198)(559,198)(559,282)(664,282)])
link(onEnumClients,12194647:doAdd,[])
}
Add(MainForm,3448458,133,147)
{
Width=721
Height=509
Position=1
link(onCreate,12759448:doEvent1,[(268,167)(268,223)])
}
Add(TCP_Client,6538611,469,350)
{
Port=1001
IP="127.0.0.1"
}
Add(Hub,12759448,287,217)
{
OutCount=4
link(onEvent1,476432:doStartServer,[])
link(onEvent2,6538611:doOpen,[(385,230)(385,356)])
link(onEvent3,4979280:doOpen,[(374,237)(374,412)])
link(onEvent4,4213358:doOpen,[(385,244)(385,468)])
}
Add(TCP_Client,4979280,469,406)
{
Port=1001
IP="127.0.0.1"
}
Add(Timer,14669755,196,427)
{
link(onTimer,12974517:doEvent1,[])
}
Add(FormatStr,9417719,287,399)
{
Mask="111"
link(onFString,6538611:doSend,[(394,405)(394,370)])
}
Add(FormatStr,13909718,287,455)
{
Mask="222"
link(onFString,4979280:doSend,[(394,461)(394,426)])
}
Add(Hub,12974517,238,427)
{
OutCount=3
link(onEvent1,9417719:doString,[(270,433)(270,405)])
link(onEvent2,13909718:doString,[(270,440)(270,461)])
link(onEvent3,12116866:doString,[(270,447)(270,517)])
}
Add(FormatStr,12116866,287,511)
{
Mask="333"
link(onFString,4213358:doSend,[(394,517)(394,482)])
}
Add(TCP_Client,4213358,469,462)
{
Port=1001
IP="127.0.0.1"
}
Add(Memo,8542496,588,147)
{
Left=11
Top=61
Width=95
Height=375
AddType=1
ScrollBars=2
}
Add(Label,15466551,280,63)
{
Left=30
Top=30
Width=49
Height=17
Caption="Клиент 1"
}
Add(ListBox,12194647,588,231)
{
Left=410
Top=85
Width=140
Height=150
Point(String)
link(onClick,2523225:doText,[])
}
Add(Edit,2523225,658,238)
{
Left=410
Top=245
Width=140
link(Str,12194647:String,[(664,226)(643,226)(643,302)(615,302)])
}
Add(Timer,16146335,210,287)
{
Interval=100
AutoStop=1
link(onTimer,476432:doEnumClients,[(409,293)(409,244)])
}
Add(Label,6081536,336,63)
{
Left=450
Top=60
Width=12
Height=17
Caption="id"
}


карма: 0

0