"WinHttp.WinHttpRequest.5.1"を非同期で使用するには？

Question

コード：

var 
    WinHttpReq: OleVariant; 

procedure TForm1.Button1Click(Sender: TObject);  
begin 
    WinHttpReq := CreateOleObject('WinHttp.WinHttpRequest.5.1'); 
    WinHttpReq.Open('GET', 'http://stackoverflow.com', TRUE); // asynchronously 
    WinHttpReq.setRequestHeader('User-Agent', 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0'); 
    WinHttpReq.Send(); 
    // HOW to set a callback procedure here and get the response? 
end; 

注：私はmshttp.dllをインポートし、TLBを使用する必要はありません。私はレイトバインディングでそれを使いたい。私は例外があればそれを処理したいと思います。

編集： TLamaの回答を受け入れるのは、私が最初に尋ねてきたことの良い選択肢になるからです。プラスそれは良い例のソースを持っています。

WinHTTPRequest Wrapper with IConnectionPoint for Events（ソースコードが添付されています）の非常に優れた実装です。

Answer 1

Stijnが答えたところでは、プログラムの遅延を防ぐために、スレッドを使用してください。 IWinHttpRequest.Openも非同期設定機能を持っていますが、イベントをキャッチすることは非常に難しく、IWinHttpRequest.WaitForResponseはあなたのプログラムを妨害します。

ここでは、フォームのメモボックスに応答テキストを取得する方法の簡単な例を示します。 次の例では同期モードが使用されており、さらにIWinHttpRequest.SetTimeoutsを使用してタイムアウト値を変更できることに注意してください。質問にあるように非同期モードを使用する場合は、IWinHttpRequest.WaitForResponseメソッドで結果を待つ必要があります。

/////////////////////////////////////////////////////////////////////////////// 
///// WinHttpRequest threading demo unit ////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////////// 

unit WinHttpRequestUnit; 

interface 

uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
    Dialogs, ActiveX, ComObj, StdCtrls; 

type 
    TForm1 = class(TForm) 
    Memo1: TMemo; 
    Button1: TButton; 
    procedure Button1Click(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

/////////////////////////////////////////////////////////////////////////////// 
///// THTTPRequest - TThread descendant for single request //////////////// 
/////////////////////////////////////////////////////////////////////////////// 

type 
    THTTPRequest = class(TThread) 
    private 
    FRequestURL: string; 
    FResponseText: string; 
    procedure Execute; override; 
    procedure SynchronizeResult; 
    public 
    constructor Create(const RequestURL: string); 
    destructor Destroy; override; 
    end; 

/////////////////////////////////////////////////////////////////////////////// 
///// THTTPRequest.Create - thread constructor //////////////////////////// 
/////////////////////////////////////////////////////////////////////////////// 

// RequestURL - the requested URL 

constructor THTTPRequest.Create(const RequestURL: string); 
begin 
    // create and start the thread after create 
    inherited Create(False); 
    // free the thread after THTTPRequest.Execute returns 
    FreeOnTerminate := True; 
    // store the passed parameter into the field for future use 
    FRequestURL := RequestURL; 
end; 

/////////////////////////////////////////////////////////////////////////////// 
///// THTTPRequest.Destroy - thread destructor //////////////////////////// 
/////////////////////////////////////////////////////////////////////////////// 

destructor THTTPRequest.Destroy; 
begin 
    inherited; 
end; 

/////////////////////////////////////////////////////////////////////////////// 
///// THTTPRequest.Execute - thread body ////////////////////////////////// 
/////////////////////////////////////////////////////////////////////////////// 

procedure THTTPRequest.Execute; 
var 
    Request: OleVariant; 
begin 
    // COM library initialization for the current thread 
    CoInitialize(nil); 
    try 
    // create the WinHttpRequest object instance 
    Request := CreateOleObject('WinHttp.WinHttpRequest.5.1'); 
    // open HTTP connection with GET method in synchronous mode 
    Request.Open('GET', FRequestURL, False); 
    // set the User-Agent header value 
    Request.SetRequestHeader('User-Agent', 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0'); 
    // sends the HTTP request to the server, the Send method does not return 
    // until WinHTTP completely receives the response (synchronous mode) 
    Request.Send; 
    // store the response into the field for synchronization 
    FResponseText := Request.ResponseText; 
    // execute the SynchronizeResult method within the main thread context 
    Synchronize(SynchronizeResult); 
    finally 
    // release the WinHttpRequest object instance 
    Request := Unassigned; 
    // uninitialize COM library with all resources 
    CoUninitialize; 
    end; 
end; 

/////////////////////////////////////////////////////////////////////////////// 
///// THTTPRequest.SynchronizeResult - synchronization method ///////////// 
/////////////////////////////////////////////////////////////////////////////// 

procedure THTTPRequest.SynchronizeResult; 
begin 
    // because of calling this method through Synchronize it is safe to access 
    // the VCL controls from the main thread here, so let's fill the memo text 
    // with the HTTP response stored before 
    Form1.Memo1.Lines.Text := FResponseText; 
end; 

/////////////////////////////////////////////////////////////////////////////// 
///// TForm1.Button1Click - button click event //////////////////////////// 
/////////////////////////////////////////////////////////////////////////////// 

// Sender - object which invoked the event 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    // because the thread will be destroyed immediately after the Execute method 
    // finishes (it's because FreeOnTerminate is set to True) and because we are 
    // not reading any values from the thread (it fills the memo box with the 
    // response for us in SynchronizeResult method) we don't need to store its 
    // object instance anywhere as well as we don't need to care about freeing it 
    THTTPRequest.Create('http://stackoverflow.com'); 
end; 

end. 

Answer 2

私はあなたがTThreadオブジェクトについて学ぶことをお勧めします。 TThreadから継承する新しいクラスを作成し、Executeメソッドをオーバーライドし、CoInitialize（COMを有効にする）を呼び出してWinHTTPRequestコードを実行します。要求が完了したら、Synchronizeを使用して結果をフォアグラウンドスレッドに戻します。また、Executeメソッドのtry/except節で例外をキャッチすることができます。

もう1つのオプションは、非同期ブール値プロパティを持つIXMLHTTPRequestオブジェクトに切り替えることです。レイトバインディングでイベントを捕捉するのはかなり難しいかもしれませんが、定期的に状態プロパティをチェックすることができます。

Answer 3

IWinHttpRequestは非常にプリミティブです。 Open（）で非同期モードが指定されていると警告！

get_ResponseStream（）によって返されたIStreamを使用して大きなファイルをダウンロードし、そのデータが到着したときに小さな塊でファイルに書き戻すことができると思われる場合は間違っています。

同期モードまたは非同期モードを使用する場合でも、IWinHttpRequestは常にサーバー応答をメモリにロードし、ENTIREのダウンロードがメモリに格納されるまで、get_ResponseStream（）はE_PENDINGを返します。

このインターフェイスは、小さなファイル用に設計されています。