Ну так и передай ему ссылку на массив.

VB: ArrPtr=VarPtr(Array)

Ответить

Почему невозможна? Самый, имхо, лучший вариант: ты передаешь указатель на array(0) и длину массива в байтах, DLL создает массив такого размера и копирует в него эти байты, а потом работает как со своим. Потом возвращает либо то, что тебе нужно, либо указатель на arrayDLL(0), после чего ты можешь этот массив либо использовать, либо скопировать обратно к себе в array(0).

Ответить

Да я там уже был. Но это ничего не даёт, т.к. передавая в процедуру указатель на первый элемент и длину массива, не удаётся  из этих данных восстановить массив внутри DLL, чтобы его отсортировать. Делал такую процедуру:
SUB SortArrDescend(ArrPointer AS LONG PTR, ArrLen AS LONG ) EXPORT
    DIM CurrentPos AS LONG
    DIM LocalArr () AS LONG
    REDIM LocalArr (1:ArrLen) AS LONG
    FOR CurrentPos = 0 TO ArrLen - 1
        LocalArr(CurrentPos)= @ArrPointer[CurrentPos]
    NEXT CurrentPos
    ARRAY SORT LocalArr&), DESCEND
END SUB
И когда вызываю её из VB
 im ArrPtr As Long
 ArrPtr = VarPtrArray(Arr())
 SORTARRDESCEND ArrPtr, 1001
Массив остаётся несортированым.

А вот по поводу, чтобы длл возвращала указатель на сортированый массив - это зачем, он что переезжает куда то что ли при сортировке? Адрес в памяти ведь прежний остается, после вызова процедуры я снова освежаю листбокс и вижу в нем старый порядок массива.

Ответить

Ответить

Ответить

ByVal сразу приводит к падению IDE, неважно указатель ByVal  или размер ByVal.  А собирать с помощью PEEK - POKE тоже ничего не даст, в VB не соберёшь обратно... Видно передать массив функции невозможно.

Ответить

Ответить

Ответить

CyRax, ты прирожденный хакер!

For FillArr1 = 1 To 10: Arr1(FillArr1) = Arr1(FillArr1 - 1) + 100: Next FillArr1

Я на такой код любовался минуты три. Теперь я понимаю ужас Ромы, когда я сказал ему, что программы комментировать не надо, они и так понятны. Другими словами:

if(a&&!b||c){d*=&(++e==*f++)+g++}

А все таки, чувствую, статью "Вызов WinAPI на Visual Basic" написать надо. Буду очень благодарен всем, кто предоставит мне информацию относительно передачи аргументов и указателей в PB, думаю, не помешает, судя по его популярности.

Ответить

А если так?

For FillArr1 = 0 To 1000 Step 100: Arr1(FillArr1 / 100) = FillArr1: Next FillArr1

Ответить

Ответить

Где-то я уже упоминал, что Обломов рядом со мной - гибрид пчелы и муравья

> For FillArr1 = 0 To 1000 Step 100: Arr1(FillArr1 / 100) = FillArr1: Next FillArr1

Не есть хорошо. Надо:

For FillArr1 = 0 To 1000 Step 100: Arr1(FillArr1 \ 100) = FillArr1: Next FillArr1

:D

2brevno: мысль-то хорошая, только, имхо, PB не стоит такого напряга... Ладно бы мы нашли идеальный язык программирования, на котором будем писать до самой смерти, а тут... 16-битный платный компилятор, до сих пор воняющий нафталином QBasic'а... Хотя сделать это стоит хотя бы по той причине, что мы будем иметь шанс продать производителю PB его локализацию ))

Ответить

Чувствую без меня эта тема увянет )) Шучу

Держи руку помощи, надеюсь что не зря 20 мин. потратил, и хоть чем-то да помогу...

Код для VB:

Option Explicit
 
Private Declare Sub GetArray Lib "f:\new.dll" (ByRef Destination As Long, ByVal cnt As Long)
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
 
Private Sub Form_Load()
    Dim i As Long, MyArr() As Long
    
    ReDim MyArr(3)
    
    For i = 0 To UBound(MyArr)
        MyArr(i) = Rnd(Timer) * 100
        Call MsgBox(MyArr(i))
    Next
 
    ' Отсюда - самое главное
    Dim out As Long
    Call CopyMemory(out, MyArr(0), (UBound(MyArr) + 1&) * Len(MyArr(0)))
 
    ' Вызов нашей функции
    Call GetArray(out, UBound(MyArr) + 1&)
End Sub

#Compile Dll "New.dll"
#Include "Win32Api.inc"
 
Sub DoThis Alias "GetArray" (ByRef inArr  As Long, _            ' Указатель на нулевой элемент массива
                             ByVal iCnt   As Long) Export       ' Кол-во элементов
 
    Dim Arr() As Long                                           ' Объявление массива
    ReDim Arr(iCnt - 1&)                                        ' Ресайзим его
 
    Call MoveMemory(Arr(0), inArr, &H4 * iCnt)                  ' Заносим данные в массив
 
    Dim i As Long                                               ' Проверяем то - ли получили.
    For i = 0 To iCnt - 1&
        MsgBox("Получено: " & Str$(Arr(i)))
    Next
 
' Сортировка -------------------------------
 
' Сортировка -------------------------------
 
' Как обратно вернуть массив, думаю по аналогии сообразить можно...
 
End Sub  

Ответить

Уаааау, сколько всего сразу!!!!!!! Это всё мне???   Ну, спасибо всем!  Как говорили раньше, растроган до глубины души, блин. Спасибо ещё раз всем. Буду ковырять...

Ответить

Ответить