Скачать: CL | DM;

ПРосмотр 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]

Style ©

А в чем связь между Java и JavaScript?

Ну кроме одинаковых букв конечно.

---

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

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

---

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

Style ©
Ну сам синтаксис одинаковый :)

А ваще есть предположение что они как то связаны с OLE ;)

---

← →
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?

---

Страницы: 1 2 вся ветка

Скачать: CL | DM;



Память: 0.56 MB
Время: 0.017 c