Вверх ↑
Ответов: 373
Рейтинг: 108
#1: 2010-12-01 22:23:48 ЛС | профиль | цитата
mmmmm писал(а):
Вы не поверите, но после замены файла KolZLibBzip.pas всеравно не работает

У меня работает.
Проверь на этой схеме.

Add(MainForm,2953706,224,210)
{
Width=557
Height=336
Position=1
}
Add(TCP_Client,9651057,434,259)
{
Port=80
link(onRead,14383400:doStrCat,[])
link(onConnect,9651057:doSend,[(476,272)(476,305)(422,305)(422,279)])
link(onDisconnect,15520134:doEvent1,[])
link(IP,9563688:Value,[])
link(Data,1736191:Text,[])
}
Add(Host,156644,322,203)
{
link(onIPByHost,3056556:doEvent1,[])
link(HostName,14714562:Value,[])
}
Add(Memory,9563688,434,210)
{
}
Add(Button,7632081,273,210)
{
Left=15
Top=20
Caption="get"
link(onClick,156644:doIPByHost,[])
}
Add(Memory,14714562,329,154)
{
Default=String(en.wikipedia.org)
}
Add(Hub,3056556,371,210)
{
link(onEvent1,9563688:doValue,[])
link(onEvent2,9651057:doOpen,[(406,223)(406,265)])
}
Add(BlockFind,1462634,588,329)
{
Delete=0
StartBlock="HTTP"
EndBlock="

"
link(onEndSearch,15004748:GZipDecompressHttp,[])
link(Text,6242745:Var2,[])
}
Add(StrCat,14383400,581,259)
{
Point(doClear)
link(Str1,6242745:Var3,[(587,247)(603,247)(603,303)])
}
Add(Charset,6689325,728,322)
{
Type=7
link(onCharset,4903186:doText,[])
}
Add(Hub,15520134,511,273)
{
link(onEvent1,1462634:doSearch,[(544,279)(544,335)])
link(onEvent2,14383400:doClear,[(553,286)(553,272)])
}
Add(StrList,1736191,441,154)
{
Strings=#20:GET /wiki/1 HTTP/1.1|74:User-Agent: Opera/9.80 (Windows NT 5.1; U; ru) Presto/2.2.15 Version/10.00|22:Host: en.wikipedia.org|125:Accept: text/html, application/xml;q=0.9, application/xhtml+xml, image/png, image/jpeg, image/gif, image/x-xbitmap, */*;q=0.1|40:Accept-Language: ru-RU,ru;q=0.9,en;q=0.8|50:Accept-Charset: iso-8859-1, utf-8, utf-16, *;q=0.1|55:Accept-Encoding: deflate, gzip, x-gzip, identity, *;q=0|21:Connection: Close, TE|46:TE: deflate, gzip, chunked, identity, trailers|0:|0:|
}
Add(GetDataEx,6242745,588,298)
{
Angle=3
link(Data,14383400:Result,[(587,303)])
}
Add(RichEdit,4903186,784,308)
{
Left=20
Top=45
Width=500
Height=235
ScrollBars=3
}
Add(ZlibOLD,15004748,665,322)
{
link(OnResult,6689325:doCharset,[])
}


карма: 0

0