OberonCore

NIL dereference (read)

 CtlT.OutDispatch.Invoke   [000004BBH]
   .dispIdMember   INTEGER   304
   .lcid   INTEGER   0
   .n   INTEGER   0
   .puArgErr      NIL VARPAR
   .riid   COM.GUID   {00000000-0000-0000-0000-000000000000}
   .this   CtlT.OutDispatch   [0103F0B0H]

MODULE EventsExcel;

   IMPORT
      CtlT, CtlExcel := CtlExcel9, Dates, Views, Containers,
      OleViews, TextModels, TextViews, TextMappers, StdLog, WinApi;
      
   TYPE
      WorkbookEvents = POINTER TO RECORD (CtlExcel.WorkbookEvents) END;
      
   VAR
      wbe: WorkbookEvents;
      
   PROCEDURE (this: WorkbookEvents) SheetChange (Sh: CtlT.Object; Target: CtlExcel.Range);    BEGIN
      StdLog.String("Sheet was changed. Col: "); StdLog.Int(Target.Column());
      StdLog.String("Row: "); StdLog.Int(Target.Row()); StdLog.Ln;
   END SheetChange;
   
   PROCEDURE (this: WorkbookEvents) Activate;
   BEGIN
      StdLog.String("Activate");  StdLog.Ln;
   END Activate;
   
   PROCEDURE (this: WorkbookEvents) AddinInstall;
   END AddinInstall;
   
   PROCEDURE (this: WorkbookEvents) AddinUninstall;
   END AddinUninstall;
       
   PROCEDURE (this: WorkbookEvents) BeforeClose (VAR Cancel: BOOLEAN);
   END BeforeClose;
       
   PROCEDURE (this: WorkbookEvents) BeforePrint (VAR Cancel: BOOLEAN);
   END BeforePrint;
   
   PROCEDURE (this: WorkbookEvents) BeforeSave (SaveAsUI: BOOLEAN; VAR Cancel: BOOLEAN);
   END BeforeSave;

   PROCEDURE (this: WorkbookEvents) Deactivate;
   END Deactivate;
   
   PROCEDURE (this: WorkbookEvents) NewSheet (Sh: CtlT.Object);
   END NewSheet;
   
   PROCEDURE (this: WorkbookEvents) Open;
   END Open;

   PROCEDURE (this: WorkbookEvents) SheetActivate (Sh: CtlT.Object);
   END SheetActivate;

   PROCEDURE (this: WorkbookEvents) SheetBeforeDoubleClick (Sh: CtlT.Object; Target: CtlExcel.Range; VAR Cancel: BOOLEAN);
   END SheetBeforeDoubleClick;

   PROCEDURE (this: WorkbookEvents) SheetBeforeRightClick (Sh: CtlT.Object; Target: CtlExcel.Range; VAR Cancel: BOOLEAN);
   END SheetBeforeRightClick;

   PROCEDURE (this: WorkbookEvents) SheetCalculate (Sh: CtlT.Object);
   END SheetCalculate;

   PROCEDURE (this: WorkbookEvents) SheetDeactivate (Sh: CtlT.Object);
   END SheetDeactivate;

   PROCEDURE (this: WorkbookEvents) SheetFollowHyperlink (Sh: CtlT.Object; Target: CtlExcel.Hyperlink);
   END SheetFollowHyperlink;

   PROCEDURE (this: WorkbookEvents) SheetSelectionChange (Sh: CtlT.Object; Target: CtlExcel.Range);
   END SheetSelectionChange;

   PROCEDURE (this: WorkbookEvents) WindowActivate (Wn: CtlExcel.Window);
   END WindowActivate;

   PROCEDURE (this: WorkbookEvents) WindowDeactivate (Wn: CtlExcel.Window);
   END WindowDeactivate;

   PROCEDURE (this: WorkbookEvents) WindowResize (Wn: CtlExcel.Window);
   END WindowResize;

   
   PROCEDURE ShowExcel*;
      VAR ws: CtlExcel.Worksheet; wb: CtlExcel.Workbook; 
         range: CtlExcel.Range;
         a: ARRAY 3 OF INTEGER;
         d: Dates.Date; t: Dates.Time;
         date: CtlT.OleDate; (* = REAL *)
         cy: CtlT.OleCy;  (* = LONGINT *)
         v: Views.View;
         text: TextModels.Model; out: TextMappers.Formatter;
   BEGIN
      v := OleViews.NewObjectView("Excel.Sheet");
      IF v # NIL THEN
         (* in excel 8.0 Excel.Sheet is a workbook object ! *)
         wb := CtlExcel.This_Workbook(OleViews.AutoObject(v));
         ws := CtlExcel.This_Worksheet(wb.Worksheets().Item(CtlT.Int(1)));
         
         
         range := ws.Range(CtlT.Str("A1"), NIL);
         range.PUTValue(CtlT.Str("Hello World"));
         range.PUTColumnWidth(CtlT.Int(12));   (* unit = width of "0" in standard font *)
         ws.Range(CtlT.Str("B1"), NIL).PUTValue(CtlT.Int(13));
                  
         text := TextModels.dir.New();
         out.ConnectTo(text);
         out.WriteString("Excel Automation Example");
         out.WriteLn; out.WriteLn; out.WriteLn;
         out.WriteTab; out.WriteTab; out.WriteView(v);
         out.WriteLn; out.WriteLn; out.WriteLn;
         Views.OpenView(TextViews.dir.New(text));
         
         
         (* == КОННЕКТ ==*)
      
         NEW(wbe);
         CtlT.Connect(wbe, wb) ;   
      
         (* == КОННЕКТ ==*)
            
      ELSE
         StdLog.String("cannot open excel object"); StdLog.Ln
      END
   END ShowExcel;

    
   
   
END EventsExcel.

IF pDispParams.cNamedArgs # 0 THEN RETURN 80020007H (* DISP_E_NONAMEDARGS *) END;

MODULE TestWeb;

   IMPORT
      Web := CtlSHDocVw, CtlT, StdLog;

   TYPE
      BrowserEvents = POINTER TO RECORD (Web.DWebBrowserEvents2)
      END;

   VAR
      w: Web.WebBrowser;
      wEvents: BrowserEvents;

   PROCEDURE (this: BrowserEvents) StatusTextChange* (Text: ARRAY OF CHAR);
   BEGIN
      StdLog.String("Statusbar text changed."); StdLog.Ln;
   END StatusTextChange;

   PROCEDURE (this: BrowserEvents) ProgressChange* (Progress: INTEGER; ProgressMax: INTEGER), EMPTY;
(* и т. д. - все остальные методы "обработчики событий" определены пустыми *)

   PROCEDURE Do*;
   BEGIN
      w.PUTVisible(TRUE);
      w.PUTTheaterMode(TRUE);
      w.Navigate("http://www.blackbox.metasystems.ru/", NIL, NIL, NIL, NIL);
   END Do;

   PROCEDURE T1*;
   BEGIN
      w := Web.NewInternetExplorer();
      NEW(wEvents);
      CtlT.Connect(wEvents, w)
   END T1;

END TestWeb.

   TYPE
      Variant* = WinOleAut.VARIANT;
      ParList* = ARRAY [untagged] OF Variant;
   ...   
   PROCEDURE (obj: OutObject) Invoke* (id, n: INTEGER; VAR par: ParList; VAR ret: Variant), NEW, ABSTRACT;
   ...
   PROCEDURE (this: OutDispatch) Invoke (dispIdMember: WinOleAut.DISPID; IN riid: COM.GUID; lcid: WinOle.LCID;
                                       wFlags: SHORTINT; VAR [nil] pDispParams: WinOleAut.DISPPARAMS;
                                       OUT [nil] pVarResult: WinOleAut.VARIANT;
                                       OUT [nil] pExcepInfo: WinOleAut.EXCEPINFO;
                                       OUT [nil] puArgErr: INTEGER): COM.RESULT;
      VAR n: INTEGER;
   BEGIN
      ...
      this.obj.Invoke(dispIdMember, n, pDispParams.rgvarg^, pVarResult);
      RETURN 0
   END Invoke;

   PROCEDURE (obj: OutObject) Invoke* (id, n: INTEGER; VAR [nil] par: ParList; VAR [nil] ret: Variant), NEW, ABSTRACT;

   PROCEDURE (this: DWebBrowserEvents2) Invoke* (id, n: INTEGER; VAR par: CtlT.ParList; VAR ret: CtlT.Variant);
   BEGIN
      CASE id OF
...
      | 270: ASSERT(n = 1, 11); this.FileDownload(CtlC.VarRefBool(par[0])[0]); CtlC.RetBool(par[0])
...
      END
   END Invoke;

   PROCEDURE (this: OutDispatch) Invoke (dispIdMember: WinOleAut.DISPID; IN riid: COM.GUID; ...): COM.RESULT;
      VAR n: INTEGER;
   BEGIN
   .....
      IF pDispParams.cArgs # 0 THEN ASSERT(pDispParams.rgvarg # NIL, 11) END; (* *** *)
      this.obj.Invoke(dispIdMember, n, pDispParams.rgvarg^, pVarResult);
      RETURN 0
   END Invoke;