TWebBrowser：Refererを変更したい

解決

中野 2005-08-14 09:43:33 No: 17036

ダウンロード支援ソフトを作っているのですが
Refererを設定しないとダウンロードできないサイトが有るみたいで
Refererを変更してダウンロードさせるにはどうしたら良いのでしょうか？
検索してみたのですがセキュリティの説明サイト等しか見つけられませんでした

Referer: where 2005-08-14 18:22:41 No: 17037

Navigate()の第５引数がヘッダなので、そこで設定しましょ。

見習 2005-08-15 01:36:59 No: 17038

面白そうなので試してみました。
動作確認はしたのですが、Referrer以外のヘッダ情報が消えてるかも・・・？

var
  Flags, TargetFrameName, PostData, Header: OleVariant;
begin
  Header := 'Referer: http://aaa.com/dl.html' + #13;
  WebBrowser1.Navigate(
    'http://aaa.com/files/aaa.zip',
    Flags,             //
    TargetFrameName,   // 今回は特に指定なし
    PostData,          //
   Header);
end;

#ふと思ったのですが、IndyのTIdHTTPでReferer設定した方がいいような気がしました。

中野 2005-08-17 02:15:41 No: 17039

Referer: whereさん、見習さんのお陰でできました
すぐ近くに答えがあったのに気づかずお恥ずかしい限りです
ご丁寧にお教え下さり有り難うございました