XMLHttpRequestがここでのreadyState

Question

非同期的にポーリングを使用私のコードです：このような状況で

var 
    xhttp: OleVariant; 

xhttp := CreateOleObject('MSXML2.XMLHTTP'); 
xhttp.Open('GET', URL, True); 
xhttp.send(); 

while xhttp.readyState <> 4 do 
begin 
    Application.HandleMessage;   
end; 

// status property is available only when readyState is complete 
if (xhttp.Status = 200) then... 
// do something 

私はイベントonreadystatechangeを使用する必要はありません。

質問： は、私がSend呼び出す後、4の値をreadyStateにポーリングすることが安全である、または無限ループで立ち往生する危険性がありますか？

---

いくつかの事実：

ServerXMLHTTPRequestは、ループ内waitForResponseを使用することができますが、私はXMLHTTPRequestコンポーネントを使用します。 そこのことを述べている：

waitForResponse方法は、XMLHTTPコンポーネントを使用して非同期 送信を待つための唯一の方法である のreadyStateプロパティ、ポーリングよりも効率的です。

Answer 1

あなたが無限ループを心配している場合は、単に例えば、あなたのループのタイムアウトを実装：

var 
    xhttp: OleVariant; 
    Ticks: DWORD; 

    function TimeoutElapsed: Boolean; 
    var 
    Cur, Elapsed: DWORD; 
    begin 
    Cur := GetTickCount(); 
    if Cur >= Ticks then 
     Elapsed := Cur - Ticks 
    else 
     Elapsed := (MAXDWORD - Ticks) + Cur; 
    Result := (Elapsed >= 15000); 
    end; 

begin 
    xhttp := CreateOleObject('MSXML2.XMLHTTP'); 
    xhttp.Open('GET', URL, True); 
    xhttp.send(); 

    Ticks := GetTickCount(); 
    while (xhttp.readyState <> 4) and (not TimeoutElapsed()) do 
    begin 
    if MsgWaitForMultipleObjects(0, nil, False, 1000, QS_ALLINPUT) = WAIT_OBJECT_0 then 
     Application.ProcessMessages();   
    Ticks := GetTickCount(); 
    end; 

    // status property is available only when readyState is complete 
    if xhttp.readyState = 4 then 
    begin 
    if (xhttp.Status = 200) then... 
    end; 
end;