ＷｅｂからＤＬするファイル名の取得するには

解決

武田 2008-03-28 23:15:23 No: 30293

ご指導をよろしくお願いいたします。
WindowsXPsp2 Delphi 6Personalです。
Ｗｅｂページの画像、ファイルをＤＬするとき、事前にファイルの種類が
判らない場合があります。（たいていは指定してありますが）
このとき、どのようにファイルを指定すればいいのか判断する方法を教えて頂きたいのですが。

例えば、Webページのボタンをクリックするとアーカイブファイルをダウンロードする例をよく見かけます。
（失礼してMr_XRAYさんのサイトの一部を参考にさせて頂きます）
procedure TForm1.FormCreate(Sender: TObject);
begin  //これはページの一部です（簡潔にするため）
    WebBrowser1.Navigate('http://homepage2.nifty.com/Mr_XRAY/Delphi/plSamples/plSamplesIndex.htm');
end;
このページのダウンロードボタンで下記のリンクをＤＬ出来ます。
procedure TForm1.Button1Click(Sender: TObject);
var url:string;
begin // URLDownloadToFileは  uses節に Urlmon,が必要
      url:='http://hpcgi2.nifty.com/Mr_XRAY/DLCounter/pl_lime.cgi?plSamplesDL';
      URLDownloadToFile(nil, PAnsiChar(url +#0), PAnsiChar('外部ファイル.lzh'+#0), 0, nil);
end;
事前にはファイル名は不明なのでテストでは'外部ファイル.lzh'としていますがzipか、htmlか、pdfか、不明なのではと思いますが。
実際にはplSamples.lzhというファイルです。
事前に判ると下記のようにスマートにいくのですが。
URLDownloadToFile(nil, PAnsiChar(url +#0), PAnsiChar('plSamples.lzh'+#0), 0, nil);

よろしくお願いいたします。

もにゃ 2008-03-29 04:01:53 No: 30294

TWebBrowserでやる方法はわかりませんが
HTTP/1.0 302 Moved Temporarilyを受けとりゃいいので
Indyならこんな感じで取得は可能です。

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;

武田 2008-03-29 20:42:56 No: 30295

もにやさん早速教えて頂きありがとうございます。
ご返事が遅くなりすみません。
Delphi６PersonalなのでIndyが標準で付いていないのでインストールに
手間取りました。（説明もありませんが）
uses節にIdHTTPを追加してIdHTTP1: TIdHTTP;を定義してもIdHTTP1.Get(s);
は追加しましたが、どうしても
case e.ReplyErrorCode で未定義とでます。
まだ何か追加する必要があるのでしょうか？
すみません、ご指導のほどお願いいたします。

いんでぃと春の空 2008-03-29 21:10:00 No: 30296

ReplyErrorCodeがあるのは Indy9だよ。

武田 2008-03-30 07:29:57 No: 30297

いんでぃと春の空さん、ご指導ありがとうございました。
Indy１０をインストールしました。
Indy９を探して入れ直します。
代用法はないんでしょうね。結構苦労したんです。（笑）
ありがとうございました。