OleVariantからIStreamを取得する

Question

私はWinHTTPと一緒にDelphiを使用してインターネットからいくつかのファイルをダウンロードするHTTPリクエストをしていますが、リクエストを行うことはできますが、OleVariantからIStreamを取得する方法はわかりませんResponseStreamから返されます。私はグーグルで多くの時間を過ごしましたが、どうやってそれをするのか分かりません。ここで私が試したものです：

var 
    req: IWinHTTPRequest; 
    instream: IStream; 
begin 
    req := CoWinHTTPRequest.Create; 

    req.Open('GET', 'http://google.com', false); 
    req.Send(''); 

    if req.Status <> 200 then 
    begin 
    ShowMessage('failure'#10 + req.StatusText); 

    FreeAndNil(req); 

    Application.Terminate; 
    end; 

    instream := req.ResponseStream as IStream; 

    ShowMessage('success'); 

    FreeAndNil(instream); 
    FreeAndNil(req); 

end; 

しかし、私はエラー[DCC Error] main.pas(45): E2015 Operator not applicable to this operand type（ライン45はinstream := req.ResponseStream as IStream;である）を得ます。

どのようにOleVariantからIStreamを怖がらせるのですか？

Answer 1

あなたがインターフェイス上でFreeAndNilを呼び出してはいけません。この

instream := IUnknown(req.ResponseStream) as IStream; 

編集1 を試してみてください。 FreeAndNilは、オブジェクトインスタンスのみを渡すことができます。そうしないと、例外が発生します。とにかくインタフェースが参照カウントされるので、単にそれらをスコープから外して、それらをクリーンアップすることができます。だから、あなたは削除する必要があります。

FreeAndNil(instream); 
    FreeAndNil(req); 

EDIT2：あなたは、これは正確ではないか、それを説明することができればと思うなら

に何が起こっているかを説明しようと、編集または補完すること自由に感じてください。より良い。

req.ResponseStreamは、OleVariantです。 asキーワードはQueryInterfaceに電話しており、それはOleVariantで実装されていません。

OleVariantはそうあなたが最初IUnknownにOleVariantをキャストする必要があり、その後、IStreamインターフェイスを取得するためにQueryInterfaceを行うas演算子を使用OleVariantからIUnknownに型変換が組み込まれています。

何OleVariantからIStreamに型変換に建てられたがありませんので、あなたはIStreamに直接OleVariantをキャストすることはできません。