掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
質問「ＷｅｂからＤＬするファイル名の取得するには」の結果 (ID:30305)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
よろしくお願いします。 先の質問「ＷｅｂからＤＬするファイル名の取得するには」の結果ですが Delphi６PersonalにIndy９をインストールするのは大変そうなので一旦「解決」とさせて頂きIndy９を探して悪戦苦闘してIndy10と差し替えIndy９をインストールしました。 もにゃさんに教えて頂いた下記を実行するのですが、やはり ReplyErrorCodeが未定義になるのですが、なにかuses節に追加するか typeで定義するか、イベント定義をするとか、何かIndyコンポーネントを貼り付ける必要があるのでしょうか？ 出来ましたら、どなたかご指導をお願いします。 （ＤＬファイル名を事前に調べる） uses IdHTTP; IdHTTP1: TIdHTTP; procedure TForm1.Button1Click(Sender: TObject); var s:String; begin s:='http://hpcgi2.nifty.com/Mr_XRAY/DLCounter/pl_lime.cgi?plSamplesDL'; try Memo1.Text:= IdHTTP1.Get(s); except on e: EIdHTTPProtocolException do case e.ReplyErrorCode of 302 :Memo1.Text:= IdHTTP1.Response.Location; end; end; end; ちなみに下記は作動しますのでIndy９は機能していると思うのですが。 IdHTTP1:=TIdHTTP.Create(nil); try memo1.Text:=IdHTTP1.Get('http://www.yahoo.co.jp/'); except memo1.Lines.Add('Not'); end; IdHTTP1.Free; よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.