Вверх ↑
Этот топик читают: Гость
Ответов: 373
Рейтинг: 108
#31: 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
Ответов: 305
Рейтинг: 4
#32: 2010-12-01 23:24:52 ЛС | профиль | цитата
"Vlad.-" писал(а):
У меня работает.
Проверь на этой схеме.

ОНО РАБОТАЕТ!
Проверял эту схему час назад, она не работала.
Спасибо
------------ Дoбавленo в 22.30:
[flood]Вот только интересно. Зачем изпользовать StrCat(соединение строк)?[/flood]
------------ Дoбавленo в 23.24:
Как только дело дошло до компонента . . .


------------ Дoбавленo в 23.24:
Работало норм, но внезапно вылезла. И вылазивала, когда я тестил этот компонент
карма: 0

0
Ответов: 373
Рейтинг: 108
#33: 2010-12-01 23:43:59 ЛС | профиль | цитата
mmmmm писал(а):
Работало норм, но внезапно вылезла. И вылазивала, когда я тестил этот компонент

На каком сайте?
Покажи схему.

Компонент только что обновил в шапке.(c Holm.Ru не работал)
карма: 0

0
Ответов: 305
Рейтинг: 4
#34: 2010-12-02 00:19:21 ЛС | профиль | цитата
vkontakte.ru
code_21668.txt
А всё случилось так:
Включаю, тестю, - всё норм, выключаю
Поменял оформление. Включаю, тестю, - всё норм, выключаю
Поменял ещё раз какую-то мелоч. Включаю, тестю, - ОШИБКА
Вот такие пироги
------------ Дoбавленo в 00.15:
Кстати компонент годный для тех, у кого:
не безлимитный интернет
маленькая скорость
большой обьём страници
когда страница не полностью доходит
и тд.
Надеюсь ты этот проэкт не забросиш , +
------------ Дoбавленo в 00.19:
и да, с оперативкой у меня всё норм
карма: 0

0
файлы: 1code_21668.txt [1.4KB] [330]
Ответов: 373
Рейтинг: 108
#35: 2010-12-02 00:47:45 ЛС | профиль | цитата
mmmmm писал(а):
Поменял ещё раз какую-то мелоч. Включаю, тестю, - ОШИБКА

Включаю, тестю, - всё норм, выключаю
Поменял оформление. Включаю, тестю, - всё норм, выключаю
Поменял ещё раз какую-то мелоч. Включаю, тестю, - НЕТ ОШИБКИ
карма: 0

0
Ответов: 305
Рейтинг: 4
#36: 2010-12-02 01:12:56 ЛС | профиль | цитата
Так дело мне кажется совсем не в оформлении и прочей мелочи, я тебе намекнул.
Дело в том, что я принимал с каждым запуском зазные данные, а не одну и ту же страницу.
------------ Дoбавленo в 01.12:
По твоему я выдумал?
карма: 0

0
Ответов: 1841
Рейтинг: 369
#37: 2010-12-02 12:32:34 ЛС | профиль | цитата
ошибку выбивает в том случае когда соединение с сервером разрывается в момент получения данных и не полностью принятые данные идут на распаковку в следствии чего получаем ошибку.
Так что у кого быстрый инет труднее получить эту ошибку.
карма: 1
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#38: 2010-12-02 12:44:59 ЛС | профиль | цитата
CriDos писал(а):
и не полностью принятые данные идут на распаковку в следствии чего получаем рантайм

Принятые данные буферизировать, проверить HASH-сумму, и только после того, подавать на распаковку. Хуже, если сервер не выдает HASH-сумму, вот тогда и будете стабильно ловиться такой глюк
карма: 22

0
Ответов: 305
Рейтинг: 4
#39: 2010-12-02 15:44:39 ЛС | профиль | цитата
Тот серв иногда разрывает соединения даже тогда, когда не вся страница загружена, по этому я и решил использовать gzip чтобы устранить ошибку. Видимо не помогло.
Что делать?
nesco, а зачем HASH-сумму ?
------------ Дoбавленo в 15.44:
[offtop]Есть способы "заставить" серв присылать страницы полностью?[/offtop]
карма: 0

0
Ответов: 1841
Рейтинг: 369
#40: 2010-12-02 19:09:44 ЛС | профиль | цитата
mmmmm писал(а):
а зачем HASH-сумму

Чтобы выяснить, вся ли страница грузанулась.
карма: 1
0
Разработчик
Ответов: 26163
Рейтинг: 2127
#41: 2010-12-02 19:15:26 ЛС | профиль | цитата
CriDos писал(а):
Чтобы выяснить, вся ли страница грузанулась

И нет ли в ней ошибок
карма: 22

0
Ответов: 1841
Рейтинг: 369
#42: 2010-12-02 19:19:38 ЛС | профиль | цитата
mmmmm писал(а):
Есть способы "заставить" серв присылать страницы полностью?

это спецификация протокола TCP (wiki)
карма: 1
0
Ответов: 305
Рейтинг: 4
#43: 2010-12-02 23:45:56 ЛС | профиль | цитата
Я уже нашел как:
Keep-Alive: 115
Connection: keep-alive

Затем накопляет ответ в StrList и проверяет в нём при каждом принятом куске запроса маску *</html>*Если находит, то ищет FindBlock в StrList нужные данные, затем закрывает соединение TCP клиента и очищяет StrList
Круто я придумал
карма: 0

0
Ответов: 305
Рейтинг: 4
#44: 2010-12-08 23:11:21 ЛС | профиль | цитата
CriDos, А можеш добавить в свой компонент одну фонкцию.
Когда приходят на компонент неизвестные данные, он выдаёт ошибку, и программа закрывается, а было бы хорошо, если бы компонент не закрывал программу, а просто сообщял через точку, что сдесь ошибка
карма: 0

0
Ответов: 1841
Рейтинг: 369
#45: 2010-12-09 11:56:52 ЛС | профиль | цитата
mmmmm писал(а):
CriDos, А можеш добавить в свой компонент одну фонкцию.

mmmmm, автор не я а Vlad.-
карма: 1
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)