| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Проблема с TStrings [D7, WinXP]

lamer_y ©   (2006-06-03 02:34:00) 

Здравствуйте!
Возникла такая проблема. Нужно из WebBrowser в список(TStrings) получить Html код страницы. Делаю так:

var
list,L: TStrings;
i: integer;
ih: IHTMLDocument2;
v: OleVariant;
BEGIN
list:= TStringList.Create;
try
 ih := IUnknown(WebBrowser1.Document) as IHTMLDocument2;
 for i := 0 to ih.all.length - 1 do
  begin
   v := ih.all.item(i, '');
   if v.tagName = 'HTML' then
    begin
     list.Add('  ' + v.outerHTML);
     Break;
    end;
  end;

 list.Count - ?
....................

Дальше нужно работать со списком, а количество строк равно 1. Если пользоваться компонентом Memo, то в мемо все нормально. Подскажите в чем тут проблема?

---

Palladin   (2006-06-03 20:01:00) [1]

разницы нет, если (как видимо) одна строка и есть... просто нужно научиться отличать видимое от насущного ("ну что, Федор, теперь и ты знаешь кунг-фу")

---

antonn   (2006-06-03 19:54:00) [2]

tesseract ©   (03.06.06 13:40) [3]
дык контруктор СтрингЛист...
или есть разница?

---

Palladin   (2006-06-03 19:50:00) [3]

tesseract ©   (03.06.06 13:40) [3]

думаешь он исползует что то другое?

---

tesseract   (2006-06-03 13:40:00) [4]

Если не ошибаюст Tstrings - абстракнтый класс.
Вместо него следует использовать TstringList;

---

Dmitrij_K   (2006-06-03 11:13:00) [5]

var
 Document: IHTMLDocument2;
begin
Document := WebBrowser1.Document as IHtmlDocument2;
if Document <>  nil then
  Memo1.Text := Document.all.Item(NULL, 0) as IHTMLElement).innerHTML

или

  Memo1.Text := Document.body.innerHTML

---

Palladin   (2006-06-03 07:46:00) [6]

> Если пользоваться компонентом Memo,

поставь в Memo свойства WrapWords в False и посмотри сколько будет строк

---

Наверх