Форум: "Основная";
Текущий архив: 2006.07.16;
Скачать: [xml.tar.bz2];
Вниз
Проблема с 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c
