Discussion :

[jakouz]

je ne comprend pas la chose suivante :

j'ai un prog. qui charge en statique une routine d'une dll.
ce prog. fait ensuite du multi thread.
chaque thread a une propriété de type pointeur qui sert de paramètre passé lors de l'appel de la routine...
en gros :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
TMyThread = Class(TThread)
...
    Ptr: Pointer;
end;

lors de la création du thread, le pointeur est alloué :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
GetMem(Ptr, 1050);

puis dans la méthode Execute du thread, j'appelle la routine de la dll en lui passant ce pointeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ReturnValue := MyFonction(Ptr);

j'ai fait du pas à pas :
- à l'appel de MyFonction au niveau du prog, le Ptr a bien une adresse
- à l'entrée dans MyFonction de la dll, le paramètre est à nil !

[gord's]

fais voir les déclarations de MyFonction (cote dll et cote exe)

[jakouz]

voici les déclarations :
- côté prog. appelant (qui est une dll)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
function MyFonction(Entree: Pointer): Integer; stdcall; external 'test.dll' name 'Controler';

-côté dll appelée (test)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
function Controler(Entree: Pointer): Integer;

[gord's]

rajoute stdcall coté dll

[jakouz]

Merci
j'avais oublié et ça marche !