HTTPRIO

[m_ekici]

s.a.
Web Servisinden bilgi istiyorum (medula). Bazen bilgi gelmiyor veya takılıyor. Program o işlemin bitmesini beklyo. HTTPRIO ya zaman sınırı (20 sn gibi) nasıl koyarız. (Timer haricinde)

iyi çalışmalra

[mrmarman]

Daha önce denemedim ama Google'da şunu buldum...

HTTPRIO bileşeninin HTTPWebNode1BeforePost eventine yazılacak...

Kod: Tümünü seç

procedure TForm2.HTTPRIO1HTTPWebNode1BeforePost(Const HTTPReqResp: THTTPReqResp; Data: Pointer); 
var 
  TimeOut : integer; 
begin 
  TimeOut := 2000; 
  InternetSetOption(Data, INTERNET_OPTION_RECEIVE_TIMEOUT, Pointer(@TimeOut), SizeOf(TimeOut)); 
end;