Как организовать функцию на VB из Delphi

Формулировка задачи:

Здравствуйте, помогите пожалуйста переделать функцию с Delphi на VB, застрял на переменной типа pbytearray function GetFirstReader(desc: pbytearray; maxlen: short) Пример из DELPHI

                    Листинг программы
                
var
CurDesc: pchar;
MAX_DESC_LEN: short;
 
....
 
If GetFirstReader(pbytearray(CurDesc), MAX_DESC_LEN)=0 then ....

Как быть с pbytearray

Решение задачи: «Как организовать функцию на VB из Delphi»

textual
                            Листинг программы 
                        
Private Declare Function GetFirstReader Lib "PRx08" Alias "GetFirstReader" (pbytearray As Byte, ByVal maxlen As Integer) As Integer

Оцени полезность:

5 голосов , оценка 4.2 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы