Вверх ↑
Ответов: 21
Рейтинг: 1
#1: 2013-09-07 04:51:19 ЛС | профиль | цитата
iarspider писал(а):
Когда же наконец появится правильный TCPClient?

прошло почти 8 лет..., а tcpclient все так же глючит и недокачивает данные. что прекрасно видно из схемы
Add(MainForm,8751972,595,245)
{
Left=20
Top=105
Width=985
Height=774
}
Add(Memo,4645631,609,392)
{
Left=10
Top=35
Width=955
Height=670
ScrollBars=3
Point(onDblClick)
link(onDblClick,4645631:doClear,[(655,405)(655,378)(597,378)(597,405)])
}
Add(TCP_Client,4983970,469,392)
{
Port=80
Point(onError)
link(onRead,490467:doCharset,[])
link(onConnect,16554731:doOn,[(517,405)(517,503)])
link(onDisconnect,16554731:doOff,[(517,412)(517,496)])
link(IP,14063209:Value,[])
}
Add(Hub,10421683,392,385)
{
OutCount=4
link(onEvent1,8336815:doIPByHost,[(413,391)(413,356)])
link(onEvent2,4983970:doClose,[(430,398)(430,405)])
link(onEvent3,4983970:doOpen,[(438,405)(438,398)])
link(onEvent4,4983970:doSend,[])
}
Add(Host,8336815,420,343)
{
link(onIPByHost,14063209:doValue,[])
link(HostName,6133418:Var2,[(433,317)(440,317)])
}
Add(Memory,14063209,469,350)
{
}
Add(LED,16554731,546,483)
{
Left=885
Top=5
ColorOn=65535
}
Add(Button,11403065,294,385)
{
Left=40
Top=10
link(onClick,3311150:doString,[])
}
Add(Edit,2841045,434,259)
{
Left=115
Top=10
Width=255
Text="wlife.spb.ru"
Alignment=2
}
Add(FormatStr,3311150,343,385)
{
Mask="GET /rss.php HTTP/1.1
User-Agent: wl
Host: %1
Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/webp, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1
Accept-Language: ru-RU,ru;q=0.8,en-US;q=0.5,en;q=0.3
Connection: Keep-Alive

"
link(onFString,10421683:doEvent1,[])
link(Str1,6133418:Var1,[(349,306)])
}
Add(GetDataEx,6133418,434,301)
{
link(Data,2841045:Text,[])
}
Add(Charset,490467,539,392)
{
Type=7
link(onCharset,4645631:doAdd,[])
}


страницу недокачевает. собственно может у кого то есть inline tcpclient-а?
карма: 1

0