Как правильно перенести код из VB в Delphi?
plash07 © (2002-02-19 17:44:00)
Была программа на VB.
....
"---Объявляем переменные
Dim ie As InternetExplorer, doc As MSHTML.HTMLDocument, url
As String, inPath As String
"--- Создаем экземпляр объекта InternetExplorer
Set ie = New InternetExplorer
url = "file://" & inPath
"--- открываем документ HTML
ie.Navigate url
"--- создаем экземпляр объекта HTML DOM
Set doc = ie.Document
.......
При переносе кода в Delphi возникли трудности при создании
экземпляра объекта HTML DOM. Никак не пойму как это сделать. Вот
код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,
OleServer, MSHTML_TLB, StdCtrls, OleCtrls, SHDocVw, ExtCtrls;
type
TForm1 = class(TForm)
HTMLDocument1: THTMLDocument;
WebBrowser1: TWebBrowser;
OpenDialog1: TOpenDialog;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var InFile : String;
begin
if OpenDialog1.Execute then InFile := OpenDialog1.FileName;
WebBrowser1.Navigate(InFile);
//-- Далее надо создать экземпляр объекта HTML DOM
end;
plash07 (2002-02-20 11:18:00) [1]
Может, кто чем поможет?
Наверх 
ЧАТ |
Орешник |
|
