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