Rollout of Applet

[CLKurutz]

Hello. I have created several applets that chain together. They work fine on my PC with the full version of Formativ. I am trying to install them on a PC with Formativ Run Time. I receive the following message:

EAccessViolation
h:AdvansysFormativAppletsFVSH Room Setup Art Studio_Encoded.vbf
Access violation at address 02BBE89D in module ‘formativ.dll’. Read of address 00098053 at line 8, column 6

The line of code that is at the address listed is:

if ActivityRoom.ShowModal = mrOK then

The line of code before the above states to open a custom view:

Call GroupWise.ViewOpenFile(p:GroupWiseViewsFormativGWViewsResActivity”, “”, “”)

The runtime also does not load the above custom view. In full version all works fine.

Any help would be appreciated.

Topic

[CLKurutz]

The .dll error seems to be fixed. The part of the code to load the custom view is still not working.

Call GroupWise.ViewOpenFile(p:GroupWiseViewsFormativGWViewsResActivity”, “”, “”)

The runtime also does not load the above custom view. In full version all works fine.

Any help would be greatly appreciated.

quote:

---

Originally posted by CLKurutz:
Hello. I have created several applets that chain together. They work fine on my PC with the full version of Formativ. I am trying to install them on a PC with Formativ Run Time. I receive the following message:

EAccessViolation
h:AdvansysFormativAppletsFVSH Room Setup Art Studio_Encoded.vbf
Access violation at address 02BBE89D in module ‘formativ.dll’. Read of address 00098053 at line 8, column 6

The line of code that is at the address listed is:

if ActivityRoom.ShowModal = mrOK then

The line of code before the above states to open a custom view:

Call GroupWise.ViewOpenFile(p:GroupWiseViewsFormativGWViewsResActivity”, “”, “”)

The runtime also does not load the above custom view. In full version all works fine.

Any help would be appreciated.

---

[Support 1]

Cathy,

The following is from your post in a different thread, which I think was actually intended for this thread.

quote:

---

We have this working. To get it working, we had to set the custom view path under Tools – Environment in GroupWise even though the path is hard coded.

Now, we have run into an issue with another piece of the code. The following code is not inserting a graphic. This works on two laptops but not on the majority of PCs.

If ActivityRoom.RoomSetup.itemindex = 0 then
ActivityRoom.RoomSetupImage.Picture.LoadFromFile_(“p:GroupWiseViewsactivityroomregularactivity.jpg”)
Utilities.CopyHTMLToClipboard(“
“)
End If

The user has rights to the folder and the graphic is displayed on the form it is just not inserted into the message area. The following is the entire code:

‘ Activity Room

Sub Main(Client, GWEvent)
Dim iFilePath

Call GroupWise.ViewOpenFile_(“p:GroupWiseViewsFormativGWViewsResActivity”, “”, “”)
if ActivityRoom.ShowModal = MROK then
Call groupwise.focusset(fcsMessage, “”)
GroupWise.EditPaste
Call groupwise.focusset(fcsSubject, “”)
end if

End Sub

Sub RoomSetupChange(Sender)

If ActivityRoom.RoomSetup.itemindex = 0 then
ActivityRoom.RoomSetupImage.Picture.LoadFromFile_(“p:GroupWiseViewsactivityroomregularactivity.jpg”)
Utilities.CopyHTMLToClipboard(“
“)
End If

If ActivityRoom.RoomSetup.itemindex = 1 then
ActivityRoom.RoomSetupImage.Picture.LoadFromFile_(“p:GroupWiseViewsactivityroomyoga.jpg”)
Utilities.CopyHTMLToClipboard(“
“)
End If

If ActivityRoom.RoomSetup.itemindex = 2 then
ActivityRoom.RoomSetupImage.Picture.LoadFromFile_(“p:GroupWiseViewsNoSetupNeeded.jpg”)
Utilities.CopyHTMLToClipboard(“
“)
End If
End Sub

---

Can you confirm whether or not the custom view is loading? I have heard (but not confirmed) that the GroupWise token ViewOpenFile() should be used with an unqualified filename, ie.

  call GroupWise.ViewOpenFile("ResActivity", "", "")

where the custom view path is defined in Tools | Environment.

An image will not be loaded into the message area when:

• the message view is not the active window, or
• the compose mode is plain-text, not HTML.

Here is a snippet of code that might solve both of these potential problems:

  call GroupWise.ViewOpenFile(iFileName, "", "")
  iHwnd = Utilities.FindWindow("OFMailView","")
  if ActivityRoom.ShowModal = MROK then
    if not ComposingMessageIsHTML(iHwnd) then
      call GroupWise.SwitchToHTMLView
      Application.ProcessMessages
      call Groupwise.FocusSet(fcsMessage, "")
      Groupwise.EditPaste
      ...
    end if
  end if

function ComposingMessageIsHTML(aHwnd)
  on error resume next
  if aHwnd <> 0 then
    Utilities.SetForegroundWindow(aHwnd)
  end if
  ComposingMessageIsHTML = (GroupWise.EnvEditorStyle = 2)
end function

I hope the above information is helpful.

Advansys Support

[CLKurutz]

Thank you for your reply. I am sorry I did not get back to you sooner. I am just getting back to these issues.

The custom view would not load unless the path was set under Tools – Options – Environment – Custom View Path. Even with the full path typed in the code.

We discovered that GW was set to plain text which would explain why the html code was not working. Once we changed that to html — that piece worked.

I haven’t had a chance to try your code. I will do that today and let you know how it goes.

Thanks again for the thoughts.

[Support 1]

I look forward to hearing about your progress.

Regards,
Advansys Support

[CLKurutz]

I am sorry I have not responded sooner. The rollout has been completed. We found that we were missing the administrative piece that allowed distribution of the applets. We started with only the runtime version of the software.

Thanks for your post.

[Support 1]

Thanks for letting us know about the outcome of your rollout. It’s good to hear you were successful!

Advansys Support

[Author]

Replies