Как скопировать...

[Antonariy]

... переменную типа long или private type в байтовый массив? В vb6 для этого была CopyMemory

[Sebas]

Public NotInheritable Class Marshal
Inherits System.Object
Member of: System.Runtime.InteropServices
Summary:
Provides a collection of methods for allocating unmanaged memory, copying unmanaged memory blocks, and converting managed to unmanaged types, as well as other miscellaneous methods used when interacting with unmanaged code.

[Antonariy]

А поточнее? Этот неймспейс содержит туеву хучу классов, своими силами я час ковыряться буду.

[GSerg]

Тебе же сказали - Public NotInheritable Class Marshal...

[Antonariy]

Не заметил, когда приводятся вырезки из msdn, читаю по диагонали

[Antonariy]

Работаем дальше...

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

Imports System.Runtime.InteropServices.Marshal

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Integer
        Dim y() As Byte
        ReDim y(3)
        x = 23456
        Copy(x, y, 0, 4)
    End Sub
End Class

В момент копирования возникает ошибка AccessViolationException. Что не так?

[GSerg]

Не знаю, как это скомпилировалось, наверное в 2005 чё-то добавили...

Вообще, неверной дорогой идёте, товарищи...

Dim arr() As Byte
arr = System.BitConverter.GetBytes(23456)
MsgBox(arr(1))

[Viper]

что то не припоминаю я метода Copy в классе Marshal с такой сигнатурой чтоб из целого числа копировал в массив байтов... Есть метод, который копирует участок памяти, указываемый через указатель в массив байтов... похоже здесь 23456 воспринимается как указатель и вот тебе и ошибка... А из целого в байтовый массив или наоборот это как у GSerg

[Antonariy]

!Viper!

public static void Copy(IntPtr source, byte[ ] destination, int startIndex, int length)
Member of System.Runtime.InteropServices.Marshal

Еще я пытался передать вместо х ReadIntPtr(x,0) - аналогично.

А если мне нужно скопировать собственный тип?

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

    Private Structure httpHeader
        Dim Block1 As Integer
        Dim Block2 As Integer
        Dim Block3 As Integer
    End Structure

В битконвертере ничего подходящего вроде нет.

[Sebas]

Если тебе нужно в бит() для передачи, то просто сериализуй её...

[Antonariy]

Это как?

[Antonariy]

Если тебе нужно в бит() для передачи, то просто сериализуй её...

Это как??

[Dmitriy Solomnikov]

набери в MSDN в индексе serialization, и возьме первый попавшийся пример

[Viper]

Ну можно еще долго издеваться над памятью методами класса Marshal. Дело непростое, нудное, требуещее внимательного чтения Help и долгих опытов... Но скопировать содержимое структуры в байты в принципе можно...

А мож сериализацией и проще...

Можно и в том и в том направлении покопать...

[Antonariy]

В MSDN описана сериализация объектов в XML. Не вижу, как мне это может помочь.

[Dmitriy Solomnikov]

не только

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

public class MyObject {
  public int n1 = 0;
  public int n2 = 0;
  public String str = null;
}

The code example below shows how an instance of this class can be serialized to a file.
MyObject obj = new MyObject();
obj.n1 = 1;
obj.n2 = 24;
obj.str = "Some String";
IFormatter formatter = new BinaryFormatter();
Stream stream = new FileStream("MyFile.bin", FileMode.Create, FileAccess.Write, FileShare.None);
formatter.Serialize(stream, obj);
stream.Close();

Restoring the object back to its former state is just as easy. First, create a stream for reading and a formatter, and then instruct the formatter to deserialize the object. The code example below shows how this is done.
IFormatter formatter = new BinaryFormatter();
Stream stream = new FileStream("MyFile.bin", FileMode.Open, FileAccess.Read, FileShare.Read);
MyObject obj = (MyObject) formatter.Deserialize(stream);
stream.Close();

// Here's the proof.
Console.WriteLine("n1: {0}", obj.n1);
Console.WriteLine("n2: {0}", obj.n2);
Console.WriteLine("str: {0}", obj.str);


[Antonariy]

В общем, все не то. Вот правильный ответ:
Imports System.Runtime.InteropServices.Marshal

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

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Integer
        Dim i As IntPtr
        Dim y() As Byte
        ReDim y(3)
        i = AllocCoTaskMem(4)
        x = 23456
        WriteInt32(i, 0, x)
        Copy(i, y, 0, 4)
    End Sub
End Class

Всем спасибо.

[Viper]

В общем, все не то. Вот правильный ответ:
Imports System.Runtime.InteropServices.Marshal

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

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Integer
        Dim i As IntPtr
        Dim y() As Byte
        ReDim y(3)
        i = AllocCoTaskMem(4)
        x = 23456
        WriteInt32(i, 0, x)
        Copy(i, y, 0, 4)
    End Sub
End Class

Всем спасибо.

А на кой тебе понадобилось распределить память из COM? Если уж пондобилась именно эта память, то после того как стоит ее освободить методом FreeCoTaskMem.

А в правильном решении вместо AllocCoTaskMem необходимо использовать AllocHGlobal и освобождать после использования память методом freeHGlobal. Все эти методы естественно в классе Marshal.