VPF::Копирование байт в памяти - Форум программистов

Andrey_P

Дата 17.3.2005, 10:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 22.12.2003
Где: Томск

Репутация: нет
Всего: нет

Люди, нужна помощь в работе с указателями!!!

На 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.

Как это правильно сделать?

Это сообщение отредактировал(а) Alex - 17.3.2005, 16:19

p0s0l

Дата 17.3.2005, 11:37 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Цитата

Надо сделать p2 <> p1 и скопировать в него Count1 байтов, начиная с p1.

Наверное, это имеешь в виду ?

Код

if p1 <> p2 then
  move (p1^, p2^, Count1);// Скопировать из p1 в p2

--------------------

С уважением, г-н Посол.

Snowy

Дата 17.3.2005, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Наверное

Код


var
  p2: ^byte;
begin
  GetMem(p2,Count1);
  if p1<>nil then move(p1^,p2^,Count1);

Это сообщение отредактировал(а) Snowy - 17.3.2005, 11:49

Andrey_P

Дата 17.3.2005, 21:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 22.12.2003
Где: Томск

Репутация: нет
Всего: нет

Спасибо за помощь

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »