Html редактор

← →
HTML (2008-03-19 07:40) [0]

Здраствуйте

подскажите кто знает

пытаюсь зделать простенький НТМЛ редактор своими руками

Вот код

unit Html; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, OleCtrls, SHDocVw; type TForm1 = class(TForm) WebBrowser1: TWebBrowser; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; procedure WebBrowser1BeforeNavigate2(Sender: TObject; const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData, Headers: OleVariant; var Cancel: WordBool); procedure WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); procedure SpeedButton1Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Disp: IDispatch; Editor: IHTMLDocument2; implementation {$R *.dfm} procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant); var CurrentWB: IWebBrowser; Editor: IHTMLDocument2; begin Disp:=pDisp; end; procedure TForm1.SpeedButton1Click(Sender: TObject); var CurrentWB: IWebBrowser; begin CurrentWB := Disp as IWebBrowser; editor:=(CurrentWB.Document as IHTMLDocument2); editor.DesignMode := "On"; end; procedure TForm1.FormCreate(Sender: TObject); begin WebBrowser1.Navigate("about:<html><body></body></html>"); end; en

Делфи7 Выдает ошибку

[Error] Html.pas(32): Undeclared identifier: "IHTMLDocument2"
[Error] Html.pas(58): Operator not applicable to this operand type
[Error] Html.pas(59): Missing operator or semicolon
[Error] Html.pas(16): Unsatisfied forward or external declaration: "TForm1.WebBrowser1BeforeNavigate2"
[Fatal Error] red.dpr(5): Could not compile used unit "Html.pas"

не пойму в чем дело :(

← →
HTML (2008-03-19 07:45) [1]

Нашёл ответ непрописал в USEs
activex, mshtml

но вышла другая проблема

[Hint] Html.pas(44): Variable "CurrentWB" is declared but never used in "TForm1.WebBrowser1DocumentComplete"
[Hint] Html.pas(45): Variable "Editor" is declared but never used in "TForm1.WebBrowser1DocumentComplete"
[Error] Html.pas(16): Unsatisfied forward or external declaration: "TForm1.WebBrowser1BeforeNavigate2"
[Fatal Error] red.dpr(5): Could not compile used unit "Html.pas"

:(

← →
HTML (2008-03-19 08:41) [2]

Есть перевод этих строк

[Намек] Html.pas (44):Переменный "CurrentWB" объявлен, но никогда не используется в "TForm1. WebBrowser1DocumentComplete"
[Намек] Html.pas (45):Переменный "Редактор" объявлен, но никогда не используется в "TForm1. WebBrowser1DocumentComplete"
[Ошибка] Html.pas (16):Неудовлетворенная передовая или внешняя декларация: "TForm1. WebBrowser1BeforeNavigate2"
Ошибка] red.dpr (5):Не мог собрать используемую единицу "Хтмл.пас

зацикливаеться на [Ошибка] Html.pas (16) этой строке

В чем может быть

← →
АИК (2008-03-19 08:41) [3]

.....
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);

{var
CurrentWB: IWebBrowser;
Editor: IHTMLDocument2;}
begin

Disp:=pDisp;

end;
.....

← →
АИК (2008-03-19 09:07) [4]

........
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
{ procedure WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool); }
procedure WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure SpeedButton1Click(Sender: TObject);
.........

← →
Плохиш © (2008-03-19 10:47) [5]

> [Error] Html.pas(16): Unsatisfied forward or external declaration:
> "TForm1.WebBrowser1BeforeNavigate2"

Здесь тебе открыто говорят, что для каждой декларации методов должна быть их(методов) реализация.

Может тебе стоит начать с чтения букваря и написания программы "Hello World"?

← →
HTML (2008-03-19 11:24) [6]

Спасибо АИК
Займусь Плохиш

АИК все работает но что означают {} - эти ковычки ?

> пытаюсь зделать простенький НТМЛ редактор своими руками

> что означают {} - эти ковычки ?

Эти ковычки необходимы только при написании простеньких НТМЛ-редакторов... Без них такие редакторы реализовать невозможно...
Они играют большую роль при написании лишнего кода, который так необходим в НТМЛ-редакторах...

Html редактор Найти похожие ветки