BEA Tuxedo 통신하기

        NotifyCnt = 0
        ' 송신내용
        Dim sndstr As New TypedString(6344)
        ' 수신내용
        Dim rcvstr As New TypedCArray(6344)
        ' 접속서버 환경설정
        Utils.tuxputenv("WSNADDR=//서버아이피" + 서버포트번호)
        ' TPINIT
        Dim tpinfo As New TypedTPINIT()
        Dim ac As AppContext = AppContext.tpinit(tpinfo)
        ac.tpsetunsol(New UnsolicitedMessageHandler(AddressOf MyUMHandler))
        sndstr.PutString(0, SendStr, SendStr.Length)
        Try
            ac.tpcall("BNCSIN", sndstr, rcvstr, 2)
            Dim Addr As IntPtr = rcvstr.Buffer.ToInt64()
            RecvStr = Marshal.PtrToStringAnsi(Addr, 6344)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "TPFAIL")
            Return False
        End Try
        ac.tpterm()