перевод Делфи кода.

@Vangok · Регистрация: 21.10.2010

Студворк — интернет-сервис помощи студентам

Есть Делфи код:

Delphi
1
2
TData8 = array [0..127] of byte;
PData8 = ^TData8;

В принципе ни чего сложного в его переводе нету.

C#
1
public byte[] TData8 = new byte[127];

Но возникла проблема при переводе вот этих строчек кода:

Delphi
1
2
3
4
var data8 : PData8;
begin
Data8 := PData8(PWaveHdr(Msg.lParam)^.lpData);
end;

PWaveHdr здесь его я тоже без особых проблем перевел

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
  PWaveHdr = ^TWaveHdr;
  {$EXTERNALSYM wavehdr_tag}
  wavehdr_tag = record
    lpData: PChar;              { pointer to locked data buffer }
    dwBufferLength: DWORD;      { length of data buffer }
    dwBytesRecorded: DWORD;     { used for input only }
    dwUser: DWORD;              { for client's use }
    dwFlags: DWORD;             { assorted flags (see defines) }
    dwLoops: DWORD;             { loop control counter }
    lpNext: PWaveHdr;           { reserved for driver }
    reserved: DWORD;            { reserved for driver }
  end;
  TWaveHdr = wavehdr_tag;

C#
1
2
3
4
5
6
7
8
9
10
11
12
[StructLayout(LayoutKind.Sequential, CharSet = CharSet.Auto)]
        public struct WAVEHDR
        {
            public IntPtr lpData; // pointer to locked data buffer
            public uint dwBufferLength; // length of data buffer
            public uint dwBytesRecorded; // used for input only
            public IntPtr dwUser; // for client's use
            public WaveHdrFlags dwFlags; // assorted flags (see defines)
            public uint dwLoops; // loop control counter
            public IntPtr lpNext; // PWaveHdr, reserved for driver
            public IntPtr reserved; // reserved for driver
        }

@sau · 13.11.2011, 16:11

Ну так а вопрос то в чем ?
- я так понял структура PData8 неизвестна ?
А вообще с указателями в c# тоже можно работать, нужно только в настройках проекта выставить.
либо через System.Runtime.InteropServices.Marshal, например:
WAVEHDR wh = (WAVEHDR)Marshal.PtrToStructure(Msg.lPar am,typeof(WAVEHDR));
Data8 d8 = (Data8)Marshal.PtrToStructure(wh.lpData, typeof(Data8));

@Andyc · 13.11.2011, 16:26

Сообщение от sau

- я так понял структура PData8 неизвестна ?

PWaveHdr(Msg.lParam)^.lpData - указатекль на буфер памяти в котором находяться данные аудиопотока. В зависимости от битности они могут быть 8, 16.. разрядными.
Когда считывают данные с буфера, указатель приводят в соответствие с установками, в данном случае
это указатель на байт.

@Vangok · 13.11.2011, 17:05 **[ТС]**

Сообщение от sau

Ну так а вопрос то в чем ?
- я так понял структура PData8 неизвестна ?
А вообще с указателями в c# тоже можно работать, нужно только в настройках проекта выставить.
либо через System.Runtime.InteropServices.Marshal, например:
WAVEHDR wh = (WAVEHDR)Marshal.PtrToStructure(Msg.lPar am,typeof(WAVEHDR));
Data8 d8 = (Data8)Marshal.PtrToStructure(wh.lpData, typeof(Data8));

На сколько я понял надо PData8 в структуру превратить?
Если да то как, В Делфийском коде ведь это массив.

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@sau 2773 / 2073 / 386 Регистрация: 22.07.2011 Сообщений: 7,821
	13.11.2011, 16:11
	Ну так а вопрос то в чем ? - я так понял структура PData8 неизвестна ? А вообще с указателями в c# тоже можно работать, нужно только в настройках проекта выставить. либо через System.Runtime.InteropServices.Marshal, например: WAVEHDR wh = (WAVEHDR)Marshal.PtrToStructure(Msg.lPar am,typeof(WAVEHDR)); Data8 d8 = (Data8)Marshal.PtrToStructure(wh.lpData, typeof(Data8)); 0