Можно ведь просто нормально спросить
вот
code_29706.txt
Tad писал(а):
ashkalov, а ведь мы можем и договориться :ashkalov-у больше не помогать !
Просто не додумался
------------ Дoбавленo в 19.38:
или так, для наглядности
Add(MainForm,13388216,154,217)
{
Width=623
Height=399
}
Add(Button,8551584,203,217)
{
Left=5
Top=50
link(onClick,11294610:doSplit,[])
}
Add(TCP_Client,8138424,483,217)
{
link(onRead,8676657:doAdd,[])
link(onDisconnect,3789358:doData,[(527,237)(527,279)])
link(IP,15780618:Var,[])
link(Port,2843724:Var,[])
}
Add(Edit,6076774,266,161)
{
Left=5
Top=10
Width=195
Height=25
Text="61.147.82.178:8080"
}
Add(HTTP_PostBuilder,8516661,378,217)
{
URL="/"
Host="2ip.ru"
link(onBuild,16012469:doEvent1,[])
}
Add(MultiStrPart,11294610,266,217)
{
Char=":"
link(onSplit,12099170:doData,[])
link(Str,6076774:Text,[])
}
Add(LineBreak,13846756,266,294)
{
Type=1
link(Data,11294610:Part1,[])
Primary=[15780618,217,-133]
}
Add(LineBreak,2809440,273,266)
{
Type=1
link(Data,11294610:Part2,[])
Primary=[2843724,224,-84]
}
Add(Hub,16012469,441,217)
{
link(onEvent1,8138424:doOpen,[])
link(onEvent2,8138424:doSend,[(469,230)(469,237)])
}
Add(DoData,12099170,315,217)
{
link(onEventData,8516661:doBuild,[])
}
Add(StrList,8676657,539,217)
{
}
Add(DoData,3789358,539,273)
{
link(onEventData,11095172:doFromText,[])
link(Data,8676657:Text,[])
}
Add(WebBrowser,11095172,602,245)
{
Left=10
Top=80
Width=575
Height=275
Silent=0
Point(doFromText)
}



Поиск
Друзья
Администрация