Код
GET http://chat.mychat.ru/tail.php?session=d3e683aecaf08f77bf84ae56a245c9ad HTTP/1.0
Текст на Delphi процедуры отсылки запроса (для ICS) выглядит так:
Код
httpcli1.Accept:= 'text/html';
httpcli1.AcceptLanguage:= 'ru';
httpcli1.ContentTypePost:= 'application/x-www-form-urlencoded';
httpcli1.Agent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; MRA 4.0 (build 00768); .NET CLR 1.0.3705; .NET CLR 1.1.4322)';
httpcli1.NoCache:= True;
httpcli1.Proxy := '';
httpcli1.ProxyPort := '80';
httpcli1.URL := 'http://chat.mychat.ru/tail.php?session=d3e683aecaf08f77bf84ae56a245c9ad';
try
httpcli1.Get;
except
MessageDlg('Status Code: '+IntToStr(httpcli1.StatusCode)+#13#10+'Reason Phrase: '+httpcli1.ReasonPhrase, MtError, [mbOk], 0);
Exit;
end;
Всё делаю, вроде, как следует... Пытаюсь получить документ через httpcli1.RcvdStream, но вот тут и возникает проблема. Дело в том, что программа не прекращает выполнять метод GET. Похоже из-за того, что скрипт постоянно генерирует новый документ. Или что-то в этом роде. Я, честно говоря, в этих тонкостях не разбираюсь. Однако, проблема требует решения, так как событие, возникающее на завершение получения документа, не вызывается. Если во время выполнения запроса вызвать метод httpcli1.Abort, то программа прекращает его выполнять и в полученном потоке я вижу то, что мне нужно - документ с сообщениями пользователей. Однако, при таком обрыве вылетает сообщение об ошибке да и способ это какой-то грязный...
Уважаемые пользователи. Возможно, кто-то из вас может подсказать мне, в чём заключается проблема, почему так происходит и какие существуют возможные методы решения?
PS:
С Indy-компонентами та же проблема...