Как подключить к Дельфи и добиться работы от данных dll?

@ElenaTomsk · Регистрация: 11.10.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте

http://multitran.ru/DownLoad/lemm.zip здесь есть пример только на c, как его к дельфи прикрутить, совершенно непонятно. Автор не знает, спрашивала.

Здесь есть пример на дельфи 5, но в моей версии XE6 он не работает.
http://macrocosm.narod.ru/download/winmcr3.0.zip

Помогите, пожалуйста.

@mss · 12.04.2016, 15:15

заменяй все декларации String на AnsiString, Char на AnsiChar, PChar на PAnsiChar

@ElenaTomsk · 12.04.2016, 16:00 **[ТС]**

Вроде бы сделала. Грузится оно грузится, говорит, что все ок. Только даже для тестового примера "интернет" возвращается -1, словоформы не найдены.

Плюс еще ранее я сама нашла, что надо Integer менять на int64, иначе не грузился словарь. Возможно, не во всех местах заменила?

@mss · 12.04.2016, 16:18

как минимум здесь:

procedure TForm1.NFindClick(Sender: TObject);
var
s,s1:Ansistring;

Добавлено через 1 минуту
т.е. лок.переменные, передаваемые в либу по PAnsiChar-указателю, обязаны быть AnsiChar

@ElenaTomsk · 12.04.2016, 16:32 **[ТС]**

Спасибо большое. Я там еще в паре мест подправила char на AnsiChar и похоже, что в этот раз все работает (все тестовые примеры точно работают), если кому впредь будет нужно, архив прикладываю.
Еще бы, конечно, не только сделать, но понимания, что было сделано.

@ElenaTomsk · 13.04.2016, 08:45 **[ТС]**

Нет, поспешила. Осталась проблема, информация по слову не выводится. В цикл for i:=0 to Uid.count-1 do не заходит, потому что
Uid.count всегда 0.

Delphi

procedure TForm1.NFindClick(Sender: TObject);
var
s,s1:AnsiString;
// count:integer;
count,i,rc:integer;
Uid :Tids;
WData:TWs;
cstr,vstr:array[byte] of AnsiChar;
begin
         tmpId:=0;
         s:=Edit1.Text;
         count:=FindWID(PAnsiChar(s),@Uid);
         say('Для слова "'+s+'" найдено словоформ: ' +IntToStr(count));
         for i:=0 to Uid.count-1 do 
         begin
                rc:=GetBid(uid.ids[i].lnk,uid.ids[i].en,false,false,@WData);
                if rc>=0 then
                begin
                 strcopy(cstr,CTS(WData.inlex[0].cid));
                 strcopy(vstr,VTS(WData.inlex[0].cid,WData.inlex[0].vid));
                 if tmpId<>uid.ids[i].lnk then
                    begin
                     s1:='Лемма: '+StrPas(WData.inlex[0].anword);
                      say('');
                       end
                         else s1:='';
                 tmpId:=uid.ids[i].lnk;
                 say(s1);
                 s1:=#9+'* '+StrPas(cstr)+#9+StrPas(vstr);
                 say(s1);
                end
                else  say('Err:'+Inttostr(rc));
         end;
 NBGH.Enabled:=true;
end;

@ElenaTomsk 4 / 4 / 0 Регистрация: 11.10.2014 Сообщений: 108
		1
	Как подключить к Дельфи и добиться работы от данных dll? 12.04.2016, 15:08. Показов 1861. Ответов 5 Метки нет (Все метки) Здравствуйте http://multitran.ru/DownLoad/lemm.zip здесь есть пример только на c, как его к дельфи прикрутить, совершенно непонятно. Автор не знает, спрашивала. Здесь есть пример на дельфи 5, но в моей версии XE6 он не работает. http://macrocosm.narod.ru/download/winmcr3.0.zip Помогите, пожалуйста. 0

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	12.04.2016, 15:15	2
	заменяй все декларации String на AnsiString, Char на AnsiChar, PChar на PAnsiChar 1

@mss 2664 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	12.04.2016, 16:18	4
	Сообщение было отмечено ElenaTomsk как решение Решение как минимум здесь: procedure TForm1.NFindClick(Sender: TObject); var s,s1:Ansistring; Добавлено через 1 минуту т.е. лок.переменные, передаваемые в либу по PAnsiChar-указателю, обязаны быть AnsiChar 0

	13.04.2016, 08:45

Как подключить к Дельфи и добиться работы от данных dll?

Решение