Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Вниз

Как правильно перенести код из VB в Delphi? 


plash07   (2002-02-19 17:44) [0]

Была программа на 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) [1]

Может, кто чем поможет?




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.027 c
1-19150           kserg@ukr.net         2002-02-21 12:07  2002.03.07  
Вопрос по TEdit - как установить курсор в последнюю позицию текста(без выделения)


3-19073           чайничек              2002-02-07 17:27  2002.03.07  
Может быть кто-нибудь знает как построена правовая система


7-19369           Dima-k17              2001-12-01 21:17  2002.03.07  
Виртуальный Com порт


1-19253           NLO                   2002-02-20 07:22  2002.03.07  
У TreeView свойство RightClickSelect = true как получить текст выделенного узла


14-19350          Blackweber            2002-01-20 14:52  2002.03.07  
Я нашел Д.Кнута в эл. варианте. Только не знаю как прочитать ТеХ формат в котором они сделаны. Подскажите если кто сталкивался!