Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / LL: API call caused an exception при выполнении примера из S / 2 сообщений из 2, страница 1 из 1
07.11.2005, 18:21:40
    #33364957
Ivanov GD
Ivanov GD
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LL: API call caused an exception при выполнении примера из S
Добрый день всем!

Решил попробовать собрать 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
| Ответить | Цитировать | Написать  
07.11.2005, 23:08:02
    #33365306
luser
luser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LL: API call caused an exception при выполнении примера из S
Не парся. Так делай:
Код: 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
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / LL: API call caused an exception при выполнении примера из S / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 426ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1593121]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 164ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 27ms
get tp. blocked users:
 1ms
others: 195ms
total:  426ms
x
x
Закрыть


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