может кто нить подсказать как справиться с проблемой:
мне надо на vc++ написать DLL и использовать ее функции из delphi.
В delphi использую конструкцию:
a:=Loadlibrary('dll');
if a=0 then
begin
ShowMessage('dll not found');
Exit;
end;
p:=getprocaddress(a, '<proc_name>');
if p=nil then
begin
ShowMessage('proc not found');
Exit;
end;
не может найти процедуру как бы я ее не описывал, подскажите, как можно описать функцию в vc++ чтоб я ее таким образом смог использовать в Delphi.
пробывал делать в с++ следующим образом:
#include <windows.h>
#include "1.h"
#define EXPORT extern "C" __declspec (dllexport)
int WINAPI DllMain(HINSTANCE hInstance, DWORD fdReason, PVOID pvReserved)
{
return TRUE;
}
EXPORT int CALLBACK MyFunction(void)
{
MessageBox(NULL,"ads","Function from DLL",MB_OK);
//MessageBox(NULL,str,öFunction from DLLö,MB_OK);
return 1;
}
если можно, скиньте кусок кода на vc.
Заранее благодарен.

немного исправлю постановку вопроса... удалось таки подключить функцию из dll на vc в delphi, только другая проблема, если параметры функции типа char*, то че надо из дельфи передавать туда???...

у меня описана в с++
extern "C" __declspec(dllimport) int Func( int a, char *temp);
а в delphi
function xadduser(a:shortint; temp:PChar): integer; external 'userdll6.dll' name 'Func';
и не работает... че надо исправить , если можно с куском кода плиз:)

если я описываю _stdcall или CALLBACK, то есдинственное че меняется это
функция становится не func а _func@4, причем при передаче shortint(delphi)
в с описана как short, у меня функция возвращает этот параметр, но завмето
него возвращает все время одно и тоже число, как будьто я ничего и не передаю....:((
кто может выложите кусок кода С++ и Delphi плиз.

спасибо, я уже разобрался, просто я не писал __stdcall...
теперь все работает:)
всем спасибо за помощь!