ПРосмотр HTML страниц

← →
sapsi (2003-10-24 14:03) [40]

Так зачем изобретать велосипед?
Если мы подключаемся к word, например, мы пользуемся функциями, предоставляемыми им, его стандартным интерфейсом.
Зачем же здесь отступать от правила.
Синтаксический разбор я могу сделать.
НО зачем?
Можно было бы сразу написать, что HTML не может быть сохранен как plaintext и т.п. без тегов

← →
Плохиш_ (2003-10-24 14:10) [41]

>sapsi (24.10.03 14:03) [40]

> Если мы подключаемся к word, например, мы пользуемся функциями,
> предоставляемыми им, его стандартным интерфейсом.

Что мешает подключиться к IE по анологии с Word

> Можно было бы сразу написать, что HTML не может быть сохранен
> как plaintext и т.п. без тегов

Почему не может?

← →
Кулюкин Олег (2003-10-24 14:10) [42]

> sapsi (24.10.03 14:03) [40]
> Так зачем изобретать велосипед?

Незачем.
Для сохранения HTML без тегов надо использовать браузер.
Для удаления лишних пробелов из строки и распечатки содержимого TMemo - Word.
Надо использовать имеющиеся наработки

← →
Basilio (2003-10-24 14:25) [43]

> Кулюкин Олег © (24.10.03 13:53) [37]
> А если пользователь стер IE?
> Вы будете проверять его наличие перед конвертацией?
Тогда TWebBrowser не будет работать в принципе.

> Ihor Osov"yak © (24.10.03 13:53) [38]
Так работает:
var doc:IHTMLDocument2; body:IHTMLElement; s:widestring; sl:TStringList; begin Doc:=WebBrowser1.Document as IHTMLDocument2; Body:=Doc.Body; s:=Body.innerText; sl:=TStringList.Create; sl.Add(s); sl.SaveToFile("a.txt"); sl.Destroy; end;

← →
Кулюкин Олег (2003-10-24 14:30) [44]

> Basilio © (24.10.03 14:25) [43]
> Тогда TWebBrowser не будет работать в принципе.

Я знаю :)

← →
bis (2003-10-24 14:35) [45]

Reindeer Moss Eater © & Кулюкин Олег ©
Ну вот, все равно ведь переехали, к чему огрызаться-то было

← →
Reindeer Moss Eater (2003-10-24 14:38) [46]

Мы переехали?

Надеюсь не тебя и не пополам?

← →
Vlad (2003-10-24 14:41) [47]

> bis © (24.10.03 14:35) [45]
> Reindeer Moss Eater © & Кулюкин Олег ©
> Ну вот, все равно ведь переехали, к чему огрызаться-то было

1) Что-то не заметно что вы переехали. В соседней ветке треп до сих пор продолжаете.
2) Зачем вобще переезжать, вам что-то тут не нравится ? Или обидел кто ?

← →
Style (2003-10-24 14:45) [48]

Или вот так

var
str: TStringList;
begin
str:= TStringList.Create();
try
str.Add(WebBrowser1.OleObject.Document.body.InnerText);
str.SaveToFile("c:\text.txt");
finally
str.free;
end;

← →
sapsi (2003-10-24 16:16) [49]

2 style Работает ли это (WebBrowser1.OleObject.Document.body.InnerText) в Дельфи 5?

← →
Style (2003-10-24 16:24) [50]

sapsi
проверял в Delphi 5

← →
sapsi (2003-10-24 16:29) [51]

Странно, у меня access violation на этой строке.
Ну ок, нашел статью
http://delphi.vitpc.com/mastering/tweb.htm, разберусь сам.
Спасибо.

← →
Style (2003-10-24 16:33) [52]

sapsi

Сначала нужно сделать Navigate

var
_URL, Flags, TargetFrameName, PostData, Headers: Olevariant;
begin
_URL := " http://hch.ru";
Flags := 0; TargetFrameName := 0; Postdata := 0; Headers := 0;
WebBrowser1.Navigate2(_URL, Flags, TargetFrameName, PostData, Headers);

← →
Reindeer Moss Eater (2003-10-24 16:34) [53]

Будет буря негодования, но все же.

В Делфи "ЭТО" никогда не работало.
По той причине, что работает "ЭТО" в коде БГ.
А из D идет только вызов.

access violation потому что не сделан navigate и документа просто нет.

А с IE6 это не работает потому что не поддерживается самим IE, а не Delphi пятым шестым или десятым.

← →
Style (2003-10-24 16:37) [54]

Так мы попадаем как бы JavaScript
WebBrowser1.OleObject.Document.

Смотри хелпу по Яве

← →
Reindeer Moss Eater (2003-10-24 16:40) [55]

← →
sapsi (2003-10-24 16:42) [56]

navigate как раз сделан

← →
Style (2003-10-24 16:43) [57]

← →
Reindeer Moss Eater (2003-10-24 16:44) [58]

navigate как раз сделан

Тогда WebBrowser1 = nil;

← →
Style (2003-10-24 16:48) [59]

sapsi

Почему тогда у меня работает??

procedure TForm1.Button1Click(Sender: TObject);
var
_URL, Flags, TargetFrameName, PostData, Headers: Olevariant;
begin
_URL := " http://hch.ru";
Flags := 0; TargetFrameName := 0; Postdata := 0; Headers := 0;
WebBrowser1.Navigate2(_URL, Flags, TargetFrameName, PostData, Headers);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
str: TStringList;
begin
str:= TStringList.Create();
try
str.Add(WebBrowser1.OleObject.Document.body.InnerText);
str.SaveToFile("c:\text.txt");
finally
str.free;
end;
end;

← →
sapsi (2003-10-27 10:15) [60]

2 style
Спасибо, у меня так тоже работает (именно WebBrowser1.Navigate2)
А почему нельзя сделать сохранение, которое делается по нажатию кнопки, например на onnavigatecomplete?

ПРосмотр HTML страниц Найти похожие ветки