[Delphi/VC++] Comment utiliser une DLL VC++ avec Delphi 6 ?

Recherche :

Dernière réponse

Sujet : [Delphi/VC++] Comment utiliser une DLL VC++ avec Delphi 6 ?

antp

bon bhen tu fais bien d'upper :

exemple d'utilisation d'une DLL:

dans les declarations de la unit:

Code :

TMaFonction = procedure(parametre1, parametre2, ...); stdcall;

puis le chargement et l'appel:

Code :

var
dll: THandle;
func: TMaFonction;
begin
...
dll := LoadLibrary("monfichier.dll" );
try
if dll = 0 then
raise Exception.Create("Erreur au chargement dela DLL" );
@func := GetProcAddress(dll, 'NomFonction');
if not (@func = nil) then
func(parametre1, parametre2, ...)
else
RaiseLastOSError;
finally
FreeLibrary(dll);
end;
...
end;

evidemment faut adapter le nom de la fonction dans GetProcAdress, ainsi que les paramètres dans la déclaration

si tu fais très souvent appel à la DLL dans le programme c'est peut etre mieux de la charger au demarrage du prog et de la liberer a la fin, pour ne pas devoir a chaque fois charger/decharger.

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

antp

bon bhen tu fais bien d'upper :

exemple d'utilisation d'une DLL:

dans les declarations de la unit:

Code :

TMaFonction = procedure(parametre1, parametre2, ...); stdcall;

puis le chargement et l'appel:

Code :

var
dll: THandle;
func: TMaFonction;
begin
...
dll := LoadLibrary("monfichier.dll" );
try
if dll = 0 then
raise Exception.Create("Erreur au chargement dela DLL" );
@func := GetProcAddress(dll, 'NomFonction');
if not (@func = nil) then
func(parametre1, parametre2, ...)
else
RaiseLastOSError;
finally
FreeLibrary(dll);
end;
...
end;

Lalorette

antp

oui y a moyen d'utiliser des DLL sous Delphi 6, y a rien de spécial à faire dans la création de la DLL.
Pour l'utiliser sous Delphi y a LoadLibrary pour charger la DLL, et GetProcAddress, comme en C++ (ce sont des fonctions de l'API Windows).
y doit y avoir des exemples un peu partout là dessus (désolé là j'ai pas le temps de chercher et j'ai pas de code source qui le fait à portée de main)

Lalorette

(et faut il faire qq ch de spécial lors de la crétion de la DLL)