Люди, нужна помощь в работе с указателями!!!
На VB код выглядит таким образом (особое внимание на комментарий)
| Код |
Dim data_array() As Byte = Nothing
If Not (data.Equals(IntPtr.Zero)) Then
// Copy the unmanaged record data into a managed byte buffer that we can pass to PlayRecord.
ReDim data_array(dataSize - 1)
Marshal.Copy(data, data_array, 0, dataSize)
End If
|
У меня на Delphi должно быть так:
есть p1: PBYTE, есть Count1: UINT.
Надо сделать p2 <> p1 и скопировать в него Count1 байтов, начиная с p1.
Как это правильно сделать? |