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.
---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire