code_33304.txt
------------ Дoбавленo в 23.08:
Или же:
Add(Button,16735809,308,245)
{
Left=15
Top=15
link(onClick,16426585:doData,[])
}
Add(Memo,15902769,378,154)
{
Left=10
Top=45
Width=290
Height=200
Strings=#15:POST / HTTP/1.0|27:Host: ts5.travian.ru|61:UserAgent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)|74:Accept: text/html, application/xml;q=0.9, application/xhtml+xml, */*;q=0.1|22:Connection: Keep-Alive|0:|
}
Add(MainForm,6678,308,168)
{
Left=312
Top=322
Width=1184
Height=433
Caption="Пример TCP"
Position=1
Point(onClose)
}
Add(DoData,16426585,378,245)
{
link(onEventData,1300320:doEvent1,[])
link(Data,15902769:Text,[])
}
Add(WebBrowser,6707651,651,203)
{
Left=310
Top=5
Width=450
Height=380
Color=-16777211
Ctl3D=0
Point(doFromText)
}
Add(Memo,14398415,651,259)
{
Left=770
Top=5
Width=385
Height=385
}
Add(TCP_Client,13825729,483,245)
{
Port=80
IP="146.0.13.173"
link(onRead,10214850:doEvent1,[])
link(onConnect,15124829:doOn,[(522,258)(522,272)])
link(onDisconnect,15124829:doOff,[])
}
Add(Hub,1300320,434,245)
{
link(onEvent1,13825729:doOpen,[])
link(onEvent2,13825729:doSend,[(473,258)(473,265)])
}
Add(LED,15124829,539,252)
{
Left=85
Top=15
}
Add(Hub,10214850,588,245)
{
link(onEvent1,6707651:doFromText,[(613,251)(613,237)])
link(onEvent2,14398415:doAdd,[(641,258)(641,265)])
}
О вспомнил! Что бы все получилось, нужно после текста запроса добавить два раза перевод строки - "
"!(то-есть два раза нажать "Enter")
Вот так:
POST / HTTP/1.0
Host: ts5.travian.ru
UserAgent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0)
Accept: text/html, application/xml;q=0.9, application/xhtml+xml, */*;q=0.1
Connection: Keep-Alive