Multiple Instances COM

[jc0r]

Hi

Does anyone know of a way that i can use COM to multiple instances of BA? It oinly ever sends to the first instance?

Thanks

[osknows]

I haven't tried it myself on multiple instances so I don't know. However, in the COM settings there are settings for IP address and port. The COM also has a function setIPAddress(ip:String) which allows setting IP address (and perhaps port?)

You could try the same localhost IP address with different ports.
Instance 1: 127.0.0.1:8000
COM1: 127.0.0.1:8000

Instance 2: 127.0.0.1:8080
COM2: 127.0.0.1:8080

If that doesn't work try different IP, eg 127.0.0.1 on one instance and 127.0.0.99 on the other.

This is only a suggestion and no idea if it works?

Os

[osknows]

It looks like setIPAddress also accepts arguments for port, eg setIPAddress("127.0.0.1","8000")

[jc0r]

Hi, thanks for the response. I've had a look at the settings and even the userguide would suggest that you can change the IP, however, i've had no such luck. I even tried from another compter on the network but still nothing. The problem i have is whenever i trigger anything via COM, it always errors saying it cannot find 127.0.0.1. Even though i can change the options in BA, it would appear i need to make the changes in Excel. If i could change the IP address of the COM reference in Excel then i might stand a chance.

[jc0r]

Ive had a look at the COM DLL but its far beyond my scope. The only was i know at the moment is to run a VM inside of another computer.

[osknows]

I just tried it now and it does work.

Open 2 instances and enable the COM
Instance1 127.0.0.1:8000
Instance2 127.0.0.1:8080

The following VBA code works.

Code: Select all

Dim i1 As BettingAssistantCom.ComClass
Dim i2 As BettingAssistantCom.ComClass

Sub test()
Dim success As String

    Set i1 = New BettingAssistantCom.ComClass
    i1.SetIPAddress "127.0.0.1", "8000"
    success = i1.openmarket(161782354, 1)
   
    Set i2 = New BettingAssistantCom.ComClass
    i2.SetIPAddress "127.0.0.1", "8080"
    success = i2.openmarket(161782354, 1)

End Sub

You can use a single instance of the COM and SetIPAddress to the other instance if you only want to use a single instance of the COM. Eg

Code: Select all

Dim i1 As BettingAssistantCom.ComClass

Sub test()
Dim success As String

    Set i1 = New BettingAssistantCom.ComClass
    i1.SetIPAddress "127.0.0.1", "8000"
    success = i1.openmarket(161782354, 1)
   
    i1.SetIPAddress "127.0.0.1", "8080"
    success = i1.openmarket(161782354, 1)

End Sub

[jc0r]

That's great. Thank you so much for this!