Re[2]: TWebbrowser
Хаю ду ю ду Александр Томилов?
Смотрю и вижу, как ты печатаешь умные вещи и дай-ка, думаю,
тоже что-нибудь напечатаю:
АТ> А как ты текст вытаскиваешь? Приведи кусок кода
Из личного мыла (народ хватит отвечать в личку на вопросы в листе):
A> var
A> i, j: integer;
A> ovTable: OleVariant;
A> begin
A> ovTable :=
A> WebBrowser1.OleObject.Document.all.tags('TABLE').item(0);
A>
A> for i:=0 to (ovTable.Rows.Length - 1) do begin
A>
A> for j:=1 to (ovTable.Rows.Item(i).Cells.Length - 1) do begin
A>
A> Memo1.Lines.Add(ovTable.Rows.Item(i).Cells.Item(j).InnerText);
A>
A> Какие будут соображения по поводу линков?
1) Код не работает если таблица идет из
<script>
...
</script>
2) Надо в MSDN поискать что-то типа IHTMLLinkElement и как работать с
ним