dll и string array

[blackmac]

Поможите
как устроен массив стрингов в VB
объявляю

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


Dim mass() As String

mass(1) = "zzzzzzzzzz"
mass(2) = "xxxxxxxxxx"
mass(3) = "cccccccccc"
mass(4) = "vvvvvvvvvv"
mass(5) = "bbbbbbbbbb"


пишу dll на с

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

extern "C" __declspec( dllexport ) int __stdcall razborf(char **arr)
{
   int g;

   for(g=0; g<4; g++) {
     sprintf(str1, "%d", (*arr)++ );
     MessageBox(0, str1, "temp2", 0);
     strcpy(*arr,  "My String")   
}
}


при попытке записать по какому-либо адресу я вываливаюсь в ошибку что память не может быть written

если эту функцию из С вызывать - все еллоупуки

[<Sergey>]

Используй вместо массива строк двумерный байтовый массив.
Проблемы у тебя возникают потому, что VB, если ты создал строковый массив, по адресу массива будет хранить не сами строки а другие адреса (по 4 байта на адрес каждого элемента массива).

[GSerg]

** - это как раз указатель на указатель...
Напиши, как ты вызываешь эту функцию из VB.

[blackmac]

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

Private Declare Function razborf Lib "AMServ.dll" Alias "_razborf@4" (ByRef mass As String) As Long

потом инициирую массив
Dim mass() As String

mass(1) = "zzzzzzzzzz"
mass(2) = "xxxxxxxxxx"
mass(3) = "cccccccccc"
mass(4) = "vvvvvvvvvv"
mass(5) = "bbbbbbbbbb"

а потом вызываю функцию
j = razborf(mass(0))

потом печатаю результат
Form1.Text1.Text = mass(1)
....
Form1.Text4.Text = mass(4)
Form1.Text5.Text = mass(5)



[<Sergey>]

попробуй объявить строковый массив фиксированной длины
Dim str(5) As String * 50. В этом случае по адресу массива будут храниться сами строки.
а в C-ишную функцию можно добавить еще один аргумент - длина строки.
И когда будешь передавать строки не забудь в конце каждой добавить нулевой символ.

И еще один момент если массив начинается с первого элемента, то и в функцию нужно передавать его, а не нулевой.