Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как работать с HTML страницой? [D6, XP]

sdram © (2006-05-23 15:28:00)
Подскажите как сохранить в текстовой переменной - текст HTML документа например " http://www.delphimaster.ru/articles4.html". А если кто знает подскажите как с ним проще работать (с таблицами и т.д. в виде обьектов, и возможно ли такое).

sdram (2006-05-25 17:54:00) [1]
Добавил эту библиотеку, а по ней ту мэни эрор
не находит тучу разных обьявлений ?

pyJIoH (2006-05-25 16:20:00) [2]
Для таблиц смотри на такой интерфейс IHTMLTable
получишь возможность управлять Rows, Cells
IHTMLTable + QueryInterface

saxon (2006-05-25 14:18:00) [3]
MSHTML_TLB - C:\WINDOWS\system32\mshtml.tlb

saxon (2006-05-25 14:15:00) [4]
MSHTML_TLB - Components/Install ActiveX Control

пробуй пользоваться поисковиками - быстрее сделаешь

sdram (2006-05-25 13:59:00) [5]
Undeclared identifier: 'IHTMLElement
и где найти MSHTML_TLB, ComCtrls ?

saxon (2006-05-24 17:44:00) [6]
Что значит с ним проще работать? Чем IHTMLElement не устраивает (или DOM)?

sdram (2006-05-24 17:40:00) [7]
Да, это то что нужно. Спасибо!
если бы еще на вторую часть вопроса нашелся бы ответ благодарности не было бы границ.

> А если кто знает подскажите как с ним проще работать (с
> таблицами и т.д. в виде обьектов, и возможно ли такое).

saxon (2006-05-24 15:53:00) [8]
пробуй так
http://www.swissdelphicenter.ch/en/showcode.php?id=2054

sdram (2006-05-24 15:27:00) [9]
да так заработало но результатом стала какая-то чуждая разуму кодировка типа:
?????????????????????‰?????????????????????????????????????????????????????????? ????????•???????•??????????????????????????????????????????????????????????????? ???????????????????????????????????????????????????????????????????????????????? ??????????????????????•????????????????????????????????????????????????????????? •??????????????????????????????????????????????????????????????????????????????? ???????????????????????•???????????????????????????????????????????????????????? ???????????????????????????????????????????????????????????????????????????????? ??????????????????????????????????????????????????????????‰

как ее побороть(преобразовать в удобочитаемую)?

saxon (2006-05-23 18:00:00) [10]
uses ActiveX;

sdram (2006-05-23 17:38:00) [11]
Ругается на

var ps: IPersistStreamInit;

не находит откуда такое I PersistStreamInit

Elen (2006-05-23 16:22:00) [12]
ps := WebBrowser1.Document as IPersistStreamInit;
попробуй замени на
ps := IPersistStreamInit(WebBrowser1.Document) ;

sdram (2006-05-23 15:42:00) [13]
Пробую да пока безрезультатно вот и режил живых примеров попросить.
Из того что нашел:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
ps: IPersistStreamInit;
ss: TStringStream;
sa: IStream;
bResult: boolean;
begin
ps := WebBrowser1.Document as IPersistStreamInit;
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference) as IStream;
bResult := Succeeded(ps.Save(sa, True));
if bResult then
Memo.Text := WideCharLenToString(PWidechar(ss.Datastring),
Length(ss.Datastring));
finally
ss.Free;
end;
end;

Но!!!
[Error] Undeclared identifier: 'IPersistStreamInit'

MsGuns (2006-05-23 15:41:00) [14]
Сохранить просто - Выбрать "Сохранить как" и "Тип файла" = "Текстовый файл".
Хотя в блокнот прекрасно грузится и хатмель в натуральную величину ;)

90% известных мне веб-дизайнеров работают с хатмелем с помощью простого блокнота.

Elen (2006-05-23 15:30:00) [15]
Пробуй через TWebBrowser и иже с ним

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »