Сообщество Чайников

Вопрос

Как создать буфер CopyMemory?
Допустим что все строки длинной в 10 символов.

Type Meseg
    Stroka1 As String * 10
    Stroka2 As String * 10
    Stroka3 As String * 10
End Type


Ответ

Тогда буфер будет длинной 30.

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

dim msgMessage as Meseg
dim szBuff as string * 30

'здесь заполняем msgMessage

CopyMemory szBuff, msgMessage, 30

'здесь передаем…

Структура может содержать любые элементы фиксированной длинны (long, intenger, boolean и пр)

IvanR