Явное преобразование типов в VB?

[Leon_]

Возможно ли в VB явное преобразование типов? А, в частности, присвоение содержимого одного из членов UDT другой переменной другого UDT?

[RayShade]

Возможно

[Leon_]

Ну вот, скажем, необходимо мне реализовать такую операцию, которая в VC++ делается "на раз":

ether_header* pEthHeader = NULL;
INTERMEDIATE_BUFFER PacketBuffer;
pEthHeader = (ether_header*)PacketBuffer.m_IBuffer;

Я объявил в VB аналогичные структуры таким образом

'Ethernet Header
Public Type ether_header
h_dest(ETH_ALEN - 1) As Byte 'destination eth addr
h_source(ETH_ALEN - 1) As Byte 'source ether addr
h_proto As Integer 'packet type ID field
End Type

Public Type INTERMEDIATE_BUFFER
m_qLink As Long
' m_qLink As LIST_ENTRY
m_dwDeviceFlags As Long
m_Length As Long
m_Flags As Long 'NDIS_PACKET flags
m_IBuffer(MAX_ETHER_FRAME - 1) As Byte
End Type

Как тогда произвести присвоение части одной переменной другой:

Dim EthHeader As ether_header
Dim PacketBuffer As INTERMEDIATE_BUFFER
. . . . . .
LSet EthHeader = PacketBuffer.m_IBuffer <-- ????

[GSerg]

У, парень
Это кастинг, а не преобразование типов. Это либо ручками через GetMem4, либо CopyMemory сначала.

[Leon_]

Да, я уже махнул рукой на встроенные средства VB (бедненькие они, мало возможностей), и использовал API::CopyMemory

Код: Выделить всё

CopyMemory EthHeader, PacketBuffer.m_IBuffer(0), MAX_ETHER_FRAME


[Faust]

Извините, что вклиниваюсь в тему, но если у меня есть написанная функция, которой неплохо было бы передавать как "родной" тип данных Complex, так и встроенный Double. Пока я пользуюсь рукотворной функцией перевода из Double в Complex. А можно ли прописать автоматический перевод из стандартного типа данных в пользовательский, как например Byte в Long.

Код: Выделить всё

'Тип комплексных чисел:
Public Type Complex
Real As Double 'действительная часть числа
Image As Double 'мнимая часть числа
End Type
...
Function C(R As Double,I As Double) As Complex
Complex.Real = R
Complex.Image = I
End Function
...
Function CSum(C1 As Complex,C2 As Complex) As Complex
CSum.Real=C1.Real+C2.Real
CSum.Image=C1.Image+C2.Image
End Function


Так вот, как бы сделать так, чтоб при передаче CSum переменной типа Double он воспринимался как Complex со свойством Real значением в эту самую переменную (надеюсь, изложил понятно)?

[codemaster]

8) Да, я уже махнул рукой на встроенные средства VB (бедненькие они, мало возможностей), и использовал API::CopyMemory

Код: Выделить всё

CopyMemory EthHeader, PacketBuffer.m_IBuffer(0), MAX_ETHER_FRAME


Мда
Для начала посмотри что кроется за

Код: Выделить всё

pEthHeader = (ether_header*)PacketBuffer.m_IBuffer;

в С++ если копнуть глубже.

[Leon_]

Мда

Глубже.. Присвоение 32-битной переменной нового значения. И что?
Все равно в VB нет указателей, так что тут нечего обсуждать.

[codemaster]

Глубже.. Присвоение 32-битной переменной нового значения. И что?
.

На поверхности да. В отладчике нечто другое

Все равно в VB нет указателей, так что тут нечего обсуждать.

Неплохо ! Напоминает перлы из твоего топика про API функцию и структуры.
Давай вспомним что представляет из себя указатель в С++

[hCORe]

int32

[Leon_]

Ну все, пошел флейм
codemaster, дружище! Я пользуюсь этой конференцией для того, чтобы быстро и квалифицированно получать помощь по оперативным вопросам.

Но.Не.Для.Пространных.И.Отвлеченных.Бесед.С.Любителями.Поговорить.И.Читать.Мне.Нотации.

Надеюсь, ты тоже. Если есть что-нибудь по делу -- пожалуйста, всегда "За". А так -- извиняйте.