Paul Monge

Paul Monge

  • NA
  • 1
  • 0

Embedding dll in HTML

Mar 8 2007 11:01 AM

I'm developing a project on Visual Studio 2005 and I need to publush it on a web page. I'm using this HTML code:

<object
id="eDataMan"
name="eDataMan"
classid="http:eDataMan.dll#ActivexDotNet.eDataMan"
style="width:100%; height:100%; background-color:ButtonFace; font-family:Arial; font-size:x-
small">
</object>

But all I get is a picture icon on the web page, the program does not run.

This is what I have on my VB.NET project:

Modulo objsafe.vb:
-----------------------------------------------------
Imports System.Runtime.InteropServices

Module objsafe
    <ComImport()> _
    <Guid("CB5BDC81-93C1-11CF-8F20-00805F2CD064")> _
    <InterfaceType(ComInterfaceType.InterfaceIsIUnknown)> _
    Public Interface IObjectSafety
        Function GetInterfaceSafetyOptions(ByRef iid As Guid, ByRef pdwSupportedOptions As Integer, ByRef pdwEnabledOptions As Integer) As Integer
        Function SetInterfaceSafetyOptions(ByRef iid As Guid, ByVal dwOptionSetMask As Integer, ByVal dwEnabledOptions As Integer) As Integer
    End Interface
End Module
-----------------------------------------------------

Control eDataMan.vb:
-----------------------------------------------------
Public Class eDataMan
    'Inherits Windows.Forms.UserControl
    Implements IObjectSafety

    ' Constants for implementation of the IObjectSafety interface
    Private Const INTERFACESAFE_FOR_UNTRUSTED_CALLER As Integer = &H1
    Private Const INTERFACESAFE_FOR_UNTRUSTED_DATA As Integer = &H2

    Public Function GetInterfaceSafetyOptions(ByRef iid As Guid, ByRef pdwSupportedOptions As Integer, ByRef pdwEnabledOptions As Integer) As Integer Implements IObjectSafety.GetInterfaceSafetyOptions
        pdwSupportedOptions = INTERFACESAFE_FOR_UNTRUSTED_CALLER Or INTERFACESAFE_FOR_UNTRUSTED_DATA
        pdwEnabledOptions = INTERFACESAFE_FOR_UNTRUSTED_CALLER Or INTERFACESAFE_FOR_UNTRUSTED_DATA
        Return 0
    End Function

    Public Function SetInterfaceSafetyOptions(ByRef iid As Guid, ByVal dwOptionSetMask As Integer, ByVal dwEnabledOptions As Integer) As Integer Implements IObjectSafety.SetInterfaceSafetyOptions
        Return 0
    End Function

    Private Sub eDataMan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO CODE
        MsgBox("I'm here")
    End Sub
End Class
-----------------------------------------------------