Need to enter Tapilines

Tech-Archive recommends: Fix windows errors by optimizing your registry

Hi all
I have dll for acd control in TAPI 2.2 wich is inside another dll with basic
telephonic handle in TAPI 3.0.
In TAPI 2.2 dll alone I introduce tapiline number like this

Public Sub cmdTAPIINIT_Click()
tapiline.CurrentLineID = txtTAPILINE.Text
lstLineInfo1.Text = "TAPI LINE: #" & tapiline.CurrentLineID
Dim i As Long
For i = 0 To tapiline.numAddresses - 1
AddressName = tapiline.GetAddressName(i)
If Len(AddressName) = 0 Then AddressName = "unnamed"
txtAddress.Text = AddressName
Next
End Sub

but when i put this dll inside other, I can enter any value, I have tried
this..

Private linea As Long
Private AddressName As String
Private m_lineaTAPI As Long
Private m_AddressNameTAPI As String
Private m_lineInfo As String

Property Get AddressNameTAPI() As String
AddressNameTAPI = m_AddressNameTAPI
End Property
Property Get Infolinea() As String
Infolinea = m_lineInfo
End Property
Public Property Let lineaTAPI(ByVal lineaCTI As Long)
m_lineaTAPI = lineaCTI
End Property
Public Property Get lineaTAPI() As Long
lineaTAPI = m_lineaTAPI
End Property

Public Function InicioACD()
Dim success As Boolean
Set tapiline = New capscontrolacd.CvbTAPILine
tapiline.LowAPI = &H10003 ' 1.3 = &H00010003
tapiline.HiAPI = &H20002 ' 3.0 = &H00030000
success = tapiline.Create
If success Then
For linea = 0 To tapiline.numLines - 1
tapiline.CurrentLineID = linea
If tapiline.NegotiatedAPIVersion Then
m_lineaTAPI = linea
End If
Next
End If
m_lineInfo = "TAPI LINE: #" & tapiline.CurrentLineID
Dim i As Long
For i = 0 To tapiline.numAddresses - 1
AddressName = tapiline.GetAddressName(i)
If Len(AddressName) = 0 Then AddressName = "unnamed"
m_AddressNameTAPI = AddressName
Next
End Function

Public Function TAPILinesel()
Set tapiline = New CvbTAPILine
m_lineaTAPI = TAPIInfo.lineadeTAPI
TAPIInfo.lineadeTAPI = tapiline.CurrentLineID
m_lineInfo = "TAPI LINE: #" & tapiline.CurrentLineID
Dim i As Long
For i = 0 To tapiline.numAddresses - 1
AddressName = tapiline.GetAddressName(i)
If Len(AddressName) = 0 Then AddressName = "unnamed"
m_AddressName = AddressName
Next
End Function

And I call this class:
Private Sub cmdstartACD_Click()
Dim ret As Integer
Set acdTAPI = New XCAPSoftphoneX.CAPSACDX
ret = acdTAPI.InicioACD
txtLineTAPI.Text = acdTAPI.lineaTAPI
txtlineinfor.Text = acdTAPI.Infolinea
txtDispvo.Text = acdTAPI.AddressNameTAPI
End Sub

Private Sub cmdtline_Click()
Dim ret As Integer
Dim acdTAPI As New CAPSACDX
ret = acdTAPI.TAPILinesel()
acdTAPI.lineaTAPI = txtLineTAPI.Text
txtlineinfor.Text = acdTAPI.Infolinea
txtDispvo.Text = acdTAPI.AddressNameTAPI
End Sub

First function "InicioACD" works, it shows me lines and address but
"TAPIlinesel" doesn't.
How can I work out this problem with property Let?
What am I doing wrong?

Need help.
Best Regards

Dunadain.

.

Relevant Pages

  • MAPI Emails from Access
    ... I realize this code is quite long, but could someone take a look at the sub ... Private Const mcERR_DOH = vbObjectError + 10000 ... Private mstStatus As String ... Dim db As Database, rs As Recordset ...
    (microsoft.public.access.formscoding)
  • Re: set fontsize with variable
    ... Public Function MsgBoxDLL(Optional strPrompt As String, ... Private m_Prompt As String ... Public Property Let Prompt ... Private Sub cmdButton1_Click ...
    (microsoft.public.vb.general.discussion)
  • Re: Is there a way to prevent a RichTextBox from scrolling?
    ... Private _isRegex As Boolean ... Public Sub New(ByVal thispattern As String, ... Dim entry As tDict ...
    (microsoft.public.dotnet.framework.windowsforms.controls)
  • Re: FileSystemWatcher advice required please
    ... Private ArchiveImport As String ... Private FilesToProcess As ProcessFiles ... Public Sub Main ... Dim NoVersion As New Collection ...
    (microsoft.public.dotnet.framework)
  • Project Error
    ... Private Declare Sub Sleep Lib "Kernel32" ... Dim strDataSrc As String ...
    (microsoft.public.vb.bugs)