powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / LL: API call caused an exception при выполнении примера из S
2 сообщений из 2, страница 1 из 1
LL: API call caused an exception при выполнении примера из S
    #33364957
Ivanov GD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добрый день всем!

Решил попробовать собрать FLL ...
C Hello, World - все хорошо.
Взял пример из Samples\API - reverse.c
Все компилиться и линкуется (atls.lib исключил).
Но при выполнении в фоксе вываливается с собщением: - API call caused an
exception

На этой строке ->

if ((mh_out = _AllocHand(parm->p[0].val.ev_length+1)) == 0)
_Error(182); /* "Insufficient memory." */


Использую VC++ 6.0, VFP 8.0 SP1

Функцию вызываю как ?reverse('abcdefgh')

Чего не хватает фоксу или С?

Заранее спасибо.
Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
LL: API call caused an exception при выполнении примера из S
    #33365306
luser
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не парся. Так делай:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
#include <Pro_ext.h>
#define p(i) parm->p[(i)].val

void Test(ParamBlk FAR *parm) 
{

  char *str    = (char *) malloc(p( 0 ).ev_length);
  str[p( 0 ).ev_length] = '\0';
  memmove(str,_HandToPtr(p( 0 ).ev_handle),p( 0 ).ev_length);
  _RetChar(str);
}

FoxInfo myFoxInfo[] = {
	{"TEST"      ,(FPFI)  Test,       1 ,"C"         }, 
};
extern "C"  FoxTable _FoxTable = {(FoxTable  *)  0 , sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo};

Fox:
Код: plaintext
1.
SET LIBR TO string.fll ADDITIVE 
? TEST("ЛЯ-ЛЯ-ЛЯ")
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / LL: API call caused an exception при выполнении примера из S
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]