Inetコントロールのエラーを回避するには？ (ID:21018)

名前

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

本文

えと、ソースはこんな感じです。

procedure TfrmMain.Inet1StateChanged(Sender:TObject;State:smallint);
{このイベントはExecute実行後、Stateが変化する都度呼び出される}
var
  wStr,wHdr: String;
begin
  case state of
  icNone:
  {１〜７まで省略}
  icResponseReceived: begin         //これはstateが8のとき
    case Inet1.Tag of
      RECEIVE_START:                //受信時の処理
        begin
          WriteLog('受信開始');     //ログ出力用手続き
          wHdr := Inet1.GetHeader();//ここが実行されてない？失敗？
          WriteLog(wHdr);           //取得したヘッダをログに出力
          {後続処理がある}
        end;
      SEND_START:  //送信時の処理
        begin
          WriteLog('送信開始');     //ログ出力用手続き
          wHdr := Inet1.GetHeader();//ここが実行されてない？失敗？
          WriteLog(wHdr);           //取得したヘッダをログに出力
          {後続処理}
        end;
    end; //case終わり
  icDisconnecting:                  // 9
  icDisconnected:                   // 10
  icError:                          // 11
  icResponseCompleted:              // 12
end;

上記のようにログを出しつつ検証してみると、case文が実行された後の「受信開始」「送信開始」は出力されているのですが、どうもGetHeaderに失敗しているのか、getheader後の処理が実行されずにステータスが進行してしまい、どこかのタイミングで「unable to complete request.」というエラーメッセージが出る感じです。

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

戻る