Lotsia PLM: Форум по семейству систем PLM/PDM/TDM/ERP/Workflow

WORD PartyOperationRun(
  HWND hWndParent,
  DWORD dwOperID,
  LPPtOperationArgs lpArgs);

typedef struct PtOperationArgs_ {
  DWORD dwSize;
  DWORD dwFlags;
  WORD wVarsInCnt;
  LPCPtOperationVarValue lpVarsIn;
  WORD wVarsOutCnt;
  LPPtOperationVarValue lpVarsOut;
} PtOperationArgs, *LPPtOperationArgs;

typedef struct PtOperationVarValue_ {
  DWORD dwSize;
  char szVarName[51];
  PtValue pvValue;
} PtOperationVarValue, *LPPtOperationVarValue;

typedef struct PtValue_ {
  char cDataType;
  char szValueS[256];
  double dblValueN;
  PtDateTime dtValueT;
} PtValue, *LPPtValue;

typedef struct PtDateTime_ {
  WORD Year;
  BYTE Month;
  BYTE Day;
  BYTE Hour;
  BYTE Min;
  BYTE Sec;
  DWORD MilSec;
} PtDateTime, *LPPtDateTime;

Imports System
Imports System.Runtime.InteropServices

<StructLayout(LayoutKind.Sequential)> Public Structure PtConnectInfo
    Public dwSize As Int32
    <MarshalAs(UnmanagedType.LPStr)> Public lpszLoginName As String
    <MarshalAs(UnmanagedType.LPStr)> Public lpszPassword As String
    Public wDBMSType As Int32
    <MarshalAs(UnmanagedType.LPStr)> Public lpszServer As String
    <MarshalAs(UnmanagedType.LPStr)> Public lpszDataBase As String
End Structure

Module Example
    Private Declare Function PartyInit Lib "PartyApi" (ByVal Wnd As Int32) As Int32
    Private Declare Function PartyConnectInfo Lib "PartyApi" (ByRef lpCnInfo As PtConnectInfo) As Int32

    Sub Main1()
        PartyInit(0)

        Dim p As PtConnectInfo
        p.lpszLoginName = "test"
        Dim pnt As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(p))

        Try
            Dim nRc As Int32 = PartyConnectInfo(p)

            Marshal.StructureToPtr(p, pnt, False)
            Dim anotherP As PtConnectInfo = CType(Marshal.PtrToStructure(pnt, GetType(PtConnectInfo)), PtConnectInfo)
            MsgBox(anotherP.lpszLoginName.ToString)

        Finally
            Marshal.FreeHGlobal(pnt)
        End Try

    End Sub
End Module

Imports System.Runtime.InteropServices
Imports IntPtr = System.IntPtr

Public Class Form1
    <DllImport("PartyAPI.dll", CharSet:=CharSet.Ansi)> _
    Public Shared Function PartyInit(ByVal mainWindow As IntPtr) As Int16
    End Function

    <DllImport("PartyAPI.dll", CharSet:=CharSet.Ansi)> _
    Public Shared Function PartyConnectInfo(ByRef connectionInfo As IntPtr) As Int16
    End Function

    <StructLayout(LayoutKind.Sequential, Pack:=1, CharSet:=CharSet.Ansi)> Public Structure PtConnectInfo
        Public Size As Int32
        <MarshalAs(UnmanagedType.LPStr)> Public LoginName As String
        <MarshalAs(UnmanagedType.LPStr)> Public Password As String
        Public DBMSType As Int16
        <MarshalAs(UnmanagedType.LPStr)> Public Server As String
        <MarshalAs(UnmanagedType.LPStr)> Public DataBase As String
    End Structure

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        PartyInit(0)
        Dim ConnectInfo As PtConnectInfo = GetConnectInfo()
        MsgBox(ConnectInfo.Server)
    End Sub

    Public Function GetConnectInfo() As PtConnectInfo
        Dim ptrConInfo As IntPtr
        Dim ret As Integer = PartyConnectInfo(ptrConInfo)
        Try
            Return Marshal.PtrToStructure(ptrConInfo, GetType(PtConnectInfo))
        Finally
            Marshal.FreeHGlobal(ptrConInfo)
        End Try
    End Function

End Class

        Dim cParty = New PartyApiFDN.Party(Me.Handle)
        Dim res = New PartyApiFDN.PMConnectInfo
        Dim ret As Integer = cParty.ConnectInfo(res)
        Dim inValue = New ArrayList
        Dim outValue = New ArrayList
        ret = cParty.OperationRun(12, PartyApiFDN.PMOperRunFlag.MPPARTY_OPERRUN_OUTVARS, inValue, outValue)

int OperationRun(int OpId, int flag, ArrayList^ ArgIn, ArrayList^ ArgOut)
      {
         int j=0;
         char str1[256];
         LPPtOperationArgs lpArgs=(LPPtOperationArgs)LocalAlloc(LPTR, sizeof(PtOperationArgs));
         lpArgs->dwSize=sizeof(PtOperationArgs);
         lpArgs->dwFlags=flag;
         lpArgs->wVarsInCnt=ArgIn->Count;
         lpArgs->wVarsOutCnt=0;
         LPPtOperationVarValue ValIn =
            (LPPtOperationVarValue)LocalAlloc(LPTR, sizeof(PtOperationVarValue)* ArgIn->Count);
         for(int i=0;i<ArgIn->Count;i++)
         {
            ValIn[i].dwSize=sizeof(PtOperationVarValue);
            StrToChr(((PMPtValue^)ArgIn[i])->szDescription,str1);
            strcpy_s(ValIn[i].szVarName,str1);
            StrToChr(((PMPtValue^)ArgIn[i])->cDataType->ToString(),str1);
            ValIn[i].pvValue.cDataType=str1[0];
            if (ValIn[i].pvValue.cDataType=='S' || ValIn[i].pvValue.cDataType=='I')
            {
               StrToChr(((PMPtValue^)ArgIn[i])->szValueS,str1);
               strcpy_s(ValIn[i].pvValue.szValueS,str1);
            }
            if (ValIn[i].pvValue.cDataType=='T' || ValIn[i].pvValue.cDataType=='D')
            {
               ValIn[i].pvValue.dtValueT.Year=((PMPtValue^)ArgIn[i])->szValueT->Year;
               ValIn[i].pvValue.dtValueT.Month=((PMPtValue^)ArgIn[i])->szValueT->Month;
               ValIn[i].pvValue.dtValueT.Day=((PMPtValue^)ArgIn[i])->szValueT->Day;
               ValIn[i].pvValue.dtValueT.Hour=((PMPtValue^)ArgIn[i])->szValueT->Hour;
               ValIn[i].pvValue.dtValueT.Min=((PMPtValue^)ArgIn[i])->szValueT->Minute;
               ValIn[i].pvValue.dtValueT.Sec=((PMPtValue^)ArgIn[i])->szValueT->Second;
               ValIn[i].pvValue.dtValueT.MilSec=((PMPtValue^)ArgIn[i])->szValueT->Millisecond;
            }
            if (ValIn[i].pvValue.cDataType=='N')
            {
               ValIn[i].pvValue.dblValueN=((PMPtValue^)ArgIn[i])->dblValueN;
            }
         }
         lpArgs->lpVarsIn=ValIn;
         j=PartyOperationRun(NULL, (DWORD)OpId, lpArgs);
         if(j!=0)
         {
            PtError(j);
            LocalFree(lpArgs);
            LocalFree(ValIn);
            return j;
         }
         ArgOut->Clear();
         LPPtOperationVarValue ValOut = lpArgs->lpVarsOut;
         for(int i=0;i<lpArgs->wVarsOutCnt;i++)
         {
            PMPtValue^ val1 = gcnew PMPtValue();
            val1->cDataType=gcnew Char(ValOut[i].pvValue.cDataType);
            val1->szDescription=gcnew String((char*)ValOut[i].szVarName);
            if (ValOut[i].pvValue.cDataType=='S' || ValOut[i].pvValue.cDataType=='I')
            {
               val1->szValueS=gcnew String((char*)ValOut[i].pvValue.szValueS);
            }
            if (ValOut[i].pvValue.cDataType=='T')
            {
               val1->szValueT=gcnew DateTime(ValOut[i].pvValue.dtValueT.Year,
                  ValOut[i].pvValue.dtValueT.Month,
                  ValOut[i].pvValue.dtValueT.Day,
                  ValOut[i].pvValue.dtValueT.Hour,
                  ValOut[i].pvValue.dtValueT.Min,
                  ValOut[i].pvValue.dtValueT.Sec,
                  ValOut[i].pvValue.dtValueT.MilSec);
            }
            if (ValOut[i].pvValue.cDataType=='N')
            {
               val1->dblValueN=ValOut[i].pvValue.dblValueN;
            }
            ArgOut->Add(val1);
         }
         LocalFree(ValIn);
         LocalFree(lpArgs);
         return j;
      }

        'создать параметр
      Dim id As UInt32 = 463
      Dim varValue As New LsNative.PtOperationVarValue
        varValue.Size = CType(Marshal.SizeOf(GetType(LsNative.PtOperationVarValue)), UInt32)
        varValue.Name = "In"
        varValue.Value.ValueS = "Test"
        'добавить параметр в массив параметров
      Dim aVars() As LsNative.PtOperationVarValue = {varValue}

        'создать экземпляр класса аргументов
      Dim Args = New LsNative.PtOperationArgs()
        Args.Size = CType(Marshal.SizeOf(GetType(LsNative.PtOperationArgs)), UInt32)
        Args.VarsIn = Nothing 'aVars    -если здесь nothing и в количестве поременнох 0 - дествие стартует ....
        Args.VarsInCnt = 0 '1
        Args.VarsOut = Nothing
        Args.VarsOutCnt = 0

        'выполнить действие
        ret = LsNative.LsOperation.PartyOperationRun(0, id, Args)

Параметр задан неверно. (Исключение из HRESULT: 0x80070057 (E_INVALIDARG)) - т.е. какая то проблема передачи между управляемым и неуправляемым кодом

using System;
using System.Collections;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using Lotsia=PartyApiFDN;

namespace Ric
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            int ret = 0;
            Lotsia.Party cParty = new Lotsia.Party((int)this.Handle);
            ret = cParty.UIActivate();
            Lotsia.PMConnectInfo cInfo = new Lotsia.PMConnectInfo();
            ret = cParty.ConnectInfo(cInfo);

            Lotsia.PMPtValue InValStr = new Lotsia.PMPtValue();
            InValStr.cDataType = 'S';
            InValStr.szDescription = "str";
            InValStr.szValueS = "Тест";

            Lotsia.PMPtValue InValInt = new Lotsia.PMPtValue();
            InValInt.cDataType = 'N';
            InValInt.szDescription = "int";
            InValInt.dblValueN = 12345;

            Lotsia.PMPtValue InValDate = new Lotsia.PMPtValue();
            InValDate.cDataType = 'T';
            InValDate.szDescription = "dt";
            InValDate.szValueT = System.DateTime.Now;

            ArrayList inValue = new ArrayList();
            inValue.Add(InValStr);
            inValue.Add(InValInt);
            inValue.Add(InValDate);

            ArrayList outValue = new ArrayList();

            ret = cParty.OperationRun(463,
                                      PartyApiFDN.PMOperRunFlag.MPPARTY_OPERRUN_OUTVARS,
                                      inValue,
                                      outValue);
        }
    }
}