▼ Mr.XRAYさん
> そう言えば，Indyのサンプルの記事を書いているときに，
>
> >ＷｅｂからＤＬするファイル名の取得するには
> >http://hpcgi1.nifty.com/MADIA/DelphiBBS/wwwlng.cgi?print+200803/08030057.txt
>
かって私もスクラップブックブラウザでマスターに何度も
教えてもらいましたねぇ〜。今後ともよろしくお願いします。
Webサイトを保存するため
（例）http://www.yahoo.co.jp/ のファイル名は？
できればサイトのファイル名がはっきりしていれば
保存するとき明確になるので試みたわけですが
いまは、Ｉｎｄｙを使っていません。
（そのときこれを知っていれば試してみたかった。）
Ｉｎｄｙをやめた理由は、
なかなかファイル名が帰ってこないときや
金輪際ＤＬできないサイトもあったため。
（もちろん私の対処ミスを含む(^^;)）
スクラップブックで保存して利用するだけですから、
正確なファイル名は必ずしも必要ないと割り切ったのです。
最終的にはURLDownloadToFileで幾通りかのファイル名で
試みて取得できない場合や遅い場合は、
架空のファイル名を付けて保存するようにしました。
下記は力仕事で、たぶんこんなファイル名だろうと決めうちして、
だめなら、これならどうぉ？と別の名前で・・・を繰り返す。
result := result+'index.htm';
kekka:=URLD ownloadToFile(nil, PAnsiChar(result +#0), PAnsiChar(TempPath +#0), 0, nil);
if (kekka =s_ok) then exit;
result := result+'index.html';
kekka:= URLDownloadToFile(nil, PAnsiChar(result +#0), PAnsiChar(TempPath +#0), 0, nil);
if (kekka=s_ok) then exit;
result := result+'index.cgi';
kekka:= URLDownloadToFile(nil, PAnsiChar(result +#0), PAnsiChar(TempPath +#0), 0, nil);
・・・・・
どれも当たらない場合は架空の名前で保存する。
result:='0-----0.html';
実際にはコレガ一番確実で早かったです。
インターネットにはほぼ同時に発射するわけで
早く正解がかえってきたらそれを使う。という具合です。
外しているかも。<(_ _)>
|