WININETについて (ID:10924)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

WININETを使用して、JPEGをダウンロードするプログラムを作成しています。
HttpQueryInfoにてエラーが発生して、うまくいきません。
ソースを掲載しますので、指摘のほうよろしくお願いいたします

hItnet       := nil;
  hHttpSession := nil;
  hHttpRequest := nil;

hItnet := InternetOpen('WININET GET Program',
                         INTERNET_OPEN_TYPE_PRECONFIG,
                         nil,
                         nil,
                         0);
  if (hItnet = nil) then
  begin
    //  エラー
    ShowMessage('ＷＩＮＩＮＥＴの初期化に失敗しました');
    Exit;
  end;

//  サーバへ接続
  hHttpSession := InternetConnect(hItnet,
                                  'www.hogehoge.ne.jp',
                                   INTERNET_DEFAULT_HTTP_PORT,
                                   nil,
                                   nil,
                                   INTERNET_SERVICE_HTTP,
                                   0,
                                   0);
  if (hHttpSession = nil) then
  begin
    //  エラー
    ShowMessage('サーバーへの接続に失敗しました');
    Exit;
  end;

//  ＨＴＴＰ要求の作成
  hHttpRequest := HttpOpenRequest(hHttpSession,
                                  'GET',
                                  'A.JPG',                                                             nil,
                                  'http://www.hogehoge.ne.jp/IMG/',
                                  nil,
                                  0,
                                  0);
  if (hHttpRequest = nil) then
  begin
    //  エラー
    ShowMessage('ＨＴＴＰリクエストの作成に失敗しました');
    Exit;
  end;

//  作成したＨＴＴＰ要求の発行
  bRet := HttpSendRequest(hHttpRequest,
                          nil,
                          0,
                          nil,
                          0);
  if (bRet = False) then
  begin
    //  エラー
    ShowMessage('ＨＴＴＰ要求の発行に失敗しました');
    Exit;
  end;

dtSize := SizeOf(databuf);
  bRet := HttpQueryInfo(hHttpRequest,
                        HTTP_QUERY_CONTENT_LENGTH,
                        @databuf,
                        dtSize,
                        lpdwReserved);
  if (bRet = False) then
  begin
    //ここでエラー発生（コード=12150）

Exit;
  end;
               :
               :
               :

←解決時は質問者本人がここをチェックしてください。

戻る