Отследить конец страницы в WebBrowser
Аллоха, All!
А я вот щас как сморожу очередную глупость:
Как subj при скроле?
Я нашел как скролить
WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, 100);
или
var
WebBrowser: IWEBBrowser;
...
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
WebBrowser := pDisp as IWEBBrowser;
...
(WebBrowser.Document as IHTMLDocument2).parentWindow.scrollBy(0, 100);
в MSDN написано
IHTMLWindow2::scrollBy Method
Return Value
Returns S_OK if successful, or an error value otherwise.
И вот по этому S_OK я и хотел ловить конец страницы при скролле.
(WebBrowser.Document as IHTMLDocument2).parentWindow = IHTMLWindow2
Но почему-то в MSHTML scrollBy описан как procedure, да и
v: variant
v := WebBrowser1.OleObject.Document.ParentWindow.ScrollBy(0, 100);
v = Unassigned (всегда)
Еще была идея отслеживать текущую позицию скролбара и переходить на
следующий файл если она не изменяется. Нашел вот что (в MSHTML):
DispHTMLDivPosition.style: IHTMLStyle;
IHTMLStyle.position;
Но как добраться до
DispHTMLDivPosition = dispinterface
я не знаю.
В общем вот что я хочу получить:
Имеется список файлов (TListView) при клацании пробелом на файле
происходит его скроль в WebBrowser, при достижении конца файла -
переход на следующий. В общем принцип как The Bat! при прочтении
писем.