Delphi6 をWindos7で動かすときのエラー (ID:46924)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

けど様  コードを付けずに申し訳ありませんでした。

XPで動くがWIN7で動かないシンプルなコードを作ろうとXPの再起動に苦戦していましたがあきらめてXE3では動くがDelphi 6では動かないコードを作りました。
（なおUSES節にはサンプルには必要ないものも含まれています。）

コメントアウトしたところでエラーが出てしまいます。よろしくお願いします。

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw_TLB, StdCtrls, ExtCtrls,strutils,jpeg,ComCtrls,activex,wininet,
//  MSHTML;      // for XE3
  MSHTML_TLB;  // for D6 personal

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
    HTMLWindow2: IHTMLWindow2;

public
    { Public 宣言 }
  end;

var
  Form1: TForm1;

var
     mypath,htmlfile:string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   mypath:=extractfilepath(application.exename);
   htmlfile:=mypath + 'abc.html';

form1.webbrowser1.Navigate(htmlfile);

// HTMLWindow2 := (form1.WebBrowser1.Document as IHTMLDocument2).parentWindow;  // D6 だとここでエラー

end;

procedure TForm1.Button1Click(Sender: TObject);
var
dlat,dlon:string;
begin
   dlat:='35.7';  dlon:='139.8';
  // form1.HTMLWindow2.execScript('GotoLatLng(' + dlat + ',' + dlon + ')', 'JavaScript');
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る