Connecting to an Application
When the Amt COM Module has been loaded into memory and the appropriate object created, a connection to an application has to be established before any Forms can be accessed. This is done by opening a session to the appropriate Application service or Application Manager service.
Before the Connection can be made two or three properties need to be set:
- IPAddress: Defines the Host Nam (or IP-Address) of the server
- PortNo: Defines the port number of the Application Server or Application Manager.
- UseAppManager: Defines if the system uses a manager or not (Defaults
to False)
Visual Basic
In Visual Basic Script the code to connect to an Application Server is:
Dim ResCode
Set LIONapp = CreateObject("Asysco.Amt.LionClient.ComModule.AmtLionComConnection")
LIONapp.IPAddress = "MyServer"
LIONapp.PortNo = <AppServer PortNo>
ResCode = LIONapp.OpenSession()
If ResCode = 1 Then
WScript.echo("Connected")
Else
WScript.echo("Not Connected")
WScript.echo("Result code is: " & ResCode)
End If
And for an Application Manager:
Dim ResCode
Set LIONapp = CreateObject("Asysco.Amt.LionClient.ComModule.AmtLionComConnection")
LIONapp.IPAddress = "MyServer"
LIONapp.UseAppManager = True
LIONapp.PortNo = <AppManager PortNo>
ResCode = LIONapp.OpenSession()
If ResCode = 1 Then
WScript.echo("Connected")
Else
WScript.echo("Not Connected")
WScript.echo("Result code is: " & ResCode)
End If
Powershell
In Powershell the code to connect to an Application Server is:
Add-Type -Path '<Path to COMModule>\Asysco.Amt.LionCommodule.dll'
# Create an AmtComConnection object
$LionApp = New-Object Asysco.Amt.LionClient.ComModule.AmtLionComConnection
# The URL to connect to
$LionApp.IPAddress = 'MyServer'
$LionApp.PortNo = <AppServer PortNo>
# Try to connect
if ($LionApp.OpenSession() -eq 1) {
Write-Host 'Connected'
} else {
Write-Host 'Connection Failed!!!!!'
}
And for an Application Manager:
Add-Type -Path 'D:\Amt\AmtLionDoc\AMTTools\ComModule\Asysco.Amt.LionCommodule.dll'
# Create an AmtComConnection object
$LionApp = New-Object Asysco.Amt.LionClient.ComModule.AmtLionComConnection
# The URL to connect to
$LionApp.IPAddress = 'MyServer'
$LionApp.UseAppManager = $true
$LionApp.PortNo = <AppManager PortNo>
# Try to connect
if ($LionApp.OpenSession() -eq 1) {
Write-Host 'Connected'
} else {
Write-Host 'Connection Failed!!!!!'
}
C# (.NET)
In C# the example code is for a WPF program named AmtLionComm_Test, with a Button to connect to the Application Server and a TextBox to display the result.
using System.Windows;
using Asysco.Amt.COMModule;
using Asysco.Amt.LionClient.ComModule;
namespace AmtLionComm_Test {
/// <summary>
/// Interaction logic for MainWindow.xaml
/// </summary>
public partial class MainWindow :Window {
private AmtLionComConnection lionComAMT = new AmtLionComConnection();
public AmtLionComConnection LionComAMT {
get { return lionComAMT; }
set { lionComAMT = value; }
}
public MainWindow () {
InitializeComponent();
}
private void btnConnect_Click (Object sender, RoutedEventArgs e) {
//The address and port number for the Application Server or Application Manager.
LionComAMT.IPAddress = "MyServer";
LionComAMT.PortNo = <AppServer PortNo>;
// LionComAMT.UseAppManager = true;
if (LionComAMT.OpenSession() == ResponseCode.Ok) {
edtStatus.Text = "Connected";
} else {
edtStatus.Text = "Unable to connect";
}
}
}
}
For connecting to an Application Manager uncomment the code lion with LionComAMT.UseAppManager = true; and replace the <AppServer PortNo> by the <AppManager PortNo>.