Подключение сторонней библиотеки на С++

[strateg]

Да возможно и в первый параметр sol_MorphologyAnalysis надо передать также указатель на поисковую машину.

[Vi]

В итоге если вызвать функцию MorphologyAnalysis один раз, то в rez3 пятизначное число, если вызвать повторно, то там цифра 2, тогда как должно быть 3. 3 Узла.

Явно что-то идет не так. А у Вас работает эта функция?
В первом параметре GetNodeIEntry вероятно должен передаваться указатель на поисковую машину sol_CreateSearchEngine, а не на граматическую, но всё равно непонятно почему в rez3 такая пляска с цифрами. И в декларации всё верно и указатель на строку передал.

Это уже относится к семантике, а не к синтаксису, и требует ориентации в предметной области, чего у меня нет.

Проверь индексы - вряд ли они начинаются с 1. Зная С-шную природу библиотек, они начинаются с 0, т.е. 0,1,...,n-1, где n - число элементов, адресующихся индексами.

[strateg]

Если Вы про CountRoots и что если она вернула - 2, то значит от нуля это получается 0-2 всего, тогда тут тоже не получается. Берешь нулевой узел или 1-й результат тот же. Ладно эта функция не так уж важна.

Вот функция GetEntryCoordState казалось бы элементарная, получает падеж для слова и так далее

int sol_GetEntryCoordState( HGREN hEngine, int EntryIndex, int CoordId )

Private Declare Function GetEntryCoordState Lib "solarix_grammar_engine.dll" Alias "sol_GetEntryCoordState" (ByVal hBuilder As Long, ByVal EntryIndex As Long, ByVal CoordId As Integer) As Long
rez = SeekWord(rezgr, StrPtr("КОШКА"), 1)
rez2 = GetEntryClass(rezgr, rez) - получаем класс - 7 существительное
rez3 = GetEntryCoordState(rezgr, rez, 20) передаем индекс слова, читсло 20-ть означает падеж. Должны получить номер падежа 1- именительный. Получаем -1 - ошибка.

Чудеса

[Vi]

Чудеса

Попробуй не использовать Integer в параметрах, а только Long. Конечно, ерунда, но больше у меня никаких предположений нет.

[strateg]

Да, мне уже приходила такая мысль, не помогло
Если у Вас будет время возможно вы попробуете на С++, работает оно хотя бы там? Просто чтобы знать стоит ли копать дальше.

[Хакер]

strateg, сформулируй полностью свою и полоние дел на данный момент.

Есть желание помочь, но нет желания прочитывать всю тему и прослеживать весь ход разбирательства.

[strateg]

Проблема - пользоваться функциями из библиотеки С++ средствами Visual Basic 6.0
Функции анализируют слова определяют часть речи, падеж число и т.д.
Разбивают предложения на слова и текст на предложения
Генереруют готовые семантически правильные предложения, выполняют синонимизацию, перефразировку текста и т.д.

Что удалось сделать?
Разбивать текст на предложения и предложения на слова
Получать часть речи каждого слова.
Получать все словоформы и связанные слова с данным словом, например со словом кошка связано слово игривое.
Получать леммы - исходные части слов. Кошки-Кошка
Удается передавать параметры этим функциям и получать результаты.

Что не удалось?
По необъяснимым причинам некоторые функции отказывают работать.
Функция склонения существительных падает, хотя её декларация практически идентична тем что работают правильно
Морфологический анализатор выдает непонятно что
Функция определения падежа числа и т.д. возвращает - 1
Функция генерирования предложения возвращает - 1

Вообщем самые вкусные функции пока не работают. Точнее работают но не так как надо.

Хакер Напиши что от меня требуется? Пришлю в личку проект на Visual Basic и библиотеки. Собственно по-другому не могу описать проблему, потому как сам не совсем понимаю проблему.

[Хакер]

Негодное описание.

пользоваться функциями из библиотеки С++ средствами Visual Basic 6.0

В этом само по себе нет никакой проблемы.

Если не можешь сформулировать напиши в виде «Что делаю», «Как оно себя ведёт», «Ожидаемое поведение» плюс ссылки на источники (доки, хеадеры и т.п.) из которых следует логичность действий и ожидаемое поведение.

[strateg]

Отправил в личку

[strateg]

Еще прикрепляю список констант.

[strateg]

Удалось запустить функцию

GetClassName

, а также

SyntaxAnalysis

[Vi]

rez2 = GetEntryClass(rezgr, rez) - получаем класс - 7 существительное
rez3 = GetEntryCoordState(rezgr, rez, 20) передаем индекс слова, читсло 20-ть означает падеж. Должны получить номер падежа 1- именительный. Получаем -1 - ошибка.

Чудеса

А никаких чудес. Просто константы в _sg_api.rar устаревшие.

const int CASE_ru = 20; // enum ПАДЕЖ
const int COMPAR_FORM_ru = 23; // enum СТЕПЕНЬ

GetCoordName(hEngine, 20) -> ЗАЛОГ
GetCoordName(hEngine, 23) -> ПАДЕЖ

const int NOUN_ru = 7; // class СУЩЕСТВИТЕЛЬНОЕ
const int PARTICIPLE_ru = 20; // class ЧАСТИЦА
const int CONJ_ru = 21; // class СОЮЗ
const int ADVERB_ru = 22; // class НАРЕЧИЕ

GetClassName(hEngine, 7) -> СУЩЕСТВИТЕЛЬНОЕ
GetClassName(hEngine, 19) -> ЧАСТИЦА
GetClassName(hEngine, 20) -> СОЮЗ
GetClassName(hEngine, 21) -> НАРЕЧИЕ

[strateg]

C этим я разобрался и падежи получил и морфологический анализ и синтаксический и почти всё получилось.

Остались фукнции

GeneratePhrase3
Paraphrase
SeekThesaurus

Эти функции выдают или - 1 или вообще ничего не возвращают. А у Вас эти функции работают? Если вы еще занимаетесь этим вопросом.

[Vi]

Остались функции GeneratePhrase3 Paraphrase SeekThesaurus
Эти функции выдают или - 1 или вообще ничего не возвращают. А у Вас эти функции работают? Если вы еще занимаетесь этим вопросом.

Я специально не занимаюсь, но было время - посмотрел, поскольку были непонятки у тебя. Эти функции я посмотрю вечером, хотя какой с меня толк - нужно же разбираться, что туда пихать им.

Если не сложно, кусочек кода, чтобы мне не набивать самому.

[Vi]

Остались функции GeneratePhrase3 Paraphrase SeekThesaurus
Эти функции выдают или - 1 или вообще ничего не возвращают. А у Вас эти функции работают?

int sol _ GeneratePhrase3(HGREN_PHRASOMAT hBuilder, HGREN_FGTEMPLATE hTemplate, int PhraseType, wchar_t * NewPhrase, int maxlen)

int sol _ Paraphrase (HGREN_PHRASOMAT hBuilder, int ScenarioType, int SyntaxAnalysisFlags, int NGramFlags, int ThesaurusFlags, int DebugFlags, int ResultsFormat, int MaxSubst, const wchar_t * OrgPhrase, wchar_t * NewPhrase, int maxlen, int max_elapsed_msec)

HGREN_INTARRAY sol _ SeekThesaurus(HGREN hEngine, int EntryIndex, bool Synonyms, bool Grammar_Links, bool Translation, bool Semantics, int nJumps)

Вроде бы ничего сложного с этими функциями нет: всё передаётся через Long и нужно только не забывать про StrPtr на текстах.

Private Declare Function SeekThesaurus Lib dllname Alias "sol _ SeekThesaurus" (ByVal hEngine As Long, ByVal EntryIndex As Long, ByVal Synonyms As Long, ByVal Grammar_Links As Long, ByVal Translation As Long, ByVal Semantics As Long, ByVal nJumps As Long) As Long

У меня ВижуалБэйсика нет, приходится на VBScript-е отрабатывать.

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

   For Each s In Array("простыни", "роем", "кошками", "шлемом", "пьет", "высоко")
      nEntryIndex = .SeekWord(hEngine, UCASE(s), True) ' для VB будет StrPtr(UCASE(s))

      sEntryName = Space(nLexemLen)
      Call .GetEntryName(hEngine, nEntryIndex, sEntryName) ' для VB будет StrPtr(sEntryName)
      sEntryName = Left(sEntryName, InStr(sEntryName & vbNullChar, vbNullChar) - 1)

      nClass = .GetEntryClass(hEngine, nEntryIndex)
      hArray = .SeekThesaurus(hEngine, nEntryIndex, False, False, False, False, 0)
      If hArray <> 0 Then
         nArray = .CountInts(hArray)

         nArrayMax = nArray
         If nArrayMax > 15 Then nArrayMax = 15

         t = ""
         For iArray=0 To nArrayMax-1
            nEntryArray = .GetInt(hArray, iArray)

            sEntryArrayName = Space(nLexemLen)
            Call .GetEntryName(hEngine, nEntryArray, sEntryArrayName) ' для VB будет StrPtr(sEntryArrayName)
            sEntryArrayName = Left(sEntryArrayName, InStr(sEntryArrayName & vbNullChar, vbNullChar) - 1)

            t = t & " " & nEntryArray & " " & sEntryArrayName
         Next
WScript.Echo s & " nEntryIndex=" & nEntryIndex & " " & sEntryName & " nClass=" & nClass & " nArray=" & nArray & " t=" & t

         rez1 = .DeleteInts(hArray)
      End If
   Next


простыни.nEntryIndex=31297..простынуть.nClass=13.nArray=5 t= 59368 озябнуть 56835 остыть 31300 простывать 31296 простынуть...
роем.......nEntryIndex=23569..рой............nClass=7..nArray=1 t= 23638 роение
кошками..nEntryIndex=77787..кошка.........nClass=7..nArray=14 t= 77795 кошачий 77786 кошкин 77785 кошкоподобный 47751 по-кошачьи...
шлемом...nEntryIndex=1952...шлем..........nClass=7..nArray=5 t= 59924 одежда 176498 casque 158727 helmet 158728 helm...
пьет........nEntryIndex=48600..пить...........nClass=13.nArray=26 t= 85906 зашибать 40529 посасывать 10944 трескать 36339 прикладываться...
высоко....nEntryIndex=101500.высокий......nClass=10.nArray=23 t= 95931 длинный 11645 тонкий 63914 низкий 66923 невысокий...

Я, правда, не нашёл констант для Paraphrase и GeneratePhrase3 и задал их нулями.

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

      OrgPhrase = "пила лежит на столе"
      NewPhrase = Space(1024)
      iBuffer = .Paraphrase(hBuilder, 0, 0, 0, 0, 0, 0, 1, OrgPhrase, NewPhrase, 1024, 60000)
      NewPhrase = Left(NewPhrase, InStr(NewPhrase & vbNullChar, vbNullChar) - 1)

WScript.Echo OrgPhrase & " == " & NewPhrase

      hTemplate = .CreateFGTemplate(hBuilder, OrgPhrase, 1)
      If hTemplate <> 0 Then
         NewGenPhrase = Space(1024)
         iGenBuffer = .GeneratePhrase3(hBuilder, hTemplate, 0, NewGenPhrase, 1024)
         NewGenPhrase = Left(NewGenPhrase, InStr(NewGenPhrase & vbNullChar, vbNullChar) - 1)

WScript.Echo OrgPhrase & " == " & NewPhrase & " == " & NewGenPhrase

         rez1 = .DeleteFGTemplate(hTemplate)
      End If

пила лежит на столе == пила лежит на столе ==

[strateg]

У меня вроде всё также

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

Private Declare Function GeneratePhrase3 Lib "synonymizer.dll" Alias "sol_GeneratePhrase3" (ByVal hBuilder As Long, hBuilderTem As Long, ByVal Typefrase As Integer, ByVal str2 As long, ByVal maxlen As Long) As Long

rezPhraseGenerator = CreatePhraseGenerator(rezgr, 1)
reztemp = CreateFGTemplate(rezPhraseGenerator, StrPtr("Кошка пьет молоко"), 1)
str2 = Space(1000)
rezfr = GeneratePhrase3(rezPhraseGenerator, reztemp, 0, StrPtr(str2), 1000)

Темплейт создается без проблем получаем указатель на него. А вот в rezfr всегда -1. Ну и ничего не возвращается.
Радует что у Вас работает. Может быть как-то vb-script приделать к своей программе?

[strateg]

Да и констант я тоже не знаю, но это всё уже частности. Эксперементальным путем можно вывести.

и судя по исходникам вообще не должна возвращать - 1 Хотя они могли устареть

DLL_ENTRY void sol_GeneratePhrase3(
HGREN_PHRASOMAT hBuilder,
HGREN_FGTEMPLATE hTemplate,
int PhraseType,
wchar_t *NewPhrase,
int maxlen
)
{

LEM_CHECKIT_Z( hBuilder!=NULL );
LEM_CHECKIT_Z( hTemplate!=NULL );
LEM_CHECKIT_Z( NewPhrase!=NULL );

if( hBuilder==NULL || hTemplate==NULL )
{
*NewPhrase=0;
return;
}

UFString s; s.reserve(256);
hTemplate->GeneratePhrase( hBuilder, PhraseType, s );
lem_strncpy( NewPhrase, s.c_str(), maxlen-1 );
NewPhrase[ maxlen-1 ] = 0;

#else

return;
}

[Vi]

У меня вроде всё также

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

Private Declare Function GeneratePhrase3 Lib "synonymizer.dll" Alias "sol_GeneratePhrase3" (ByVal hBuilder As Long, hBuilderTem As Long, ByVal Typefrase As Integer, ByVal str2 As long, ByVal maxlen As Long) As Long

Темплейт создается без проблем получаем указатель на него. А вот в rezfr всегда -1. Ну и ничего не возвращается.

Private Declare Function GeneratePhrase3 Lib "synonymizer.dll" Alias "sol_GeneratePhrase3" (ByVal hBuilder As Long, ByVal hBuilderTem As Long, ByVal Typefrase As Long, ByVal str2 As long, ByVal maxlen As Long) As Long

Если нет ByVal, то считается ByRef, т.е. передается указатель, а это не то, что ожидает функция. C-шный int - это VB-шный Long. Integer - это C-шный short.

[strateg]

Да пару раз ByVal я забыл, отсюда и были косяки.

Еще по поводу констант. Вот они: Или хотя бы часть

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

const int FG_LOGICS     = 0x00000001;
const int FG_GERUND1    = 0x00000002;
const int FG_GERUND2    = 0x00000004;
const int FG_QUEST      = 0x00000008; // генерировать вопросительные
const int FG_EXCLAM     = 0x00000010; // генерировать восклицательные
const int FG_INTRO      = 0x00000020;
const int FG_COMPLEX    = 0x00000040;
const int FG_MULTISENT  = 0x00000080;
const int FG_SUBSTWORDS = 0x00000100;
const int FG_PARAFRASE  = 0x00000200;
const int FG_COMSENT    = 0x00000400; // генерировать повествовательные предложения

const int FG_USE_LEX_WHEN_EXHAUSTED = 0x00010000; // если фильтрованные слова закончились,
                                                  // то использовать полный лексикон, а не
                                                  // исходный фильтрованный список
const int FG_EXTRACT_FIRST          = 0x00020000; // извекать не рандомно из фильтрованного
                                                  // списка, а один за одним

const int FG_DONT_REMOVE_USED       = 0x00040000; // не удалять из фильтрованного списка использованные.

const int FG_SYNONYMIZE_NOUNS       = 0x00080000; // выполнять синонимизацию существительных в sol_Paraphrase
const int FG_SYNONYMIZE_OTHERS      = 0x00100000; // выполнять синонимизацию не-существительных



Подскажите как правильно передать такую битовую комбинацию в функцию GeneratePhrase3 например.

[Vi]

Подскажите как правильно передать такую битовую комбинацию в функцию GeneratePhrase3 например.

Поскольку константы битовые, то с помощью "OR": FG_LOGICS OR FG_GERUND1 и т.д. сколько нужно. VB сложит побитово и передаст как целое число. Можно использовать "+", т.к. всё равно целые числа: FG_LOGICS + FG_GERUND1, но может возникнуть переполнение.

[Хакер]

Можно использовать

Но не нужно, потому что семантически неверно.

[Vi]

Но не нужно, потому что семантически неверно.

Но OR тоже семантически неверно, потому что по смыслу нужно И, т.е. AND: FG_LOGICS AND FG_GERUND1. Но не тут-то было.

[Хакер]

Это с точки зрения непрограммиста, который знает перевод слов «And»/«Or», но не знает смысл операторов «And»/«Or». С точки зрения программиста всё семантически верно.

[strateg]

А пример можно?
Как задать эту константу в visual basic
Так не получается разумеется

const FG_LOGICS = 0x00000001

А оператор "OR":
Допустим надо преобразовать одну константу FG_QUEST, а не две

perem = FG_QUEST or 0 ?

[iGrok]

0x... для VB эксивалентно &H...

Т.е. Const FG_LOGICS = &H1& или Const FG_LOGICS As Long = &H1

А вопрос про OR лучше уточни. Сейчас он как-то странно выглядит.

[strateg]

Уточняю

Поскольку константы битовые, то с помощью "OR": FG_LOGICS OR FG_GERUND1 и т.д. сколько нужно.

А если нужно только FG_LOGICS

[Vi]

А пример можно?
Допустим надо преобразовать одну константу FG_QUEST, а не две perem = FG_QUEST or 0 ?

Пример задания типизированных, т.е. имеющих тип, констант тебе уже привели, но я приведу ещё:

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

const  FG_LOGICS =  &h00000001 ' шестнадцатеричная запись
const  FG_LOGICS =  1 ' десятичная запись
const  FG_EXCLAM = &h00000010 ' шестнадцатеричная
const  FG_EXCLAM = 16 ' десятичная

rezfr = GeneratePhrase3(rezPhraseGenerator, reztemp, FG_SUBSTWORDS, StrPtr(str2), 1000)

rezfr = GeneratePhrase2(rezPhraseGenerator, FG_QUEST Or FG_EXCLAM Or FG_COMSENT, StrPtr(str2), 1000)

cond = FG_QUEST Or FG_EXCLAM Or FG_COMSENT
rezfr = GeneratePhrase2(rezPhraseGenerator, cond, StrPtr(str2), 1000)

rezfr = GeneratePhrase2(rezPhraseGenerator, cond Or FG_INTRO, StrPtr(str2), 1000)

[strateg]

Теперь всё понятно, одна беда осталась функция Parapharase возвращает ту же фразу что её и передали, никак на нее не влияя. А функция Generatefrase3 возвращает пробел.

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

Private Declare Function CreateFGTemplate Lib "synonymizer.dll" Alias "sol_CreateFGTemplate" (ByVal hBuilder As Long, ByVal Word As Long, ByVal lang As Long) As Long
Private Declare Function CountFGTemplateQuantors Lib "synonymizer.dll" Alias "sol_CountFGTemplateQuantors" (ByVal hBuilder As Long) As Long
Private Declare Function CountFGTemplateRoots Lib "synonymizer.dll" Alias "sol_CountFGTemplateRoots" (ByVal hBuilder As Long) As Long
Private Declare Function GeneratePhrase3 Lib "synonymizer.dll" Alias "sol_GeneratePhrase3" (ByVal hBuilder As Long, ByVal hBuilderTem As Long, ByVal Typefrase As Long, ByVal str2 As Long, ByVal maxlen As Long) As Long

rez6 = CreateFGTemplate(rezPhraseGenerator, StrPtr("Еще можно выделить медицинскую науку, которая, говоря кратко, представляет из себя следующее"), 1)
rez61 = CountFGTemplateQuantors(rez6)
rez62 = CountFGTemplateRoots(rez6)
str2 = Space(1000)
rez7 = GeneratePhrase3(rezPhraseGenerator, rez6, FG_SUBSTWORDS, StrPtr(str2), 10000)

Функции CountFGTemplateQuantors и CountFGTemplateRoots должны вернуть количество исходных единиц, которые выделил CreateFGTemplate, но возвращают они 0, так что получается функция CreateFGTemplate ничего не выделила и отработала впустую. Возможно туту проблема, что она получила строку как-то не так.