Текущий архив: 2007.04.15;
Скачать: CL | DM;
Вниз
Размер HTML документа в браузере Найти похожие ветки
← →
BigVova © (2007-03-28 15:14) [0]Здравствуйте! Подскажите пожалуйста как определить размер документа, загруженного в TWEBBrowser. Нужно внедрить окно TWEBBrowser без полос прокрутки.
← →
easy © (2007-03-28 15:27) [1]document.body.scrollHeight
← →
BigVova © (2007-03-28 16:07) [2]Спасибо большое за ответ!
Не могли бы Вы уточнить как доступиться к этому свойству из-под Делфи?
Я обращаюсь к Document как к интерфейсу IHTMLDocument2, у которого есть свойство body, соответствующее интерфейсу IHTMLElement
но в этом интерфейсе нет свойства scrollHeight
не подскажете как к нему обратиться правильно?
← →
easy © (2007-03-28 17:37) [3]
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
body:IHTMLElement2;
Document:IHTMLDocument2;
begin
WebBrowser1.Document.QueryInterface(IHTMLDocument2,Document);
Document.body.QueryInterface(IHTMLElement2,body);
caption:=inttostr(body.scrollHeight);
end;
← →
BigVova © (2007-03-28 19:35) [4]Спасибо огромное!
← →
palva © (2007-03-28 20:14) [5]easy © (28.03.07 17:37) [3]
Что-то не пойму, а где присваивание локальным переменным?
Это так сейчас новые компиляторы позволяют писать? Или недосмотр просто?
← →
easy © (2007-03-28 20:55) [6]
> а где присваивание локальным переменным?
>function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
>Returns a reference to a specified interface if the object supports that interface.
>sets the Obj parameter so that it points to an instance of the specified interface.
насамом деле надо было писатьOleCheck(WebBrowser1.Document.QueryInterface(IHTMLDocument2,Document));
OleCheck(Document.body.QueryInterface(IHTMLElement2,body));
но
> недосмотр просто
или лень..)
← →
palva © (2007-03-28 21:37) [7]А, теперь понял. Это я ступил.
Страницы: 1 вся ветка
Текущий архив: 2007.04.15;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.04 c