Проблема с 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]

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

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

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