Подключение DLL

@ksv_uk · Регистрация: 04.03.2011

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

Ребята, помогите пожалуйста, уже третий день голову ломаю.
Подключаю к своей программке библиотеку швейцарских эфемерид swedll32.dll (функции написаны на чистом с), при вызове функции выскакивает Unhandled exception at 0x00000000 in ... Access violation.
Может линкер нужно настроить или я что-то неправильно делаю.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
typedef double( * swe_julday)(int god, int mes, int day, double hour, int gregflag);
//typedef int (*TSuperFunc2)();
//typedef void (*TSuperFunc3)();
//
HMODULE hMod;
swe_julday SuperFunc1;
 
double k;
//
hMod = LoadLibrary(L"swedll32.dll");
(FARPROC&) SuperFunc1 = GetProcAddress(hMod, "SuperFunc1");
 
 
 
k=SuperFunc1(2011,8,28,13.00,0);
 
 
FreeLibrary(hMod);

Спасибо.
С уважением, Сергей

@Digit@ll · 30.08.2011, 03:22

У тебя название ф-ции неправильное, _swe_julday@24 она. А вообще, какая-то загадочная эта dll.

@Deviaphan · 30.08.2011, 07:03

Почему у тебя ссылка на указатель?
Пиши так

C++
1
SuperFunc1 = (swe_julday)GetProcAddress(hMod, "SuperFunc1");

Кроме того убедить, что конвенция вызова совпадает.
И самое главное, после получения адреса процедуры убедить, что он не равен 0. Тогда и ошибки этой не будет.

Добавлено через 1 минуту
Да и hMod на NULL тоже проверять надо.

@-=ЮрА=- · 30.08.2011, 09:25

Сообщение от ksv_uk

Ребята, помогите пожалуйста, уже третий день голову ломаю.

Предлагаю 2 варианта
1-й

C++
1
2
3
4
#define IMPORT __declspec (dllimport)
#pragma comment(lib,"swedll32.lib") 
 
IMPORT double swe_julday(int god, int mes, int day, double hour, int gregflag);

2-й
Если swedll32.lib нет - можешь попробовать создать хедер и срр для подключения написав в проекте #import "swedll32.dll" - папке Debug создадуться два файлика tlh(аналог .h) и tli (аналог .срр)

@ksv_uk · 30.08.2011, 19:48 **[ТС]**

Ребята, спасибо всем за помощь, но пока не удалось побороть мне проблему. Правда, статически еще не пробовал подключить. Не могу понять почему динамически не удается подключить. Уже спортивный интерес проснулся.
Переделал немного код

C++
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
typedef double( * swe_julday)(int year, int month, int day, double hour, int gregflag);
 
HMODULE hMod;
swe_julday SuperFunc1;
 
double k;
//
hMod = LoadLibrary(L"swedll32.dll");
if (hMod){
 
    SuperFunc1 = (swe_julday)GetProcAddress(hMod, "SuperFunc1");
 
    if (SuperFunc1){
               AfxMessageBox(L"OK!!!");
               k=SuperFunc1(2011,8,28,11.00,0);
 
        }
        else
                 AfxMessageBox(L"FALSHE!!!");
 
}else
 
   AfxMessageBox(L"FALSHE!!!FALSE");
 
    FreeLibrary(hMod);

В результате получаем FALSE!!! Следовательно, какая-то проблема со взятием адреса.

Вот так описывается функция в документации к dll

C++
1
double swe_julday(int year, int month, int day, double hour, int gregflag);

@Deviaphan · 30.08.2011, 20:08

Сообщение от ksv_uk

Вот так описывается функция в документации к dll

А почему им пишешь GetProcAddress(hMod, "SuperFunc1"); ?
Пиши GetProcAddress(hMod, swe_julday);

@ksv_uk · 30.08.2011, 20:18 **[ТС]**

И так тоже не хочет

@Digit@ll · 30.08.2011, 22:57

Сообщение от ksv_uk

Следовательно, какая-то проблема со взятием адреса

Я тебе уже написал, в чем проблема. Что за документация?

@ksv_uk · 30.08.2011, 23:13 **[ТС]**

спасибо.
Я думаю, что действительно вижуал возвращает другое название. думаю, что с помощью этого можно что-то сделать "extern "C" __declspec(dllexport)", чтобы компилятор не декорировал имена. но пока еще не поборол. А документация, вот тут есть ftp://ftp.astro.com/pub/swisseph/doc/

С уважением. Сергей

ValeryS · 30.08.2011, 23:17

проверить надо экспортируется функция или нет
кинь сюда эту длл-ку

@ksv_uk · 30.08.2011, 23:23 **[ТС]**

вот она длл

@ksv_uk · 30.08.2011, 23:35 **[ТС]**

Да, действительно экспортируемое имя другое
Сейчас попробую его использовать

@ksv_uk · 31.08.2011, 00:23 **[ТС]**

Какое-то наваждение с этой длл

Вот так все работает, получаем адрес функции ->> выводит ОК!

C++
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
typedef double( * swe_julday)(int year, int month, int day, double hour, int gregflag);
HMODULE hMod=NULL;
 
double k,p;
 
//
hMod = LoadLibrary(L"swedll32.dll");
 
if (hMod){
 
   
    swe_julday swejul = (swe_julday)GetProcAddress(hMod, "_swe_julday@24");
    if (swejul){
               AfxMessageBox(L"OK!!!");
               k=swejul(2011,8,28,11.00,0);
            p=k;
        }
        else
                 AfxMessageBox(L"FALSHE!!!");
 
}else 
    
 
   AfxMessageBox(L"FALSHE!!!FALSE");
 
  FreeLibrary(hMod);

А затем это.Что это может быть?

С уважением, Сергей

ValeryS · 31.08.2011, 00:50

значится так это не

Сообщение от ksv_uk

написаны на чистом с)

а С++ искажение имен однако
грузить можно двумя способами

C++
1
2
3
4
5
6
7
8
9
10
11
12
HMODULE swedll32_dll;
 double( __cdecl* swe_julday)(int god, int mes, int day, double hour, int gregflag);
 
void InitLargeDLL()
{
swedll32_dll= LoadLibrary(_T("swedll32.dll"));// загружаем DLL
  if(swedll32_dll) //если загружена
  {
   (FARPROC &) swe_julday = GetProcAddress(swedll32_dll, "_swe_julday@24"); // грузим по имени
    (FARPROC &) swe_julday =GetProcAddress(swedll32_dll,MAKEINTRESOURCEA(73)); //грузим по Ord типа порядковый номер
   (FARPROC &) swe_julday = GetProcAddress(swedll32_dll, "_swe_julday"); // а вот эта не грузится
  }

Сообщение от ksv_uk

SuperFunc1 = (swe_julday)GetProcAddress(hMod, "SuperFunc1");

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

Добавлено через 16 минут

Сообщение от ksv_uk

А затем это.Что это может быть?

это значит ломается стек
прошел я сию функцию отладчиком это Паскаль-функция в конце
ret 18 а ты вызываешь ее как С функцию
после вызова функции
sub esp,18
вот стек и сорвало
доббавь ключевое слово PASCAL
вот так

C++
1
double(PASCAL* swe_julday)(int god, int mes, int day, double hour, int gregflag);

и будет тебе щастье

Добавлено через 7 минут
__stdcall современное
PASCAL устаревшее
можешь еще

C++
1
2
3
4
5
6
7
#elif (_MSC_VER >= 800) || defined(_STDCALL_SUPPORTED)
#define CALLBACK    __stdcall
#define WINAPI      __stdcall
#define WINAPIV     __cdecl
#define APIENTRY    WINAPI
#define APIPRIVATE  __stdcall
#define PASCAL      __stdcall

@ksv_uk · 31.08.2011, 00:54 **[ТС]**

УРААААА! Работает!

ValeryS, огромное спасибо за помощь! Очень признателен Вам.

С уважением, Сергей!

ValeryS · 31.08.2011, 00:55

ну и слава богу

@Digit@ll · 31.08.2011, 01:27

Тю, а чего у меня не работает? Заменил на

C++
1
double(PASCAL* swe_julday)(int god, int mes, int day, double hour, int gregflag);

и все тот-же Run_Time.

ValeryS · 31.08.2011, 01:48

Сообщение от Digit@ll

Тю, а чего у меня не работает?

а кто его знает
вот рабочий кусок

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
HMODULE swedll32_dll;
 double( __stdcall* swe_julday)(int god, int mes, int day, double hour, int gregflag);
 
void InitLargeDLL()
{
swedll32_dll= LoadLibrary(_T("swedll32.dll"));
  if(swedll32_dll)
  {
   (FARPROC &) swe_julday = GetProcAddress(swedll32_dll, "_swe_julday@24");
  double k=swe_julday(2011,8,28,11.00,0);
                       
     (FARPROC &) swe_julday =GetProcAddress(swedll32_dll,MAKEINTRESOURCEA(73)); 
    k=swe_julday(2011,8,28,11.00,0);
             
  }

посмотри чему у тебя равен PASCAL
правой кнопкой мыши - перейти к определению
попробуй WINAPI
Я не зря ведь кусок WinDef.h запостил
может у тебя из-за настроек проекта не выполняется вот это условие

C
1
#elif (_MSC_VER >= 800) || defined(_STDCALL_SUPPORTED)

Добавлено через 4 минуты
ksv_uk,

Сообщение от ksv_uk

double swe_julday(int year, int month, int day, double hour, int gregflag);

это скорее всего описание из h файла который нужен при статической линковке

Добавлено через 3 минуты

Сообщение от Digit@ll

У тебя название ф-ции неправильное, _swe_julday@24 она

а как ты название функции узнал

@Digit@ll · 31.08.2011, 02:49

Sorry за беспокойство, тупанул... И спасибо за PASCAL, работает с ним.

Сообщение от ValeryS

а как ты название функции узнал

Примерно так #12

Добавлено через 21 минуту
Да, и лучше вызывать по названию ф-ции, а не по её номеру. Будет меньше проблем с версиями.

ValeryS · 31.08.2011, 06:43

Сообщение от Digit@ll

Примерно так #12

не ну это то понятно
но ksv_uk, ее не присылал еще

вот я и подумал
как же ты её определил
неужели сам зашифровал

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@Digit@ll Brainsbreaker 899 / 374 / 54 Регистрация: 01.02.2011 Сообщений: 1,608
	30.08.2011, 03:22
	У тебя название ф-ции неправильное, _swe_julday@24 она. А вообще, какая-то загадочная эта dll. 1

@ksv_uk 7 / 7 / 1 Регистрация: 04.03.2011 Сообщений: 87
	30.08.2011, 20:18 [ТС]
	И так тоже не хочет 0

@ksv_uk 7 / 7 / 1 Регистрация: 04.03.2011 Сообщений: 87
	30.08.2011, 23:13 [ТС]
	спасибо. Я думаю, что действительно вижуал возвращает другое название. думаю, что с помощью этого можно что-то сделать "extern "C" __declspec(dllexport)", чтобы компилятор не декорировал имена. но пока еще не поборол. А документация, вот тут есть ftp://ftp.astro.com/pub/swisseph/doc/ С уважением. Сергей 0

ValeryS Модератор 8981 / 6748 / 921 Регистрация: 14.02.2011 Сообщений: 23,871
	30.08.2011, 23:17
	проверить надо экспортируется функция или нет кинь сюда эту длл-ку 1

@ksv_uk 7 / 7 / 1 Регистрация: 04.03.2011 Сообщений: 87
	30.08.2011, 23:35 [ТС]
	Да, действительно экспортируемое имя другое Сейчас попробую его использовать Миниатюры 0

@ksv_uk 7 / 7 / 1 Регистрация: 04.03.2011 Сообщений: 87
	31.08.2011, 00:54 [ТС]
	УРААААА! Работает! ValeryS, огромное спасибо за помощь! Очень признателен Вам. С уважением, Сергей! 0

ValeryS Модератор 8981 / 6748 / 921 Регистрация: 14.02.2011 Сообщений: 23,871
	31.08.2011, 00:55
	ну и слава богу 0