Вверх ↑
Ответов: 970
Рейтинг: 270
#1: 2010-09-03 23:23:13 ЛС | профиль | цитата
Вроде должен так работать, но не работает (Runtime)



Add(MainForm,2953706,21,105)
{
Width=752
Height=604
}
Add(Button,7462924,173,217)
{
Left=285
Top=530
Width=220
Height=30
Caption="Обновить"
link(onClick,6593843:doOpen,[])
}
Add(TCP_Client,6593843,236,217)
{
Port=80
IP="89.108.68.56"
link(onRead,1462634:doSearch,[])
link(onConnect,6593843:doSend,[(280,230)(280,234)(224,234)(224,237)])
link(onDisconnect,1554504:doEvent1,[(357,237)(357,244)])
link(Data,3638483:Text,[])
}
Add(StrList,3638483,243,154)
{
Strings=#21:GET /css.css HTTP/1.1|24:Host: www.vad-man.h12.ru|97:User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.8) Gecko/20100722 Firefox/3.6.8|71:Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8|40:Accept-Language: ru,en-us;q=0.7,en;q=0.3|29:Accept-Encoding: gzip,deflate|48:Accept-Charset: windows-1251,utf-8;q=0.7,*;q=0.7|17:Connection: close|35:Referer: http://www.vad-man.h12.ru/|0:|0:|
}
Add(BlockFind,1462634,299,217)
{
Delete=0
StartBlock="HTTP"
EndBlock="

"
link(onEndSearch,16208629:doConvert,[])
}
Add(Memo,15411852,595,238)
{
Left=25
Top=15
Width=700
Height=485
}
Add(Convertor,16208629,348,224)
{
Mode=12
link(onResult,1279475:doCopy,[])
}
Add(StreamCopy,1279475,404,224)
{
Count=-1
link(Dest,7022784:Var2,[])
}
Add(MemoryStream,2415118,404,154)
{
Point(doPosition)
}
Add(Hub,1554504,446,238)
{
link(onEvent1,2415118:doPosition,[(472,244)(472,216)(392,216)(392,174)])
link(onEvent2,9703871:doDeCompress,[])
}
Add(Convertor,4456430,539,238)
{
Mode=11
link(onResult,15411852:doAdd,[])
}
Add(GetDataEx,7022784,404,200)
{
link(Data,2415118:Stream,[])
}
Add(ZLIB,9703871,490,238)
{
link(onStream,4456430:doConvert,[])
link(Stream,7022784:Var1,[(496,205)])
}

карма: 0

0