WebBrowserで特定のサイトでエラー

解決

横山 2012-05-14 03:22:29 No: 42167

皆様よろしくお願いします。
windows 7 Delphi 6 personalを使っています。
TWebBrowserを使ってWebブラウザを作成しようとしています。

フォームにTWebBrowserを貼り付け
下記を実行すると
「Invalid floating point operation」というエラーがでます。
ほかのサイトは今のところ正常に表示します。
サイトに何か問題があるのでしょうか。
対処法が判りません。よろしくお願いします。

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://radiko.jp/#');
end;

# は不要 2012-05-14 03:37:31 No: 42168

URL末尾の # は付けない方がいいよ。
なくても自動的に付けられるから。

あ 2012-05-14 04:47:34 No: 42169

不正な浮動小数点数演算命令 delphi
でGoogle検索しましょう。答えは一番上にでます。
もし、あなたが本当に困っていたのだったら、後の人のため、ここにその
答えをわかりやすく書いてくれるとうれしいです。

横山 2012-05-14 23:37:19 No: 42170

＃は不要さん、あさんありがとうございました。

＃は不要さん、サンプルは説明を簡単にするため直接アドレスをセットしていますが
実際は、このサイトをお気に入りに登録してクリックしたら表示するように
なっていて私が負荷しているわけではありません。ＩＥで実験すれば
自動的に負荷されます。

あさん、googleで検索したらSet8087cw($133f);
がありました。
最初理解できませんでしたが、下記のようにしたらでなくなったような
気がします。
これでよろしかったら解決とさせていただきます。
ありがとうございました。

initialization //おまじない
OleInitialize(nil);
Set8087cw($133f);
AppPath := ExtractFilePath(Application.ExeName);
finalization
OleUninitialize;