Cannot create ActiveX component

[Rocio]

I have a windows app. written in VB6, now we need to expose some of
its classes through a web service.

I am only able to expose the classes using late binding becasue that's
the way the original VB6 was written. I ahve already exposed some of
the original classes, and they work fine. Now, I added a new ActiveX
component to the windows app (in vb6). I am able to call it by late
binding from within the vb6 app. itself, and from a dummy vbs file
(visual basic script), but it crashes when I tried to call it from a
simple <WebMethod> in VB.NET:

<WebMethod()> Public Function PostPaymentToSe rver(ByVal
TCMPaymentTrans actionID As Long) _
As PostPayment
Dim obj As Object
'Dim objPost As New TCMPostPayments .clsPostPayment BDS
Dim blnRet As Boolean
Dim objRes As New PostPayment

blnRet = False
Try
obj = CreateObject("T CPostPayment.cl sPostPaymentBDS ")
blnRet = obj.AcceptPayme nt(TCMPaymentTr ansactionID)
'blnRet = objPost.AcceptP ayment(TCMPayme ntTransactionID )
If blnRet = True Then
objRes.ErrorStr ing = ""
Else
objRes.ErrorStr ing = obj.ErrorMessag e
End If
Catch ex As Exception
objRes.ErrorStr ing = "Error: " + ex.ToString
Finally
obj = Nothing
End Try

Return objRes
End Function

I get this:

Error: System.Exceptio n: Cannot create ActiveX component. at
Microsoft.Visua lBasic.Interact ion.CreateObjec t(String ProgId, String
ServerName) at TaxCollectionWS _BS.WebService. PostPaymentToSe rver(Int64
TCMPaymentTrans actionID) in
C:\TaxCollectio nWeb\TaxCollect ionWS\TaxCollec tionWS_BS\WebSe rvice.vb:line
251

any ideas why?
line 251 is the CreateObject line, from there it goes straight to
Catch ex.

The point is: I can use late binding call on this COM object from
another VB6 app, from a VBS script, but not from my web service app.

[Laila F]

RE: Cannot create ActiveX component

I have exactly the same problem with my C# web service, which is attempting
to create an ActiveX-component. When I try to call it from within C# as an
ordinary application, it works fine, but when I invoke the web method from
another application, it crashes. I get a
System.Runtime. InteropServices .COMException. I have a catch-clause which
catches the COM-exception when called from within the application, but for
some reason it seems to ignore this when called from another application.
That said, there is no reason why the exception should be thrown in the first
place, as I provide the correct information to the method. I deliberately
sent it null-values from within the application just to test the
catch-clause, which then worked fine.

Did you find out why this happened? Or perhaps a work-around? I would be
very happy to hear from you if you did.

"Rocio" wrote:
[color=blue]
> I have a windows app. written in VB6, now we need to expose some of
> its classes through a web service.
>
> I am only able to expose the classes using late binding becasue that's
> the way the original VB6 was written. I ahve already exposed some of
> the original classes, and they work fine. Now, I added a new ActiveX
> component to the windows app (in vb6). I am able to call it by late
> binding from within the vb6 app. itself, and from a dummy vbs file
> (visual basic script), but it crashes when I tried to call it from a
> simple <WebMethod> in VB.NET:
>
> <WebMethod()> Public Function PostPaymentToSe rver(ByVal
> TCMPaymentTrans actionID As Long) _
> As PostPayment
> Dim obj As Object
> 'Dim objPost As New TCMPostPayments .clsPostPayment BDS
> Dim blnRet As Boolean
> Dim objRes As New PostPayment
>
> blnRet = False
> Try
> obj = CreateObject("T CPostPayment.cl sPostPaymentBDS ")
> blnRet = obj.AcceptPayme nt(TCMPaymentTr ansactionID)
> 'blnRet = objPost.AcceptP ayment(TCMPayme ntTransactionID )
> If blnRet = True Then
> objRes.ErrorStr ing = ""
> Else
> objRes.ErrorStr ing = obj.ErrorMessag e
> End If
> Catch ex As Exception
> objRes.ErrorStr ing = "Error: " + ex.ToString
> Finally
> obj = Nothing
> End Try
>
> Return objRes
> End Function
>
> I get this:
>
> Error: System.Exceptio n: Cannot create ActiveX component. at
> Microsoft.Visua lBasic.Interact ion.CreateObjec t(String ProgId, String
> ServerName) at TaxCollectionWS _BS.WebService. PostPaymentToSe rver(Int64
> TCMPaymentTrans actionID) in
> C:\TaxCollectio nWeb\TaxCollect ionWS\TaxCollec tionWS_BS\WebSe rvice.vb:line
> 251
>
> any ideas why?
> line 251 is the CreateObject line, from there it goes straight to
> Catch ex.
>
> The point is: I can use late binding call on this COM object from
> another VB6 app, from a VBS script, but not from my web service app.
>[/color]