OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Вторник, 23 Октябрь, 2018 12:17

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
СообщениеДобавлено: Среда, 21 Ноябрь, 2012 09:59 

Зарегистрирован: Суббота, 04 Март, 2006 15:13
Сообщения: 661
Откуда: СССР
Здравствуйте.

Можно попробовать автоматизировать сканирование интернет-ресурсов,
например, библиотеки twirpx.com

Нашел Mozilla ActiveX Control на
http://www.iol.ie/~locka/mozilla/control.htm

Пропустил через DevComInterfaceGen и получил
Код:
      DWebBrowserEvents = POINTER TO ABSTRACT RECORD (CtlT.OutObject)
         (this: DWebBrowserEvents) BeforeNavigate (URL: ARRAY OF CHAR; Flags: INTEGER; TargetFrameName: ARRAY OF CHAR; PostData: CtlT.Any; Headers: ARRAY OF CHAR; VAR Cancel: BOOLEAN), NEW, ABSTRACT;
         (this: DWebBrowserEvents) CommandStateChange (Command: INTEGER; Enable: BOOLEAN), NEW, ABSTRACT;
         (this: DWebBrowserEvents) DownloadBegin, NEW, ABSTRACT;
         (this: DWebBrowserEvents) DownloadComplete, NEW, ABSTRACT;
         (this: DWebBrowserEvents) FrameBeforeNavigate (URL: ARRAY OF CHAR; Flags: INTEGER; TargetFrameName: ARRAY OF CHAR; PostData: CtlT.Any; Headers: ARRAY OF CHAR; VAR Cancel: BOOLEAN), NEW, ABSTRACT;
         (this: DWebBrowserEvents) FrameNavigateComplete (URL: ARRAY OF CHAR), NEW, ABSTRACT;
         (this: DWebBrowserEvents) FrameNewWindow (URL: ARRAY OF CHAR; Flags: INTEGER; TargetFrameName: ARRAY OF CHAR; PostData: CtlT.Any; Headers: ARRAY OF CHAR; VAR Processed: BOOLEAN), NEW, ABSTRACT;
         (this: DWebBrowserEvents) GetIID (OUT iid: COM.GUID);
         (this: DWebBrowserEvents) Invoke (id, n: INTEGER; VAR par: CtlT.ParList; VAR ret: WinOleAut.VARIANT);
         (this: DWebBrowserEvents) NavigateComplete (URL: ARRAY OF CHAR), NEW, ABSTRACT;
         (this: DWebBrowserEvents) NewWindow (URL: ARRAY OF CHAR; Flags: INTEGER; TargetFrameName: ARRAY OF CHAR; PostData: CtlT.Any; Headers: ARRAY OF CHAR; VAR Processed: BOOLEAN), NEW, ABSTRACT;
         (this: DWebBrowserEvents) ProgressChange (Progress, ProgressMax: INTEGER), NEW, ABSTRACT;
         (this: DWebBrowserEvents) PropertyChange (Property: ARRAY OF CHAR), NEW, ABSTRACT;
         (this: DWebBrowserEvents) Quit (VAR Cancel: BOOLEAN), NEW, ABSTRACT;
         (this: DWebBrowserEvents) StatusTextChange (Text: ARRAY OF CHAR), NEW, ABSTRACT;
         (this: DWebBrowserEvents) TitleChange (Text: ARRAY OF CHAR), NEW, ABSTRACT;
         (this: DWebBrowserEvents) WindowActivate, NEW, ABSTRACT;
         (this: DWebBrowserEvents) WindowMove, NEW, ABSTRACT;
         (this: DWebBrowserEvents) WindowResize, NEW, ABSTRACT
      END;

      DWebBrowserEvents2 = POINTER TO ABSTRACT RECORD (CtlT.OutObject)
         (this: DWebBrowserEvents2) BeforeNavigate2 (pDisp: CtlT.Object; URL, Flags, TargetFrameName, PostData, Headers: CtlT.Any; VAR Cancel: BOOLEAN), NEW, ABSTRACT;
         (this: DWebBrowserEvents2) CommandStateChange (Command: INTEGER; Enable: BOOLEAN), NEW, ABSTRACT;
         (this: DWebBrowserEvents2) DocumentComplete (pDisp: CtlT.Object; URL: CtlT.Any), NEW, ABSTRACT;
         (this: DWebBrowserEvents2) DownloadBegin, NEW, ABSTRACT;
         (this: DWebBrowserEvents2) DownloadComplete, NEW, ABSTRACT;
         (this: DWebBrowserEvents2) GetIID (OUT iid: COM.GUID);
         (this: DWebBrowserEvents2) Invoke (id, n: INTEGER; VAR par: CtlT.ParList; VAR ret: WinOleAut.VARIANT);
         (this: DWebBrowserEvents2) NavigateComplete2 (pDisp: CtlT.Object; URL: CtlT.Any), NEW, ABSTRACT;
         (this: DWebBrowserEvents2) NewWindow2 (VAR ppDisp: CtlT.Object; VAR Cancel: BOOLEAN), NEW, ABSTRACT;
         (this: DWebBrowserEvents2) OnFullScreen (FullScreen: BOOLEAN), NEW, ABSTRACT;
         (this: DWebBrowserEvents2) OnMenuBar (MenuBar: BOOLEAN), NEW, ABSTRACT;
         (this: DWebBrowserEvents2) OnQuit, NEW, ABSTRACT;
         (this: DWebBrowserEvents2) OnStatusBar (StatusBar: BOOLEAN), NEW, ABSTRACT;
         (this: DWebBrowserEvents2) OnTheaterMode (TheaterMode: BOOLEAN), NEW, ABSTRACT;
         (this: DWebBrowserEvents2) OnToolBar (ToolBar: BOOLEAN), NEW, ABSTRACT;
         (this: DWebBrowserEvents2) OnVisible (Visible: BOOLEAN), NEW, ABSTRACT;
         (this: DWebBrowserEvents2) ProgressChange (Progress, ProgressMax: INTEGER), NEW, ABSTRACT;
         (this: DWebBrowserEvents2) PropertyChange (szProperty: ARRAY OF CHAR), NEW, ABSTRACT;
         (this: DWebBrowserEvents2) StatusTextChange (Text: ARRAY OF CHAR), NEW, ABSTRACT;
         (this: DWebBrowserEvents2) TitleChange (Text: ARRAY OF CHAR), NEW, ABSTRACT
      END;

      IWebBrowser = POINTER TO RECORD (CtlT.Object)
         (this: IWebBrowser) Application (): CtlT.Object, NEW;
         (this: IWebBrowser) Busy (): BOOLEAN, NEW;
         (this: IWebBrowser) Container (): CtlT.Object, NEW;
         (this: IWebBrowser) Document (): CtlT.Object, NEW;
         (this: IWebBrowser) GoBack, NEW;
         (this: IWebBrowser) GoForward, NEW;
         (this: IWebBrowser) GoHome, NEW;
         (this: IWebBrowser) GoSearch, NEW;
         (this: IWebBrowser) Height (): INTEGER, NEW;
         (this: IWebBrowser) Left (): INTEGER, NEW;
         (this: IWebBrowser) LocationName (): CtlT.Strg, NEW;
         (this: IWebBrowser) LocationURL (): CtlT.Strg, NEW;
         (this: IWebBrowser) Navigate (URL: ARRAY OF CHAR; Flags, TargetFrameName, PostData, Headers: CtlT.Any), NEW;
         (this: IWebBrowser) PUTHeight (p1: INTEGER), NEW;
         (this: IWebBrowser) PUTLeft (p1: INTEGER), NEW;
         (this: IWebBrowser) PUTTop (p1: INTEGER), NEW;
         (this: IWebBrowser) PUTWidth (p1: INTEGER), NEW;
         (this: IWebBrowser) Parent (): CtlT.Object, NEW;
         (this: IWebBrowser) Refresh, NEW;
         (this: IWebBrowser) Refresh2 (Level: CtlT.Any), NEW;
         (this: IWebBrowser) Stop, NEW;
         (this: IWebBrowser) Top (): INTEGER, NEW;
         (this: IWebBrowser) TopLevelContainer (): BOOLEAN, NEW;
         (this: IWebBrowser) Type (): CtlT.Strg, NEW;
         (this: IWebBrowser) Width (): INTEGER, NEW
      END;

      IWebBrowser2 = POINTER TO RECORD (CtlT.Object)
         (this: IWebBrowser2) AddressBar (): BOOLEAN, NEW;
         (this: IWebBrowser2) Application (): CtlT.Object, NEW;
         (this: IWebBrowser2) Busy (): BOOLEAN, NEW;
         (this: IWebBrowser2) ClientToWindow (VAR pcx, pcy: INTEGER), NEW;
         (this: IWebBrowser2) Container (): CtlT.Object, NEW;
         (this: IWebBrowser2) Document (): CtlT.Object, NEW;
         (this: IWebBrowser2) ExecWB (cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT; pvaIn, pvaOut: CtlT.Any), NEW;
         (this: IWebBrowser2) FullName (): CtlT.Strg, NEW;
         (this: IWebBrowser2) FullScreen (): BOOLEAN, NEW;
         (this: IWebBrowser2) GetProperty (Property: ARRAY OF CHAR): CtlT.Any, NEW;
         (this: IWebBrowser2) GoBack, NEW;
         (this: IWebBrowser2) GoForward, NEW;
         (this: IWebBrowser2) GoHome, NEW;
         (this: IWebBrowser2) GoSearch, NEW;
         (this: IWebBrowser2) HWND (): INTEGER, NEW;
         (this: IWebBrowser2) Height (): INTEGER, NEW;
         (this: IWebBrowser2) Left (): INTEGER, NEW;
         (this: IWebBrowser2) LocationName (): CtlT.Strg, NEW;
         (this: IWebBrowser2) LocationURL (): CtlT.Strg, NEW;
         (this: IWebBrowser2) MenuBar (): BOOLEAN, NEW;
         (this: IWebBrowser2) Name (): CtlT.Strg, NEW;
         (this: IWebBrowser2) Navigate (URL: ARRAY OF CHAR; Flags, TargetFrameName, PostData, Headers: CtlT.Any), NEW;
         (this: IWebBrowser2) Navigate2 (URL, Flags, TargetFrameName, PostData, Headers: CtlT.Any), NEW;
         (this: IWebBrowser2) Offline (): BOOLEAN, NEW;
         (this: IWebBrowser2) PUTAddressBar (p1: BOOLEAN), NEW;
         (this: IWebBrowser2) PUTFullScreen (p1: BOOLEAN), NEW;
         (this: IWebBrowser2) PUTHeight (p1: INTEGER), NEW;
         (this: IWebBrowser2) PUTLeft (p1: INTEGER), NEW;
         (this: IWebBrowser2) PUTMenuBar (p1: BOOLEAN), NEW;
         (this: IWebBrowser2) PUTOffline (p1: BOOLEAN), NEW;
         (this: IWebBrowser2) PUTRegisterAsBrowser (p1: BOOLEAN), NEW;
         (this: IWebBrowser2) PUTRegisterAsDropTarget (p1: BOOLEAN), NEW;
         (this: IWebBrowser2) PUTResizable (p1: BOOLEAN), NEW;
         (this: IWebBrowser2) PUTSilent (p1: BOOLEAN), NEW;
         (this: IWebBrowser2) PUTStatusBar (p1: BOOLEAN), NEW;
         (this: IWebBrowser2) PUTStatusText (p1: ARRAY OF CHAR), NEW;
         (this: IWebBrowser2) PUTTheaterMode (p1: BOOLEAN), NEW;
         (this: IWebBrowser2) PUTToolBar (p1: INTEGER), NEW;
         (this: IWebBrowser2) PUTTop (p1: INTEGER), NEW;
         (this: IWebBrowser2) PUTVisible (p1: BOOLEAN), NEW;
         (this: IWebBrowser2) PUTWidth (p1: INTEGER), NEW;
         (this: IWebBrowser2) Parent (): CtlT.Object, NEW;
         (this: IWebBrowser2) Path (): CtlT.Strg, NEW;
         (this: IWebBrowser2) PutProperty (Property: ARRAY OF CHAR; vtValue: CtlT.Any), NEW;
         (this: IWebBrowser2) QueryStatusWB (cmdID: OLECMDID): OLECMDF, NEW;
         (this: IWebBrowser2) Quit, NEW;
         (this: IWebBrowser2) ReadyState (): tagREADYSTATE, NEW;
         (this: IWebBrowser2) Refresh, NEW;
         (this: IWebBrowser2) Refresh2 (Level: CtlT.Any), NEW;
         (this: IWebBrowser2) RegisterAsBrowser (): BOOLEAN, NEW;
         (this: IWebBrowser2) RegisterAsDropTarget (): BOOLEAN, NEW;
         (this: IWebBrowser2) Resizable (): BOOLEAN, NEW;
         (this: IWebBrowser2) ShowBrowserBar (pvaClsid, pvarShow, pvarSize: CtlT.Any), NEW;
         (this: IWebBrowser2) Silent (): BOOLEAN, NEW;
         (this: IWebBrowser2) StatusBar (): BOOLEAN, NEW;
         (this: IWebBrowser2) StatusText (): CtlT.Strg, NEW;
         (this: IWebBrowser2) Stop, NEW;
         (this: IWebBrowser2) TheaterMode (): BOOLEAN, NEW;
         (this: IWebBrowser2) ToolBar (): INTEGER, NEW;
         (this: IWebBrowser2) Top (): INTEGER, NEW;
         (this: IWebBrowser2) TopLevelContainer (): BOOLEAN, NEW;
         (this: IWebBrowser2) Type (): CtlT.Strg, NEW;
         (this: IWebBrowser2) Visible (): BOOLEAN, NEW;
         (this: IWebBrowser2) Width (): INTEGER, NEW
      END;

      IWebBrowserApp = POINTER TO RECORD (CtlT.Object)
         (this: IWebBrowserApp) Application (): CtlT.Object, NEW;
         (this: IWebBrowserApp) Busy (): BOOLEAN, NEW;
         (this: IWebBrowserApp) ClientToWindow (VAR pcx, pcy: INTEGER), NEW;
         (this: IWebBrowserApp) Container (): CtlT.Object, NEW;
         (this: IWebBrowserApp) Document (): CtlT.Object, NEW;
         (this: IWebBrowserApp) FullName (): CtlT.Strg, NEW;
         (this: IWebBrowserApp) FullScreen (): BOOLEAN, NEW;
         (this: IWebBrowserApp) GetProperty (Property: ARRAY OF CHAR): CtlT.Any, NEW;
         (this: IWebBrowserApp) GoBack, NEW;
         (this: IWebBrowserApp) GoForward, NEW;
         (this: IWebBrowserApp) GoHome, NEW;
         (this: IWebBrowserApp) GoSearch, NEW;
         (this: IWebBrowserApp) HWND (): INTEGER, NEW;
         (this: IWebBrowserApp) Height (): INTEGER, NEW;
         (this: IWebBrowserApp) Left (): INTEGER, NEW;
         (this: IWebBrowserApp) LocationName (): CtlT.Strg, NEW;
         (this: IWebBrowserApp) LocationURL (): CtlT.Strg, NEW;
         (this: IWebBrowserApp) MenuBar (): BOOLEAN, NEW;
         (this: IWebBrowserApp) Name (): CtlT.Strg, NEW;
         (this: IWebBrowserApp) Navigate (URL: ARRAY OF CHAR; Flags, TargetFrameName, PostData, Headers: CtlT.Any), NEW;
         (this: IWebBrowserApp) PUTFullScreen (p1: BOOLEAN), NEW;
         (this: IWebBrowserApp) PUTHeight (p1: INTEGER), NEW;
         (this: IWebBrowserApp) PUTLeft (p1: INTEGER), NEW;
         (this: IWebBrowserApp) PUTMenuBar (p1: BOOLEAN), NEW;
         (this: IWebBrowserApp) PUTStatusBar (p1: BOOLEAN), NEW;
         (this: IWebBrowserApp) PUTStatusText (p1: ARRAY OF CHAR), NEW;
         (this: IWebBrowserApp) PUTToolBar (p1: INTEGER), NEW;
         (this: IWebBrowserApp) PUTTop (p1: INTEGER), NEW;
         (this: IWebBrowserApp) PUTVisible (p1: BOOLEAN), NEW;
         (this: IWebBrowserApp) PUTWidth (p1: INTEGER), NEW;
         (this: IWebBrowserApp) Parent (): CtlT.Object, NEW;
         (this: IWebBrowserApp) Path (): CtlT.Strg, NEW;
         (this: IWebBrowserApp) PutProperty (Property: ARRAY OF CHAR; vtValue: CtlT.Any), NEW;
         (this: IWebBrowserApp) Quit, NEW;
         (this: IWebBrowserApp) Refresh, NEW;
         (this: IWebBrowserApp) Refresh2 (Level: CtlT.Any), NEW;
         (this: IWebBrowserApp) StatusBar (): BOOLEAN, NEW;
         (this: IWebBrowserApp) StatusText (): CtlT.Strg, NEW;
         (this: IWebBrowserApp) Stop, NEW;
         (this: IWebBrowserApp) ToolBar (): INTEGER, NEW;
         (this: IWebBrowserApp) Top (): INTEGER, NEW;
         (this: IWebBrowserApp) TopLevelContainer (): BOOLEAN, NEW;
         (this: IWebBrowserApp) Type (): CtlT.Strg, NEW;
         (this: IWebBrowserApp) Visible (): BOOLEAN, NEW;
         (this: IWebBrowserApp) Width (): INTEGER, NEW
      END;

      MozillaBrowser = IWebBrowser2;

      CommandStateChangeConstants = INTEGER;

      OLECMDEXECOPT = INTEGER;

      OLECMDF = INTEGER;

      OLECMDID = INTEGER;

      tagREADYSTATE = INTEGER;

   PROCEDURE IsIWebBrowser (v: CtlT.Any): BOOLEAN;
   PROCEDURE IsIWebBrowser2 (v: CtlT.Any): BOOLEAN;
   PROCEDURE IsIWebBrowserApp (v: CtlT.Any): BOOLEAN;
   PROCEDURE NewMozillaBrowser (): IWebBrowser2;
   PROCEDURE NewMozillaBrowser_IWebBrowser (): IWebBrowser;
   PROCEDURE NewMozillaBrowser_IWebBrowserApp (): IWebBrowserApp;
   PROCEDURE ThisIWebBrowser (v: CtlT.Any): IWebBrowser;
   PROCEDURE ThisIWebBrowser2 (v: CtlT.Any): IWebBrowser2;
   PROCEDURE ThisIWebBrowserApp (v: CtlT.Any): IWebBrowserApp;


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2018, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB