dll pour vb6

Salut a tous,

J'essai de faire une dll en C pour utiliser sous vb6, mais je recois toujours le message "Bad dll Calling Convention" depuis vb6 :(

Voici un exemple simple pour montrer comment je 'y prends:

Code C

#include <windows.h>

#ifdef BUILD_DLL
    #define DLL_EXPORT __declspec(dllexport)
#else
    #define DLL_EXPORT
#endif

long DLL_EXPORT Div(long a, long b);

long DLL_EXPORT Div(long a, long b)
{

    return (a / b);
}

BOOL WINAPI DllMain(HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
{
    return TRUE; // succesful
}

Declaration Vb:
Private Declare Function Div Lib "sample.dll" (ByVal a As Long, ByVal b as long) As Long


Pour info j'utilises Code Blocks avec GCC mais j'ai tester avec Visual studio 2005 et j'ai les memes erreurs...


Quand on pose une question on est con 5 minutes,
Quand on ne la pose pas on le reste toute sa vie...

Salut BruNews,

Merci beaucoup :)
Mais je dois avouer que j'ai pas trop compris le fonctionnement de ton "prog"
En fait j'ai pris le template j'ai mis ma fonction dedans j'ai ajouter le .def comme indiquer dans le fichier X1.cpp et j'ai du ajouter le nom de la fonction en dessous de Export dans le fichier .def

Au final ca marche impec, mais j'ai pas compris le system de template pour automatiser ca...

Quand on pose une question on est con 5 minutes,
Quand on ne la pose pas on le reste toute sa vie...

Le prog template ne crée que le projet muni d'un fichier cpp avec les bons réglages compilo.
Le def est à mettre à la main.

ciao...
BruNews, MVP VC++

Erf c'est bon j'ai compris! je m'etais un peu perdu dans tous ces fichers, j'avais pas reussi a executer le prog lol

Encore merci ^^

Quand on pose une question on est con 5 minutes,
Quand on ne la pose pas on le reste toute sa vie...

Re,

J'ai un gros soucis avec memset
si je mets un memset tout ce compile normalement sans erreur ni warning
mais lorsque je veux utiliser la dll depuis vb6 il me met que ma dll est introuvable :(
c'est bizarre comme erreur non ?
ma dll est toujours dans le system32 et elle fonctionne tres bien si j'enleve le memset...
J'ai pensé a un include manquant mais le compilo devrait me prevenir dans ce cas non ?
Aussi le message d'erreur de Vb devrait etre du genre "cant load library" ou "cant find entry point" mais "dll introuvable" je sais pas dutout ou il va chercher ca...

une idée peut etre ?

Quand on pose une question on est con 5 minutes,
Quand on ne la pose pas on le reste toute sa vie...

hein....
Gros ce code ? sinon fais voir.

ciao...
BruNews, MVP VC++

non c'est juste quelques ptites fonctions pour apprendre un peu et pour tenter d'optimiser quelques fonctions de Vb


#define

_WIN32_WINNT 0x0501
#define _WIN32_IE 0x0501
#include <windows.h>

HINSTANCE thismod = 0;

#pragma

comment (linker, "/entry:myDllMain" )

__declspec

( naked ) int __stdcall myDllMain(HINSTANCE hdll, DWORD dwReason, LPVOID Reserved)

{

// DLL_PROCESS_DETACH = 0, DLL_PROCESS_ATTACH = 1

__asm {
mov eax, [esp+8] ; dwReason
mov edx, [esp+4] ; hdll
dec eax
//js short processDETACH
jne short mainRET
push edx
mov thismod, edx
call dword ptr DisableThreadLibraryCalls
//jmp short mainRET
//processDETACH:
mainRET:
mov eax, 1
ret 12
}

}

#ifdef __cplusplus
extern "C" {
#endif

/* FONCTIONS EXPORTEES ICI */

void

Div ( long * a , long b ) ;
long Increment ( long a , long llen ) ;
void Decrement ( long * a , long llen ) ;
long MovMem ( long a , long b , long c ) ;
void MakeBuff ( long * a , long llen ) ;

__declspec

( naked ) long Increment( long a, long b)
{
__asm {
mov eax, [esp+8]
add eax, [esp+4]
ret 8
}

}

void

Decrement ( long * a, long b)
{
*a -= b;
}

void

Div( long * a, long b)
{
*a /= b;
}

__declspec

( naked ) long MovMem( long a, long b, long c)

{

__asm {
push edi
push esi
mov edi,[esp+12]
mov esi,[esp+16]
mov ecx,[esp+20]
rep movsb
pop esi
pop edi
ret 12
}

}

void

MakeBuff ( long * a, long b)

{

  memset(a, 32, b);
//*a = *a / b;
}

#ifdef

__cplusplus
}
#endif

Quand on pose une question on est con 5 minutes,
Quand on ne la pose pas on le reste toute sa vie...

Attends, je vais compiler et voir si j'ai le prob.

Pour info:
rep movsb, à bannir sur les processeurs modernes, trop lent.

memset, tu es certain que c'est ce que tu veux ??? En tout cas, faut éviter les routines CRT quand on fait un point d'entrée perso, c'est justement pour s'en passer.

ciao...
BruNews, MVP VC++

"rep movsb, à bannir sur les processeurs modernes, trop lent."
Eh merci pour l'info :) mais tu remplace par quoi alors ?

"memset, tu es certain que c'est ce que tu veux ??? "
eh bin ce serait pour creer un buffer en passant un StrPtr(MaString) depuis vb
j'imagine d'apres ta remarque que c'est pas la meilleur solution...

Quand on pose une question on est con 5 minutes,
Quand on ne la pose pas on le reste toute sa vie...