idhttp

← →
Makaveli (2008-06-05 19:49) [0]

Здравствуйте, пытаюсь скачать страницу при помощи 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-05 21:23) [1]

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

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

except
end;

← →
Makaveli (2008-06-05 21:32) [2]

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

← →
Сергей М. © (2008-06-05 22:23) [3]

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

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

← →
Res (2008-06-05 23:02) [4]

нет

> Makaveli (05.06.08 19:49)

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

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

idhttp Найти похожие ветки