GeoMedia Discussions

[ThomasG]

When starting the program via: 

gobjGeoApp = CType(CreateObject("Geomedia.Application"), geomedia.Application)

I get the following error message: The ActiveX component cannot be created.

On the other hand, I open Geomedia and use the GetObject method instead of CreateObject:

gobjGeoApp = CType(GetObject(, "GeoMedia.Application"), geomedia.Application)

it works. I'm using Geomedia version 16.6.0 build 1200 and Visual Studio 2019.

I have included the following references:

I cannot currently explain why it is. Can you help me with the problem?

[hesrah]

Hi ThomasG

Did you ever try without type casting?

Something like

Dim gobjGeoApp as Object

gobjGeoApp = CreateObject("Geomedia.Application")

Btw: You have to use Strict Off for this.

[ThomasG]

Hi hesrah,

Thank you for your prompt reply. I tested your Code in a new VB project, unfortunately without success. The error message remains the same.

[hesrah]

Hi ThomasG

I tried with GM 16.6.0.1200 and VS2010. Works without problems.

Maybe your GM installation is corrupt or there is a problem with the combination GM & VS2019.

Have no others ideas, sorry.

[Hal]

I don't know either.  If you have a reproducible test case you probably need to file a support ticket.  GM 16.6 is built with VS2017 and is compatible with VS2019 so hopefully that's not the issue!  - Hal

[ThomasG]

I tested the test.vbs program to rule out VB2019 as the cause.

SET gobjGeoApp = CreateObject("Geomedia.Application")
SET objDoc = gobjGeoApp.Open("c:\Geoworkspaces\USSampleData.gws")
gobjGeoApp.Visible = True

The same error message appears.
My installation may be corrupt. I'll check that and maybe redo.

[ThomasG]

The following error message appears:

[ThomasG]

It works now. I deleted a lot of old Geomedia installations before I reinstalled Geomedia.
Thanks for your help

[hesrah]

well done