кто-нибудь работал с командой IMPLIB??

[korn999]

Я сделал тестовую DLL на DELFI int sum(int a, int b) result:=a+b
и нужно загрузить её из Builder 5 (или RAD XE5).
Бьюсь- бьюсь, ничего не выходит! Помогите, пожалуйста!

[FataLL]

Динамическая загрузка:
1) Описываешь указатель на функцию

typedef int (*TSumFunc)(int,int);
TSumFunc pfSum;

2) Грузишь DLL и получаешь адрес функции

HMODULE hDll = LoadLibrary( "Sum.dll" );
if( hDll == NULL )
{
  // Обработка ошибки
}
pfSum = (TSumFunc) GetProcAddress( hDll, "sum" );
if( pfSum == NULL )
{
  // Обработка ошибки
}

3) Используешь

int nResult = pfSum( 2, 3 );

Статическая загрузка
1) С помощью IMPLIB создаёшь Sum.lib и подключаешь к проекту

#pragma comment(lib, "Sum.lib")

2) Описываешь импортируемую функцию

__declspec(dllimport) int sum( int, int );

3) Юзаешь

int nResult = sum( 2, 3 );

[korn999]

Извините, но не получается ни-фи-га! 5 323-ой раз "unresolvd"...
Не могли бы Вы сделать и послать мне исходники на
kornju@mail.ru ?

Меня интересует только статический случай.

или возьмите мои...
http://kornju.hop.ru/make%20DLL.zip
http://kornju.hop.ru/use%20DLL.zip

[FataLL]

Два момента. В use DLL

extern "C" __declspec(dllimport) int _stdcall sum( int, int );

И уже почти счастье. Компиляется, но считает ерунду. Потому что в дельфийском варианте функция считает, что параметры передаются через регистры. Подозреваю, что дело в неправильном описании дельфёвой функции, поэтому, в make DLL [не проверял, дельфей нет]

function sum(a: Integer; b: Integer) : Integer; stdcall;

[korn999]

Я добавил в DELFI-йскую функцию stdcall и всё заработало как надо! Возвращает 5.
ПОЖАЛУЙСТА, проконтролируйте и мою основную работу.
Я заключил договор на написание интерфейса к прибору. К нему имеется только описание и dll-ка на DELFI: CCDUSBDCOM01.dll
Я буду писать программу на RAD XE5. Сейчас моя задача, чтобы программа проглотила один из трёх вариантов:
HitTest(long); // как в паскалевском примере
ССD_HitTest(long); // как в описании
ССDСОМB_HitTest(long); // как в def файле (сделал impdef-ом)
...

[FataLL]

Так, всё по образу и подобию. В чём трудность?

[korn999]

А вот снова не получается!
Для функций (тестовой) sum, для HitTest, GetSerialNumber - вроде работает(??)
а на ССD_Init - ругается.

Дельфийский вариант берёт, а си-шный нет!

Подскажите, как правильно?

extern "C"
__declspec(dllimport)
//long
//unsigned char
boolean
_stdcall
CCD_Init(HWND ahAppWnd, char* Prm, long ID);
//extern "C" __declspec(dllimport) long _stdcall
// CCD_GetSerialNum(long ID, char* Prm);

/*
function CCD_Init (ahAppWnd : HWND; Prm : PChar; Var ID
: Integer) : boolean; stdcall;
*/



void __fastcall TForm1::Button1Click(TObject *Sender)
{
char* Prm;
long temp=0;
CCD_Init(Application->Handle, Prm, temp);
}


Говорит исключение в CCDUSBDCOM01.dll. Write of adress 0000000. А функции hittest и getserialnum вроде работают. И тестовая sum(a+b) - тоже.


Моя программа
korrn.hop.ru/CC.ZIP

[FataLL]

1) Не возможно скачать файл по указанной ссылке.
2) Если программа компилируется, значит функцию линкер находит. Исключение может возникать только в том случае, если аргументы передаются в стек не в том порядке. За порядок передачи аргументов отвечает модификатор stdcall. Попробуй pascal...

[korn999]

Ну как невозможно?

http://kornju.hop.ru/CC.ZIP

[korn999]

Действительно? Какая-то ерунда! Сейчас разберусь...