Текущий архив: 2006.07.16;
Скачать: CL | DM;

Вниз

Проблема с TStrings   Найти похожие ветки 

← →
lamer_y   (2006-06-03 02:34) [0]

Здравствуйте!
Возникла такая проблема. Нужно из 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 07:46) [1]

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

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

---

← →
Dmitrij_K   (2006-06-03 11:13) [2]

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

---

← →
tesseract ©   (2006-06-03 13:40) [3]

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

---

← →
Palladin ©   (2006-06-03 19:50) [4]

tesseract ©   (03.06.06 13:40) [3]

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

---

← →
antonn ©   (2006-06-03 19:54) [5]

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

---

← →
Palladin ©   (2006-06-03 20:01) [6]

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

---

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

Текущий архив: 2006.07.16;
Скачать: CL | DM;

Наверх

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