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

Как работать с HTML страницой?   Найти похожие ветки 

← →
sdram   (2006-05-23 15:28) [0]

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

---

← →
Elen ©   (2006-05-23 15:30) [1]

Пробуй через TWebBrowser и иже с ним

---

← →
MsGuns ©   (2006-05-23 15:41) [2]

Сохранить просто - Выбрать "Сохранить как" и "Тип файла" = "Текстовый файл".
Хотя в блокнот прекрасно грузится и хатмель в натуральную величину ;)

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

---

← →
sdram   (2006-05-23 15:42) [3]

Пробую да пока безрезультатно вот и режил живых примеров попросить.
Из того что нашел:

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"

---

← →
Elen ©   (2006-05-23 16:22) [4]


ps := WebBrowser1.Document as IPersistStreamInit;

попробуй замени на
ps := IPersistStreamInit(WebBrowser1.Document) ;

---

← →
sdram   (2006-05-23 17:38) [5]

Ругается на

var
ps: IPersistStreamInit;

не находит откуда такое IPersistStreamInit

---

← →
saxon   (2006-05-23 18:00) [6]

uses ActiveX;

---

← →
sdram   (2006-05-24 15:27) [7]

да так заработало но результатом стала какая-то чуждая разуму кодировка типа:
?????????????????????‰?????????????????????????????????????????????????????????? ????????•???????•??????????????????????????????????????????????????????????????? ???????????????????????????????????????????????????????????????????????????????? ??????????????????????•????????????????????????????????????????????????????????? •??????????????????????????????????????????????????????????????????????????????? ???????????????????????•???????????????????????????????????????????????????????? ???????????????????????????????????????????????????????????????????????????????? ??????????????????????????????????????????????????????????‰

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

---

← →
saxon   (2006-05-24 15:53) [8]

пробуй так
http://www.swissdelphicenter.ch/en/showcode.php?id=2054

---

← →
sdram   (2006-05-24 17:40) [9]

Да, это то что нужно. Спасибо!
если бы еще на вторую часть вопроса нашелся бы ответ благодарности не было бы границ.


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

---

← →
saxon   (2006-05-24 17:44) [10]

Что значит с ним проще работать ? Чем IHTMLElement не устраивает (или DOM)?

---

← →
sdram   (2006-05-25 13:59) [11]

Undeclared identifier: "IHTMLElement
и где найти MSHTML_TLB, ComCtrls ?

---

← →
saxon   (2006-05-25 14:15) [12]

MSHTML_TLB - Components/Install ActiveX Control

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

---

← →
saxon   (2006-05-25 14:18) [13]

MSHTML_TLB  - C:\WINDOWS\system32\mshtml.tlb

---

← →
pyJIoH ©   (2006-05-25 16:20) [14]

Для таблиц смотри на такой интерфейс IHTMLTable
получишь возможность управлять Rows, Cells
IHTMLTable + QueryInterface

---

← →
sdram   (2006-05-25 17:54) [15]

Добавил эту библиотеку, а по ней ту мэни эрор
не находит тучу разных обьявлений ?

---

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

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



Память: 0.48 MB
Время: 0.033 c