Использование длл, написанной на С++, в программе на ВБ 6

[Гончий]

Мне нужно использовать в программе, написанной на Visual Basic 6.0, длл, написанную на С++

Пытался написать небольшую тестовую программу, но ничего не получается, программа просто вылетает с ошибкой

Сама программа на Бейсике такая:

Private Declare Sub Sort Lib "Sortik_Sort_N_Alg.dll" (array1() As String, ByVal narray As Long)

Dim A(6) As String

Private Sub Form_Load()
    A(0) = "2"
    A(1) = "3"
    A(2) = "5"
    A(3) = "6"
    A(4) = "7"
    A(5) = "1"
    A(6) = "9"
    Call Sort(A, 7)
End Sub

Процедура Sort берется из библиотеки, ее код такой:

#include <windows.h>

BOOL WINAPI DllMain(HINSTANCE hinst, DWORD fdwReason, LPVOID)
{
	switch(fdwReason)
	{
		case DLL_PROCESS_ATTACH:
			break;
		case DLL_PROCESS_DETACH:
			break;
	}
	return TRUE;
}

void WINAPI Srav(char* s1, char* s2, bool OneMore)
{
	int ii;
	OneMore = TRUE;
	if (strlen(s1) > strlen(s2)) OneMore = TRUE;
	else
		if (strlen(s1) < strlen(s2)) OneMore = FALSE;
		else
		{
			for (ii = strlen(s1) - 1; ii > 1; ii++)
			{
				if (s1[ii] > s2[ii])
				{
					OneMore = TRUE;
					break;
				}
				else
				{
					if (s1[ii] < s2[ii])
					{
						OneMore = FALSE;
						break;
					};
				};
			};
		};	
};

void WINAPI Sort(char** iArray, const int Mas_4isla_Razmer) 
{ 
	int ii, jj;
	char* yyashik;
	bool Flag;
	Flag = TRUE;
	for (ii = 0; ii < Mas_4isla_Razmer - 1; ii++) 
	{ 
	    for(jj = ii + 1; jj < Mas_4isla_Razmer; jj++) 
		{ 
			Srav(iArray[ii], iArray[jj], Flag); 
			if (Flag)
			{
				yyashik = iArray[jj]; 
				iArray[jj] = iArray[ii]; 
				iArray[ii] = yyashik; 
			} 
		} 
	}
}

Библиотека должна обеспечивать сортировку длинных чисел, поэтому работаю со строками

Программа при обращении к процедуре вылетает сама, и еще сама среда вылетает. Говорит, что какая-то инструкция обратилась по адресу и память не может быть read. Что делать?

[Syuf]

Может стоит написать так?

void WINAPI Sort(string [] iArray, const int Mas_4isla_Razmer);

А в какой именно момент она вылетает?

[Гончий]

Вылетает в момент вызова функции Sort. Дальше нее не идет

Может стоит написать так?

Так у меня длл не компилируется, говорит, что "string" неизвестный идентификатор

[Syuf]

Хороший подход, а включить

#include <string>     // или #include <cstring> или #include <string.h>
using std::string;

вы не хотите?

[Syuf]

Скорее всего проблема и есть в этом сомнительном переводе из String(6) в char**

[Гончий]

Спасибо, все сделал, как сказали. Выходит 8 ошибок, несколько недовольны функцией strlen

[Syuf]

А с чем вы ее применяете?

[Гончий]

void WINAPI Srav(string s1, string s2, bool OneMore)
{
	int ii;
	OneMore = TRUE;
	if (strlen(s1) > strlen(s2)) OneMore = TRUE;
	else
		if (strlen(s1) < strlen(s2)) OneMore = FALSE;
		else
		{
			for (ii = strlen(s1) - 1; ii > 1; ii++)
			{
				if (s1[ii] > s2[ii])
				{
					OneMore = TRUE;
					break;
				}
				else
				{
					if (s1[ii] < s2[ii])
					{
						OneMore = FALSE;
						break;
					};
				};
			};
		};	
};

[Syuf]

А какие именно ошибки?

[Гончий]

На строчку "if (strlen(s1) > strlen(s2)) OneMore = TRUE;"

Error C2664: 'strlen' : cannot convert parameter 1 from 'class std::basic_string<char,struct std::char_traits<char>,class std::allocator<char> >'
to 'const char *'
No user-defined-conversion operator available that can perform this conversion, or the operator cannot be called



На строчку "void WINAPI Sort(string[] iArray, const int Mas_4isla_Razmer) "

fatal error C1004: unexpected end of file found