Hi
I must have a move from a string field into an array
and back from an array into a string...
But How?
Here is the Code:
This lines are wrong:
But why?
I must have a move from a string field into an array
and back from an array into a string...
But How?
Here is the Code:
Code:
Imports System.Runtime.InteropServices
Public Class Class1
Public WPFFunktion As String
Public WPFFeld1 As String
Public WPFFeld2 As String
Public WPFFeld3 As String
Public WPFFeld4 As String
Public WPFFeld5 As String
Public WPFInfo As String
<StructLayout(LayoutKind.Sequential)> Public Structure MYTabelle1
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=31)> Public TABFelder As String
End Structure
<StructLayout(LayoutKind.Sequential)> Public Structure MYSATZ
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=31)> Public FUNKTION As String
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=4)> Public MyArray() As MYTabelle1
<MarshalAs(UnmanagedType.ByValTStr, SizeConst:=31)> Public Info As String
End Structure
Declare Function CALLMYFUNKTION Lib "CALLMY" (ByRef VARIADATEN As MYSATZ) As Integer
Public Sub MyCallProg()
Dim CblStatus As Integer
Dim MYSATZSATZ001 = New MYSATZ
MYSATZSATZ001.FUNKTION = WPFFunktion
MYSATZSATZ001.MyArray(0).TABFelder = WPFFeld1
MYSATZSATZ001.MyArray(1).TABFelder = WPFFeld2
MYSATZSATZ001.MyArray(2).TABFelder = WPFFeld3
MYSATZSATZ001.MyArray(3).TABFelder = WPFFeld4
MYSATZSATZ001.MyArray(4).TABFelder = WPFFeld5
MYSATZSATZ001.Info = WPFInfo
CblStatus = CALLMYFUNKTION(MYSATZSATZ001)
WPFFunktion = MYSATZSATZ001.FUNKTION.Trim(" ")
WPFFeld1 = MYSATZSATZ001.MyArray(0).TABFelder.Trim(" ")
WPFFeld2 = MYSATZSATZ001.MyArray(1).TABFelder.Trim(" ")
WPFFeld3 = MYSATZSATZ001.MyArray(2).TABFelder.Trim(" ")
WPFFeld4 = MYSATZSATZ001.MyArray(3).TABFelder.Trim(" ")
WPFFeld5 = MYSATZSATZ001.MyArray(4).TABFelder.Trim(" ")
WPFInfo = MYSATZSATZ001.Info.Trim(" ")
End Sub
End Class
Code:
MYSATZSATZ001.MyArray(0).TABFelder = WPFFeld1
...
WPFFeld1 = MYSATZSATZ001.MyArray(0).TABFelder.Trim(" ")
...