CONNECT_ERROR Problem

[jhillenstedt]

Hi,
I tried to use VB for this and I have this Problem: The first time, I run the Apllication, it works fine.
After that, for testing, I deleted the trusted app via ConsoleOne.
Then, I always get a "CONNECT_ERROR" (2)
Any idea? What exactly means "CONNECT_ERROR"?

Jochen


TAPP.bas:
Declare Function CreateTrustedAppObject Lib "gwtapp.dll" (DomainPath As String, AppName As String, AppDescr As String, ByVal TCPAdress As String, ByVal TCPPort As Long, ByVal SSLRequired As Long, ByVal RequiresQueueing As Long, ByVal MessageRetention As Long, ByVal Overwrite As Long, TrustedAppKey As String) As Long
Declare Function DeleteTrustedAppObject Lib "gwtapp.dll" (DomainPath As String, AppName As String, TrustedAppKey As String) As Long


Test-Proc:

Dim res&
Dim DomainPath$
Dim AppName$
Dim AppDesc$
Dim TCPAddress$
Dim TCPPort&
Dim SSLRequired As Long
Dim RequiresQueueing As Long
Dim MessageRetention As Long
Dim Overwrite As Long
Dim TrustedAppKey$

DomainPath = "F:\gw\domain"
AppName = "MyApp"
AppDesc = "MyTestAPP in VB"
TCPAddress = vbNullString
TCPPort = 0
SSLRequired = 0
RequiresQueueing = 0
MessageRetention = 0
Overwrite = true

TrustedAppKey = Space(65)

res = CreateTrustedAppObject(DomainPath, AppName, AppDesc, TCPAddress, TCPPort, SSLRequired, RequiresQueueing, MessageRetention, Overwrite, TrustedAppKey)

If res <> 0 Then
MsgBox "res=" & res
Else
MsgBox "Key=" & TrustedAppKey
End If