How to use external dll function

[mtheriault2000]

Hi

A GlobalVariable.dll as been created to exchange information between a trading software and the external word.

Function like GVSetString is available:
GVSetString( NewGlobalString, "This string will be strore in the NewGlobalString variable")

What is the process to get access to an external dll.
The file is :C\Program Files (x86)\TS Support\MultiCharts\GlobalVariable.dll

Again any help appreciated because I'm

Martin

 

[RoryA]

Either set a reference to the dll in the References dialog, or use the Declare statement with the Function/sub name.

 

[mtheriault2000]

Hello rorya

- Set as reference: does not work.

I will try to: use the Declare statement with the Function/sub name.

Never done it, but I will look in the help.

Martin

 

[mtheriault2000]

Here is my un working code. I got a message that the file "C:\Program Files (x86)\TS Support\GlobalVariable.dll" is not found

Any Idea why it fail?

Option Explicit

Declare Function GVGetInteger Lib "C:\Program Files (x86)\TS Support\GlobalVariable.dll" (ByVal Price As Double)
Declare Function GVGetString Lib "C:\Program Files (x86)\TS Support\GlobalVariable.dll" (ByVal Val As Integer)

Sub UseGlobalVariable()
   Dim Price As Double
   Dim string2 As String

   Price = GVGetInteger(0)     '    Location of an integer
   string2 = GVGetString(3)    '    Location of a string
End Sub

 

[RoryA]

First thing - are you sure that path is correct?

 

[mtheriault2000]

The address is good, as far as I know since I copied it from Windows Explorer.

I will try to seek more information about this collection. It is mention that it is accessible via Visual Basic. But I have no example to work with.

Martin

 

[RoryA]

Is that the exact error message you get?

 

[mtheriault2000]

Rorya, Indeed, I had an error in the addressing. The file was on to places on the disk

Now, my new error message is translated by:

Error 49: DLL calling convention erroneus

Public DLLString  As String
Public Val As Integer

Option Explicit



Declare Function GV_GetInteger Lib "C:\Program Files (x86)\TS Support\MultiCharts\GlobalVariable.dll" (ByVal Val As Integer)
Declare Function GV_GetString Lib "C:\Program Files (x86)\TS Support\MultiCharts\GlobalVariable.dll" (ByVal Val As Integer)
'


Sub UseGlobalVariable()
Dim Price As Double
Dim string2 As String
Dim va
Price = Price + 1

Price = GV_GetInteger(Val)
string2 = GV_GetString(3)
End Sub

Martin

 

[RoryA]

That sounds like your declaration is wrong, but I can't assist with that as I don't use that software. I would suspect that your Integer variables should be Long though.

 

[Sektor]

Is it COM visible?