cannot GetBasicQuote

[jdeering]

Dim WithEvents esignal As IESignal.Hooks
Private Sub Command1_Click()
Dim quote As IESignal.BasicQuote
Dim last As Double
Dim Entitled As Boolean

Set esignal = New IESignal.Hooks
esignal.SetApplication ("myusername")
Entitled = esignal.IsEntitled
esignal.RequestSymbol "LU", False
quote = esignal.GetBasicQuote("LU")
last = quote.dLast
Set esignal = Nothing
End Sub

'Entitled=False
'last=0

What is wrong?

[Guest]

Well, you won't get data until you are entitled. You need to get IsEntitled to return TRUE and there are numerous threads on that topic.

Here's one

Another

[jdeering]

I read the 2 threads.
The only difference from my code is that IsEntitled returns an Integer, not Boolean.

So I modified my code to return an Integer.
It is returning 0.

My account includes ActiveX.
My account is registered.
I am calling SetApplication with my username.
The project has a reference to IESignal.

What is wrong?

[Guest]

Have you been able to get any of the sample applications to work?

Your account is properly entitled, so there is no reason that it should not work. I believe that you are developing in C, and if so, I am not sure if anyone has used C to develop an application. If the IsEntitled function does not return TRUE (which may not be = to 1), then nothing else will return.