VB6 + CPP

[Acca1]

Как мне кажется, очень экзотическая задача с которой у меня возникли серьезные трудности. Надеюсь на вашу помощь.

Итак задача:
Пишу программу на VB6. В ней появилась необходимость быстрого чтения бинарных файлов. Решил само чтение реализовать в Dll, написанной на с++, а результат ее работы - здоровенный одномерный массив - передавать обратно в VB.

Решил действовать по следующему алгоритму:
Создаем массив размерности n,
Передаем его в качестве аргумента на вход в ту самую функцию из dll.

Вот пробный код функции из DLL:

short WINAPI ReadData(short p[5], short out){
out = p[0];
return out;
}

Пробный код на VB:

Private Declare Function ReadData Lib "Project1.dll" (ByRef Arr() As Integer, ByRef out As Integer) As Integer
Dim arr(5) As Integer
Dim out As Integer

For i = 0 To 5
arr(i) = Rnd * 100
Next

Debug.Print ReadData(arr(), out)

Возвращает - какую-то несуразицу вроде "-3048"

Как быть?

[Acca1]

И вообще как оказалось изменение аргументов функции в теле функции никак на результате в VB не отображается

[keks-n]

Я не понял, а зачем это делать на C++, если VB вполне быстро читает данные из файла в массив байт?

Код: Выделить всё

Dim hFile As Long, Data() As Byte
hFile=FreeFile()
Open "filename.ext" For Binary As hFile
ReDim(Data(LOF(hFile)-1)
Get hFile,,Data
Close hFile


А вообще, сишную функцию надо объявить так:

Код: Выделить всё

extern "C" void _stdcall _declspec(dllexport) ReadData(char *pData,int DataLen)
{
};


А на VB задекларировать так:

Код: Выделить всё

Declare Function ReadData Lib "libname" Alias "_ReadData@8" (Data As Any, ByVal DataLen As Long)

А вызывать:

Код: Выделить всё

Dim Arr(6) As Byte

[Lumen]

А ещё можно размапливать файл, а потом указатель на проекцию файла подсовывать как адрес первого элемента массива. Не обошлось без хитрых колдунств конечно, но вполне нормально работало, и что самое главное быстро. Если надо могу код кинуть...

[Acca1]

Спасибо за ответ.
Дело в том, входные файлы могут достигать нескольких сотен мегабайт, число элементов в массиве - очень велико. Боюсь, что VB не будет достаточно тороплив для таких объемов.

[Lumen]

Маппинг это не вб. Это механизм который сама операционка использует для загрузки исполняемых файлов в память например...

[Viper]

Да, юзай проецирования файлов в память, в кирпичах есть решение. Работает все очень шустро

[Acca1]

Пардон, а что есть кирпичи?

[Хакер]

Раздел "Кирпичный завод"

[keks-n]

Ещё раз повторюсь - VB сам шустро читает. А вот с проецированием аккуратней - можно превысить лимит адресного пространства.

[Acca1]

Всем спасибо за помощь! Удалось сделать фукцию, как вы советовали, работает довольно быстро!