Здравствуйте, уважаемые форумчане!
Кажется здесь еще не обсуждалась эта тема - как организовать обмен строковыми данными между офисными VBA-приложениями и простыми (не COM) DLL, написанными на С++. Туда и обратно.
Работаю над лингвистическим проектом. Написав программу на VBA под MS Word, которая работает с массивами данных типа String, пришел к выводу, что при увеличении объема данных программа начнет "тормозить". Для ускорения работы некоторых функций решил переписать их на С++ и загнать в DLL. Начал с простых попыток обмена данными, но столкнулся с тем, что строки (слова) в формате BSTR VBA неправильно передаются в DLL. Я не специалист в с++. Начал им заниматься недавно в Vsual Studio 2005. Ниже приведен код функций, которые удачно экспортируются в dll, но дают некорректный результат. Непонятно, в каком виде доходит string до dll? Нужна ваша помощь непрофессионалу.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
//---------------------------------DLL
//работает неправильно (видимо ищет подстроку...)
// пробовал и другие операторы сравнения, безрезультатно...
#include "stdafx.h"
#include <string>
#include <iostream>
using namespace std;
string *WeekdayRu;
bool WINAPI DaNet( char *ss)
{
bool nalichie = false;
for(int k= 0 ; k< 7 ; k++)
{
if (ss == WeekdayRu[k]) {nalichie = true; break;}
}
//MessageBox (0, ss, "Заголовок", MB_OK); // хорошо бы здесь выводить значение ss, но не получается - компилятор выдает ошибки
return nalichie;
}
// функция загружает данные в память (массив указателей WeekdayRu)
int WINAPI Zagruzka()
{
WeekdayRu = new string[ 7 ];
string SlovaRu[] = {"Понедельник", "Вторник", "Среда", "Четверг", "Пятница", "Суббота", "Воскресенье"};
for(int i= 0 ; i< 7 ; i++)
{
WeekdayRu[i] = SlovaRu[i];
}
return 0 ;
}
Public Declare Function Zagruzka Lib "C:\Mojadll.dll" () As Long
Public Declare Function DaNet Lib "C:\Mojadll.dll" (ByVal ss As String) As Boolean
---------------------------------------------------------------------------------------
Sub mydll()
Zagruzka
Dim Slovo As String
Slovo = "пятница" 'если я набираю "ятница" или "ница" - все равно возвращает "True" (почему ???)
MsgBox DaNet(Slovo)
End Sub
