« F1レジェンズ | トップページ | インターネット ルール&マナー検定 »

2005/07/10

indy 9.0.17 その5

今更なんだけど、IdHttp(9.0.17)の基本認証って変じゃない?一度パスワードエラーなどで認証に失敗すると、その後、正しいパスワードを送っても成功しないんですけど。

1.以下のようなプログラムを作り、
2.一度目は、わざと間違ったユーザ名(orパスワード)を入力し、ボタンをクリックする。
3.当然、401 Unauthorized エラーになる。
4.次に、ユーザ名(orパスワード)を訂正しボタンをクリックしても、
5.認証が成功しないんですけどぉ。

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdHttp1.Request.Clear;
  IdHttp1.Request.BasicAuthentication := true;
  IdHttp1.Request.Username := Edit1.Text;
  IdHttp1.Request.Password := Edit2.Text;
  Memo1.Lines.Text := IdHttp1.Get(Basic認証のかかったページ);
end;

以下のようにするとできたけど、そういうもんだっけ?なんか勘違いしているかな。

  if IdHttp1.Request.Authentication = nil
  then begin
    IdHttp1.Request.Username := Edit1.Text;
    IdHttp1.Request.Password := Edit2.Text;
  end else begin
    IdHttp1.Request.Authentication.Username := Edit1.Text;
    IdHttp1.Request.Authentication.Password := Edit2.Text;
  end;

|

« F1レジェンズ | トップページ | インターネット ルール&マナー検定 »

コメント

コメントを書く



(ウェブ上には掲載しません)


コメントは記事投稿者が公開するまで表示されません。



トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/36845/4912783

この記事へのトラックバック一覧です: indy 9.0.17 その5:

« F1レジェンズ | トップページ | インターネット ルール&マナー検定 »