Print

Please login or register.
1 Hour 1 Day 1 Week 1 Month Forever
Login with username, password and session length

[jwf]

Okay, not having super luck with this.  Is it possible to get the IDL definitions for SetProfile and GetProfile?

is GetProfile: GetProfile([in, out] VARIANT...
or GetProfile([out] VARIANT

I assume that it expects/produces (whichever) a safearray containing a V_RECORD?

I assume that SetProfile and Connect use ([in] VARIANT...)

[Bob]

I'll check and get back to you. It may not be until Monday.

[Bob]

Here is how the container does it. Hope this helps....

This code Copyright(C) Jriver, Inc. All rights reserved.

TelnetPro.exe code:

void CAquarius::Connect(BSTR* Host, const VARIANT& Profile)
{
        static BYTE parms[] = VTS_PBSTR VTS_VARIANT;
        InvokeHelper(0x53, DISPATCH_METHOD, VT_EMPTY, NULL, parms, Host, &Profile);
}

void CAquarius::GetProfile2(const VARIANT& l_Profile)
{
        static BYTE parms[] = VTS_VARIANT;
        InvokeHelper(0x54, DISPATCH_METHOD, VT_EMPTY, NULL, parms, &l_Profile);
}

void CAquarius::SetProfile2(const VARIANT& l_Profile)
{
        static BYTE parms[] = VTS_VARIANT;
        InvokeHelper(0x55, DISPATCH_METHOD, VT_EMPTY, NULL, parms, &l_Profile);
}


----------------------------------

OCX Code:

/////////////////////////////////////////////////////////////////////////////
//
// Function:    SetProfile/GetProfile
//
// Purpose:             These are the methods to get and set the profile property.
//
// Comments:    I couldn't figure out how to pass any type I wanted, so I
//                              chose LPCTSTR, cast a pointer to a ProfileData object to
//                              LPCTSTR before calling and it should work fine.
//
/////////////////////////////////////////////////////////////////////////////

void CAquariusCtrl::SetProfile(const VARIANT FAR& Profile)
{
        void *pArrayData;
        PassProfile     TempPassProfile;
   
        SafeArrayAccessData(Profile.parray, &pArrayData);
        CopyMemory(&TempPassProfile, pArrayData, sizeof(PassProfile));
        SafeArrayUnaccessData(Profile.parray);

        // TODO:  Write code to check the profile for reasonable values.
        int iPassProfileReturn = IsPassProfileValid(&TempPassProfile);
        if (0 == iPassProfileReturn)
        {
                ProfileData     OldProfile = *m_Profile;
                m_Profile->SetPassProfile(&TempPassProfile);

                // Check for actions that need to be taken based on differences
                // in new and old profiles.
                ActOnNewProfile(&OldProfile, m_Profile);
        } //
        else
        {
                DejaTrace(sevError,traceProfile,"Pass Profile is invalid, bad field =%d.\n", iPassProfileReturn);
        } // else

} // CAquariusCtrl::SetProfile

void CAquariusCtrl::GetProfile(const VARIANT FAR& l_Profile)
{

        void *pArrayData;
        PassProfile     TempPassProfile;

        SafeArrayAccessData(l_Profile.parray, &pArrayData);
        TempPassProfile = m_Profile->GetPassProfile();
        CopyMemory(pArrayData, &TempPassProfile, sizeof(PassProfile));
        SafeArrayUnaccessData(l_Profile.parray);
} // CAquariusCtrl::GetProfile

///////////////////////////////
void CAquariusCtrl::Connect(BSTR FAR* Host, const VARIANT FAR& Profile)
{
....
}



/////////////////////////////////////
header file declarations:

        afx_msg void Connect(BSTR FAR* Host, const VARIANT FAR& Profile);
        afx_msg void GetProfile(const VARIANT FAR& l_Profile);
        afx_msg void SetProfile(const VARIANT FAR& l_Profile);

/////////////////////////////////////
Dispatch calls:

        DISP_FUNCTION(CAquariusCtrl, "Connect", Connect, VT_EMPTY, VTS_PBSTR, VTS_VARIANT)
        DISP_FUNCTION(CAquariusCtrl, "GetProfile", GetProfile, VT_EMPTY, VTS_VARIANT)
        DISP_FUNCTION(CAquariusCtrl, "SetProfile", SetProfile, VT_EMPTY, VTS_VARIANT)

[BGA]

How do I hide the status area at the bottom of the terminal screen ? or change it to a different color other than white.

cheers.

[Bob]

Is this an API question??

If not, the status bar appears as it normally would on a 24 line terminal (you must be in 24 line mode). To change the color in the PRO client, edit the colors in the profile, the status line is one of the things you can change under appearance as label foreground and label background

[Bob]

You can set the terminal type in the default profile without dealing with the profile variant. You can do a connect/set term type/disconnect/reconnect

This will use the terminal type set during the first (essentially instantaneous) open/close. In VB code it looks like this:

        vProfile = Null
        ' set the font
        DejaVu.Font.Name = "ICE 437"
        ' connect to the host
        Call DejaVu.Connect(sHostName, vProfile)
        ' set terminal type to att605
        Call DejaVu.SetTerminalType(3)
        ' disconnect from the host
        Call DejaVu.Disconnect
        ' reconnect to the host (using previously set terminal type)
        Call DejaVu.Connect(sHostName, vProfile)
        ' enable color mapping
        DejaVu.ColorMappingFlag = True
        ' set normal foreground to cyan
        Call DejaVu.SetColor(1, 3)
        ' set normal background to black
        Call DejaVu.SetColor(2, 0)
        ' clear the screen with the new colors
        Call DejaVu.ResetTerminal

[jimn]

Connecting with SSH:

On the Connect call, add "++ssh" (no quotes) to the host name.