Форум: "Потрепаться";
Текущий архив: 2003.11.17;
Скачать: [xml.tar.bz2];
Вниз
ПРосмотр 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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.11.17;
Скачать: [xml.tar.bz2];
Память: 0.56 MB
Время: 0.013 c
