| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

idhttp

Makaveli ©   (2008-06-05 19:49:00) 

Здравствуйте, пытаюсь скачать страницу при помощи idhttp. Никак не хочет возвращать полный код странички, а возвращает ток:

Cache-Control: max-age=0, must-revalidate, proxy-revalidate, no-cache, no-store, private
Connection: Keep-Alive
Content-Type: text/html; charset=utf-8
Date: Thu, 05 Jun 2008 15:42:04 GMT
Expires: Thu, 05 Jun 2008 15:47:04 GMT
Last-Modified: Thu, 05 Jun 2008 15:42:04 GMT
Pragma: no-cache
Server: BAIDA/1.0.0
Transfer-Encoding: Chunked

ток #13#10...

Хотя данный код на других сайтах норм пашет.

   function getpage(url,cook,proxy:string):string;
var
idhttp:Tidhttp;
data:TstringStream;
tmp:integer;
begin
idhttp:=Tidhttp.Create(nil);
idhttp.ReadTimeout:=5000;
data:=TstringStream.Create('');
 if(proxy<>'') then
 begin
   tmp:=pos(':',proxy);
   if(tmp=0) then exit;
   try
   idhttp.ProxyParams.ProxyServer:=copy(proxy,1,tmp-1);
   idhttp.ProxyParams.ProxyPort:=strtoint(copy(proxy,tmp+1,length(proxy)));
   except
   end;
 end;
idhttp.HandleRedirects:=true;
idhttp.Request.CustomHeaders.Text:='Cookie: '+cook;
idhttp.Request.UserAgent:='Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; WOW64; SV1; MRA 5.0 (build 02094); .NET CLR 2.0.50727)';
try
idhttp.Get(url,data)
except
end;

result:=idhttp.Response.RawHeaders.GetText+#13#10#13#10+data.DataString;
data.Free;
idhttp.Free;
end;
   .....
   page:=getpage(' http://www.mail.yandex.ru/',cookie,proxy);


---

Anatoly Podgoretsky   (2008-06-06 10:16:00) [1]

Что говорит отладка, а так конечно умно
http://www.podgoretsky.com/OtherParts/DM/BadWill.aspx
завет №4

---

Тын-Дын   (2008-06-06 09:59:00) [2]

> Makaveli   (05.06.08 19:49) 


В except какую-нибудь индикацию об ошибке сделай?
on E:  ...

---

Res   (2008-06-05 23:02:00) [3]

нет

---

Сергей М.   (2008-06-05 22:23:00) [4]

> виснет и до result:=.. не доходит


Поди все это бубнотрясение происходит в доп.потоке ?

---

Makaveli   (2008-06-05 21:32:00) [5]

Без этого вообще ничего не происходит.. виснет и до result:=.. не доходит

---

Anatoly Podgoretsky   (2008-06-05 21:23:00) [6]

> Makaveli  (05.06.2008 19:49:00)  [0]

Может не надо это делать

except
end;

---

Наверх