Karl писал(а):
пароли с логинами программам sniffer-амГоворя об умалчивании деталей я подразумевал и такие нюансы. но это сейчась не суть важно.
важно мне научится и научится на реальном примере т.е. задаче
------------ Дoбавленo:
Смотрел пример TCP_ServerEx в не совсем понятно как его использовать и где мне хотя бы порт указать. Да и точек у этого "макро" компонента мало.
------------ Дoбавленo:
Вот что сборка клиентской стороны, не могу разобратся как объединить в один поток ID и пароль и передать как данные на сервер
Add(MainForm,2953706,21,105)
{
Width=550
Height=403
}
Add(Menu,15478480,70,140)
{
Menu=#14:Получить прайс|15:Отправить прайсс|
Point(onSelectNum)
link(onSelectNum,13034002:doEvent,[])
}
Add(IndexToChanel,13034002,119,147)
{
Count=4
link(onEvent1,16000270:doEvent1,[])
}
Add(Edit,6976912,336,70)
{
Left=450
Top=10
Text="534"
DataType=1
}
Add(Edit,7962037,133,63)
{
Left=95
Top=10
Text="afandi"
}
Add(Label,4920964,133,21)
{
Left=75
Top=15
Width=15
Height=17
Caption="ID"
}
Add(Label,7181043,181,21)
{
Left=165
Top=13
Height=17
Caption="Password"
}
Add(Label,10621713,336,28)
{
Left=416
Top=13
Width=23
Height=17
Caption="Port"
}
Add(Edit,3325293,175,63)
{
Left=220
Top=11
Text="pswd"
}
Add(EventFromData,6418955,126,224)
{
}
Add(TCP_Client,3892390,294,140)
{
link(IP,788135:Text,[(300,117)(296,117)])
link(Port,6976912:Text,[(314,117)(342,117)])
}
Add(Label,2044784,290,28)
{
Left=291
Top=13
Width=35
Height=17
Caption="Server"
}
Add(Edit,788135,290,70)
{
Left=331
Top=13
Width=70
Text="127.0.0.1"
}
Add(Hub,16000270,203,147)
{
OutCount=3
link(onEvent1,3892390:doOpen,[(265,153)(265,146)])
link(onEvent2,3892390:doSend,[])
link(onEvent3,4203426:doAdd,[(265,167)(265,195)])
}
Add(DoData,5348962,189,231)
{
}
Add(Memo,4203426,294,189)
{
Left=55
Top=95
Width=395
Height=245
link(Str,3892390:Active,[])
}
Add(Label,7071050,28,21)
{
Left=55
Top=75
Width=74
Height=17
Caption="log from debug"
}
Поиск
Друзья
Администрация