WebBrowser editabile

softdevo@tiscali.it · Post by **softdevo@tiscali.it** » Fri Feb 15, 2019 3:26 pm

In Vulcan usavo il controllo Webbrowser come editor HTML con questo codice nel CONSTRUCTOR della pagina:

SELF:oWebBrowser1:PreviewKeyDown += System.Windows.Forms.PreviewKeyDownEventHandler{ SELF , @WebBrowser1PreviewKeyDown() }

SELF:oWebBrowser1:AllowNavigation := FALSE
SELF:oWebBrowser1:AllowWebBrowserDrop := FALSE
SELF:oWebBrowser1:ScriptErrorsSuppressed := TRUE

SELF:oWebBrowser1:DocumentText := "<html><body></body></html>"
IVarPut(SELF:oWebBrowser1:Document:DomDocument,#DesignMode,"On")
SELF:oWebBrowser1:Document:ExecCommand("fontSize", FALSE,3)
Ora la funzione ivarput non funziona

Descrizione: No exported variable

Funzione : XSharp.RT
Oggetto : IVarPut

Stack :
in XSharp.RT.OOPHelpers.IVarPut(Object oObject, String cIVar, Object oValue, Boolean lSelf)
in XSharp.RT.Functions.IVarPut(Object o, String cIVar, __Usual uValue)
in WSendMail..ctor()

Qualche idea?

Danilo

Chris · Post by **Chris** » Fri Feb 15, 2019 4:33 pm

Hi Danilo, in which line of code does the error happen?

softdevo@tiscali.it · Post by **softdevo@tiscali.it** » Fri Feb 15, 2019 4:41 pm

AT line:

IVarPut(SELF:oWebBrowser1:Document:DomDocument,#DesignMode,"On")

Danilo

Chris · Post by **Chris** » Fri Feb 15, 2019 8:59 pm

Oops, sorry, I did not see this line before. Has the Document object been created, before you try to access it? I think you need to open a page first. Please do a

? SELF:oWebBrowser1:Document:DomDocument:GetType():ToString()

before you use the IVarPut(), what type does it return?

Chris

George · Post by **George** » Fri Feb 15, 2019 9:07 pm

Danilo,

as Chris said:
>Has the Document object been created, before you try to access it?

I think you have to change the DesignMode into the Event: DocumentCompleted:

PRIVATE WebBrowser AS System.Windows.Forms.WebBrowser

SELF:WebBrowser := System.Windows.Forms.WebBrowser{}
...
SELF:WebBrowser:DocumentCompleted += System.Windows.Forms.WebBrowserDocumentCompletedEventHandler{ SELF, @WebBrowser_DocumentCompleted() }
...
PRIVATE METHOD WebBrowser_DocumentCompleted( sender AS System.Object, e AS System.Windows.Forms.WebBrowserDocumentCompletedEventArgs ) AS System.Void
SELF:WebBrowser:Document:ExecCommand("EditMode", True, NULL)
RETURN

or someting similar.

regards
George

softdevo@tiscali.it · Post by **softdevo@tiscali.it** » Sat Feb 16, 2019 9:15 am

Before calling ivarput I initialize the document:
SELF:oWebBrowser1:DocumentText := "<html><body></body></html>"

and I have the method:

METHOD WebBrowser1DocumentCompleted(sender AS System.Object , e AS System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) AS System.Void
LOCAL oType AS Type
LOCAL oPropertyInfo AS System.Reflection.PropertyInfo
LOCAL oWB := (WebBrowser)sender AS WebBrowser

oType :=oWB:Document:DomDocument:GetType()

oPropertyInfo := oType:GetProperty("designMode") // is null
oPropertyInfo:SetValue(oWB:Document:DomDocument, "On", NULL)

RETURN

wriedmann · Post by **wriedmann** » Sat Feb 16, 2019 11:37 am

Ciao Danilo,

with the Vulcan runtime it worked and with the X# runtime not anymore?

(scrivo in inglese che anche gli altri non hanno bisogno di traduttori).

Saluti

Wolfgang

softdevo@tiscali.it · Post by **softdevo@tiscali.it** » Sat Feb 16, 2019 5:45 pm

The problem is solved

Danilo

SELF:oWebBrowser1:AllowNavigation := FALSE
SELF:oWebBrowser1:AllowWebBrowserDrop := FALSE
SELF:oWebBrowser1:ScriptErrorsSuppressed := TRUE

SELF:oWebBrowser1:DocumentText := "<html><body></body></html>"
SELF:oWebBrowser1:Document:ExecCommand("EditMode",TRUE,NIL)
SELF:oWebBrowser1:Document:ExecCommand("fontSize",FALSE,3)

Main menu