Error: RPC server is unavailable

[stupomer]

Hi,
I am having this bug come up increasingly often...

A Runtime Error has occurred. Do you wish to Debug:
Line: 1812
Error: The RPC server is unavailable

I am also noticing in the QM log area it is saying:

ActiveX control is not created

I think this has to do with a WebBrowser in Toolbar I have running.....

OpenInTbWebBrowser "http://companywebsite.org/scripts/phsweb.swl?APP=CDRWEB&PKG=7" "ToolbarWebBrowser Drop Down";err ret



If I launch Debug, it tries to debug like this:

Step into Remote Procedure Call
Process: C:\Program Files\QuickMacros 2\qm.exe
Choose program you want to debug: Script

The debugger comes up with the following in the title bar:
Miscellaneous Files - Microsoft Script Editor [run] - http://companywebsite.org/shell/core.js [Read Only]
Client Object & Events
The line that the cursor is blinking at in this window is the following:

window.open(sURL,sName,sFeatures);


Thanks for any advice!!!

Stuart

[Gintaras]

Maybe because OpenInTbWebBrowser is called from another thread. Try this:

Function OpenInTbWebBrowser

Code:

Copy      Help

;/
function $url [$tbname]

;Opens url in web browser control on a QM toolbar.

;url - a URL or a local file of supported format (htm, txt, doc, xls, pdf, gif, folder, etc).
;tbname - toolbar name. Can be omitted when this function is called from the toolbar.

;EXAMPLE (toolbar)
;;/hook ToolbarExProc_TWWB /siz 500 300 /set 2
;www.quickmacros.com :OpenInTbWebBrowser "http://www.quickmacros.com" * web.ico
;Book1.xls :OpenInTbWebBrowser "$personal$\Book1.xls" * $personal$\Book1.xls


int h
str s=tbname
if(s.len) h=win(s.ucase "QM_toolbar")
else h=val(_command) ;;if called from tb, tb handle is stored in _command
if(!h) ret
h=child("" "ActiveX" h)
if(!h) ret

s=url
s.setwintext(h)

;this also works but not sure is it ok if called from other thread:
;SHDocVw.WebBrowser b._getcontrol(h)
;if(b) b.Navigate(s.expandpath(url))