LibreOffice events listener

[marcov]

It seems that the problem is a small bug in the TAutoObject.GetTypeInfo function - should return DispTypeInfo instead of ClassInfo.

... and it works trunk commit ac510d391f9d784a00275836715a25a41331460f

thanks!

Still exceptions when closing (RPC server something) it seems.

[Thaddy]

That is probably the same as with ms: you need to mask out all floating point exceptions, e.g, from memory Set8087CW  with $1332 controlword. This is only needed on Windows32, not on nixes or 64bit. If necessary on other platforms, use SetExceptionMask instead and don't forget to restore on exit.

[korba812]

I can also see this message if I close LibreOffice before closing sample project. But this looks like a logic error of example project - in the FormClose event there is an attempt to operate on a LibreOffice instance that no longer exists.

[chris_laz]

Brilliant, thanks guys. That has fixed it.

I suspected it was something simple like this, I just hadn't got as far as combing through the existing FPC source to double-check these things.

For the moment, rather than downloading a dev build of FPC, I've just re-implemented the TAutoObject in my LibreOfficeEventListener unit, with the required fix in the GetTypeInfo method:

Code: Pascal  [Select][+][-]

1. function TAutoObjectBugFixed.GetTypeInfo(Index, LocaleID: longint; out TypeInfo): HResult; stdcall;
2. begin
3.    if Index<>0 then Result := DISP_E_BADINDEX
4.    else begin
5.       ITypeInfo(TypeInfo) := TAutoObjectFactory(Factory).DispTypeInfo; // bug fix for FPC 3.2.2, was returning ClassInfo
6.       Result := S_OK;
7.    end;
8. end;
9.  

Thanks again!