dim par$
par = "aaaaaa" & Chr$( 13 ) & "bbbb" & Null

Type TMTEMsg
    DataLen As Long
    Data As String
End Type

'объявление функции из dll:
Private Declare Function DF_Structure& Lib "my.dll" _
    Alias "MTEStructure" ( _
    ByVal Idx As Long, _
    ByRef Msg As TMTEMsg)

'И собственно вызов: 
Dim Msg As TMTEMsg, Idx&

Idx = DF_Structure(Idx, Msg)

Msg.Data = Space( 255 )

Type TMTEMsg
    DataLen As Long
    Data As String
End Type

Поле Data структуры TMTEMsg, указатель на которую возвращает функция 
MTEStructure, представляет собой бинарный массив данных. Данный буфер содержит описания о 
доступных для данной сессии информационных объектах и имеет следующий формат  (описание 
элементарных типов String, Integer и т.п. см. прил.  5 ):

поле			тип		
TInterface:						
ИмяИнтерфейса		String
ОписаниеИнтерфейса	String
ПеречислимыеТипы	TEnumTypes
Таблицы			TTables
Транзакции		TTransactions

Собственно описание информационных объектов состоит из трех блоков: описание перечислимых
 типов, таблиц и транзакций.

TEnumTypes:
КолвоТипов		Integer
Тип1			TEnumType
Тип2			TEnumType
...
ТипN			TEnumType

TEnumType:
Имя			String
Описание		String
Размер			Integer
Тип			TEnumKind
КолвоКонстант		Integer
Константа1		String
Константа2		String
...
КонстантаN		String

TEnumKind:		Integer
ekCheck =  0 		
ekGroup =  1 		
ekCombo =  2 

Type ArrStr
    dataArr() As Byte
End Type

Type TMTEMsg
    DataLen As Long
    Data As ArrStr
End Type

Private Declare Function DF_Connect Lib "mtesrl.dll" _
    Alias "MTEConnect" ( _
    ByVal Params As String, _
    ByVal ErrorMsg As String) As Long

 Dim Idx As Long
 Dim ErrorMsg As String
 Dim NullCharPos As Long
 ErrorMsg = String$( 255 , vbNullChar)
 Idx = MTEConnect("PORT=COM1" & vbCr & "BAUDRATE=115200", ErrorMsg)
 NullCharPos = InStr(ErrorMsg, vbNullChar)
 If NullCharPos Then ErrorMsg = Left$(ErrorMsg, NullCharPos -  1 )

Приложение  5 . Элементарные типы
Для представления элементарных типов в библиотеке MTESRL.DLL используются следующие структуры:
Byte
Один байт.

Integer
Четыре байта в формате процессоров x86 (сначала наименее значащий байт).

String
Структура следующего вида:

ДлинаСтроки: Integer
ТекстСтроки: Byte[ДлинаСтроки]

Byte[N]
Массив байт длиной N.

Получение описания информационных объектов Описание информационных объектов 
содержит список таблиц, транзакций, их полей и некоторых вспомогательных объектов, доступных 
клиенту. Для получения описания используется функция MTEStructure.

(C language definition)
int32 WINAPI MTEStructure(int32 Idx, TMTEMsg **Msg);

(Delphi language definition)
function MTEStructure(Idx: Integer; var Msg: PMTEMsg): Integer;

Аргументы:
Idx
Дескриптор соединения, для которого нужно получить информацию.
Msg
Указатель на указатель структуры TMTEMsg, куда будет помещен указатель на буфер, содержащий описание информационных объектов. Формат буфера описан в приложении  2 .
Память под данный буфер выделяется и освобождается библиотекой. Структура TMTEMsg определена так:

-------- C language --------
typedef struct TMTEMSG_TAG
{
long DataLen; // Длина следующих далее данных
// char Data[DataLen];// commented – pseudo field
} TMTEMSG;
, причем данные длиной DataLen следуют непосредственно за данными данной структуры. Это 
сделанно для обеспечения совместимости с продуктами реализованными на Delphi. 

-------- Delphi language ---------
PMTEMsg = ^TMTEMsg;
TMTEMsg = record
  DataLen: Integer;  // Длина следующих далее данных
  Data: record end;  // Данные переменной длины
end;




Доступ к данным описания может выглядеть следующим образом:

-------- C language --------
int32 Idx;
char ErrorMsg[ 255 ];
TMTEMsg *Msg;
char *Data;
int32 err;
...
Idx = MTEConnect(“PORT=COM1\rBAUDRATE= 115200 ”, ErrorMsg);
if( Idx < MTE_OK )
{
fprintf(stderr, “Ошибка при установке соединения: %s”, ErrorMsg);
	exit( 1 );
}
else 
  fprintf(stdout, “Соединение установлено.”);

if( (err = MTEStructure(Idx, &Msg)) != MTE_OK )
{
if( Err == MTE_TSMR )
{ 
 		Data = (char *)(Msg +  1 );
	fprintf(stderr, “Ошибка: %s\n”, Data ); 
}
else
fprintf(stderr, “Ошибка: %s\n”, MTEErrorMsg(Err));
	}
else
  fprintf(“Описание информационных объектов получено.\n”);
Data = (char *)(Msg +  1 ); // Собственно данные

-------- Delphi language ---------
Idx: Integer;	// Инициализирована вызовом MTEConnect
Err: Integer;
Msg: PMTEMsg;
S: string;
...
Err := MTEStructure(Idx, Msg);
if Err <> MTE_OK then 
  if Err = MTE_TSMR then 
  begin
    SetString(S, @Msg.Data, Msg.DataLen);
    Writeln('Ошибка: ' + S);
  end
  else
    Writeln('Ошибка: ' + MTEErrorMsg(Err))
else
  Writeln('Описание информационных объектов получено.);

Возвращаемое значение:
В случае успеха функция возвращает MTE_OK и помещает в аргумент Msg указатель на буфер с 
описанием.
При возникновении ошибки возвращается один из кодов ошибки MTE_xxxx. Если возвращен код 
ошибки MTE_TSMR, поле Data структуры Msg  содержит текст сообщения об ошибке длиной DataLen символов.

type MyType2
   Const a1% =  0 
   Const a2% =  1 
   Const a3% =  2 
end Type

type MyType
   aaa as String
   bbb as MyType2
end type

enum MyType2
a1= 0 
a2= 1 
a3= 2 
end enum

Enum TEnumKind
    ekCheck =  0 
    ekGroup =  1 
    ekCombo =  2 
End Enum

Type TEnumType
    Name As String
    Descr As String
    Size As Integer
    Type As TEnumKind
    Count_Const As Integer
    Const_Arr(Count_Const) As String
End Type

Type TEmunTypes
    Count_Types As Integer
    Arr_Type(Count_Types) As TEnumType
End Type
'============================================================================

'====================================TTables=================================
Enum TTableFlags
    tfUpdateable =  1 
    tfClearOnUpdate =  2 
End Enum

Enum TFieldFlags
    ffKey =  1 
    ffSecCode =  2 
End Enum

Enum TFieldType
    ftChar =  0 
    ftInteger =  1 
    ftFixed =  2 
    ftFloat =  3 
    ftDate =  4 
    ftTime =  5 
End Enum

Type TField
    Name As String
    Descr As String
    Size As Integer
    Type As TFieldType
    Attributes As TFieldFlags
    EnumerType As String
    Def_Val As String
End Type

Type TFields
    Count_Field As Integer
    Arr_Fields(Count_Field) As TField
End Type

Type TTable
    Name As String
    Descr As String
    Attributes As TTabbleFlags
    In_Fiels As TFields
    Out_Field As TFields
End Type

Type TTables
    Count_Table As Integer
    Arr_Table As TTable
End Type
'============================================================================
'===============================TTransactions================================
Type TTransaction
    Name As String
    Descr As String
    In_Fields As TFields
End Type

Type TTransactions
    Count_Tran As Integer
    Arr_Tran(Count_Tran) As TTransaction
End Type
'============================================================================
Type ArrInterface
    InterfaceName As String
    InterfaceDescr As String
    InterfaceTypes As TEnumTypes
    Interfacetables As TTables
    InterfaceTrans As TTransactions
End Type

Type TMTEMsg
    DataLen As Long
    Data As ArrInterface
End Type

Arr_Tran(Count_Tran) As TTransaction

Private Declare Function DF_Structure& Lib "mtesrl.dll" _
    Alias "MTEStructure" ( _
    ByVal Idx As Long, _
    ByRef lpMsg As Long)
'.....
Type TMTEMsg
    DataLen As Long
    Data() As Byte
End Type
'...

Dim Msg As TMTEMsg
Dim nErr as Long, lpMsg as long
nErr = DF_Structure(MainIdx, lpMsg)
If nErr < MTE_OK Then
    PutErrorTextByIdx Idx
Else
    CopyMemory Msg.DataLen, ByVal lpMsg,  4 
    ReDim Msg.Data( 0  To Msg.DataLen -  1 ) As Byte
    CopyMemory Msg.Data( 0 ), ByVal lpMsg +  4 , Msg.DataLen
End If

nErr = DF_Structure(MainIdx, lpMsg)
If nErr < MTE_OK Then
    PutErrorTextByIdx Idx
Else
    CopyMemory Msg.DataLen, ByVal lpMsg,  4 
    ReDim Msg.Data( 0  To Msg.DataLen -  1 ) As Byte
    CopyMemory Msg.Data( 0 ), ByVal lpMsg +  4 , Msg.DataLen
End If
Dim sstr$
For i% =  0  To UBound(Msg.Data)
    If Msg.Data(i) =  0  Then
        Msg.Data(i) =  42 
    End If
    sstr = sstr$ & Chr(Msg.Data(i%))
Next i%
Open "C:\TmpMMVB.txt" For Append As # 1 
Print # 1 , sstr
Close # 1 

nErr = DF_Refresh(Idx, lpMsg)
If nErr < MTE_OK Then
    result =  1 
    PutErrorTextByIdx nErr
    Exit Sub
Else
    CopyMemory Msg.DataLen, ByVal lpMsg,  4 
    ReDim Msg.Data( 0  To Msg.DataLen -  1 ) As Byte
    CopyMemory Msg.Data( 0 ), ByVal lpMsg +  4 , Msg.DataLen

    sstr = ""
    'первые 4 байта - Ref
    For i =  0  To  3 
        output_ref = output_ref + CInt(Msg.Data(i))
    Next i
    sstr = sstr + "Ref=" + CStr(output_ref)
    'вторые 4 байта - Количество строк
    For i =  4  To  7 
        output_rows = output_rows + CInt(Msg.Data(i))
    Next i
    sstr = sstr + "NumRows=" + CStr(output_rows)
    
    For i =  8  To UBound(Msg.Data)
        'первый байт - кол-во полей
        output_numfields = CInt(Msg.Data(i))
        'дальше 4 байта - длина данных
        output_datalen =  0 
        For j = i +  1  To i +  4 
            output_datalen = output_datalen + CInt(Msg.Data(j%))
        Next j
        'массив номеров полей равный количеству полей
        output_number_fields = ""
        If output_numfields <>  0  Then
            For k = j +  1  To j + output_numfields -  1 
                output_number_fields = output_number_fields + CStr(Msg.Data(k)) + ","
            Next k
        Else: k = j
        End If
        'массив данных по одной строке, равный длинне строки
        tstr = ""
        For l = k +  1  To k + output_datalen -  1 
            tstr = tstr + Chr(Msg.Data(l))
        Next l
        sstr = sstr + "@@@" + "NumFields=" + CStr(output_numfields) + ", DataLen=" + CStr(output_datalen)
        sstr = sstr + "*@@" + output_number_fields + "*@@" + tstr
        i = l -  1 
    Next i%
    Open SaveFile For Append As # 1 
    Print # 1 , sstr
    Close # 1 
End If

CopyMemory Msg.Data( 0 ), ByVal lpMsg +  4 , Msg.DataLen

Type TMTEMsg
    DataLen As Long
    Data() As Byte
 End Type

'...
Dim Msg as TMTEMsg

CopyMemory Msg.DataLen, ByVal lpMsg,  2 
    ReDim Msg.Data( 0  To Msg.DataLen -  1 ) As Byte
    CopyMemory Msg.Data( 0 ), ByVal lpMsg +  2 , Msg.DataLen