Discussion :

[titou640]

Bonjour,

Je fais appel à des fonctions qui sont dans une dll delphi, depuis une application .Net/C#. Je ne suis pas sur d'être dans la bonne section :p

Mon problème est donc: depuis mon code .NET j'appelle des fonctions qui sont dans une dll écrite en delphi,
- la première fois que j'appelle la fonction, cela marche bien,
- MAIS lorsque je rappelle la fonction j'ai un message d'erreur comme quoi la ressource n'est pas accessible

Du cote.NET, ma déclaration de fonction dans une class Global

Code :

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

1
2
3
 
 [DllImport("KinevolutionEngine.dll", CallingConvention = CallingConvention.StdCall, SetLastError = true)]
        public static extern int GGetPosition(uint pos);

mon appel:

Code :

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

1
2
3
4
5
6
7
 
uint currentposition = 0;
Global.GGetPosition(currentposition);
if (currentposition > 1)
{
//code
}

Du cote Delphi:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function GGetPosition(var value : Single) : integer;stdcall;
begin
// function GetPosition(var value : Single) : integer; 
// est la fonction qui récupère la position dans la variable 'value' venant d'un robot (qui fonctionne c'est sur)
  result := GetPosition(value); 
end;
 
//...
 
exports
  GGetPosition;

Merci de votre aide et/ou de vos suggestion. n'hésitez pas à demander des explication si j'ai manqué de clarté.

[tourlourou]

l'appel à la fonction passe en paramètre un UInt par valeur alors que la dll attend un Single par référence :

Code :

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

1
2
[DllImport("KinevolutionEngine.dll", CallingConvention = CallingConvention.StdCall, SetLastError = true)]
        public static extern int GGetPosition(float *pos);

je ne suis pas sûr que le float soit équivalent au Single...

[titou640]

en fait j'ai oublié une modif au moment du post :p
merci de la remarque

Code :

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

1
2
3
 
[DllImport("KinevolutionEngine.dll", CallingConvention = CallingConvention.StdCall, SetLastError = true)]
        public static extern int GGetPosition(ref uint pos);

et

Code :

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

1
2
3
4
5
6
7
 
uint currentposition = 0;
Global.GGetPosition(ref currentposition);
if (currentposition > 1)
{
//code
}

et l’équivalent du single est le uint apparemment.

[ShaiLeTroll]

single c'est un flottant sur 4 octets
uint c'est l'équivalent du cardinal, entier non signé sur 4 octets
double, c'est un flottant sur 8 octets

Tu as ajouté une trace dans la DLL ?
Où s'arrête l'appel de la fonction ?
Est-ce que cela n'arrive même pas à l'appel du code Delphi ou alors cela invoque le code est c'est au retour que cela échoue !
Surveille DLLEntryPoint, pour voir si ta DLL n'est pas prématurément déchargée ?

Sinon, si tu en as la possibilité, je ferais un objet COM qui respecte la convention safecall, cela sera plus simple à utiliser en .NET qu'une DLL non managée (c'est bien une DLL Win32 ?)

[titou640]

Ho c'est une honte, tu as raison, j'ai confondu single et cardinal :S

Sinon dans le désordre,
Oui c'est une dll win32,
Je n'ai pas le loisir d'en faire un objet COM(1- parce que je ne sais pas comment faire :p,
2- la dll est utilisée par d'autre partie du programme .NET faisant même appelle à d'autres fonctions,
et 3- avant que j'arrive dans la société c'était un objet COM je crois bien, qui ne marchait pas et ils l'ont donc passé en dll :S)
Je n'ai pas de trace dans le delphi a proprement parlé, mais je sais que l'erreur survient dans le delphi dès le debut du traitement, donc pas au moment de la remonté.
Et dernier point, je ne connais pas le DLLEntryPoint, je vais cherchais autour de cela, mais n'hésitez pas envoyer des idée et /ou des indices

Merci de votre aide.

[ShaiLeTroll]

Je n'ai pas le loisir d'en faire un objet COM(1- parce que je ne sais pas comment faire :p,

cours de programmation Delphi & Pascal : Système et Automation - COM et OLE

2- la dll est utilisée par d'autre partie du programme .NET faisant même appelle à d'autres fonctions,

Interessant

et 3- avant que j'arrive dans la société c'était un objet COM je crois bien, qui ne marchait pas et ils l'ont donc passé en dll :S)

C'est pourtant le plus pratique en .NET, j'ai fait justement des Wrapper COM en safecall pour encapsuler des DLL Win32 pour des partenaires développant en .NET dont les compétences se limitaient au .NET et rien qu'au .NET et même la notion de convention d'appel leur était inconnu !
Perso, j'utilisais du VBS pour limiter mes prototypes de fonction au plus limitatif late binding que le .NET n'aura aucun problème à utiliser !

Je n'ai pas de trace dans le delphi a proprement parlé, mais je sais que l'erreur survient dans le delphi dès le debut du traitement, donc pas au moment de la remonté.

Mets-en ! Ecrit dans un fichier par exemple !
Pense que tu peux débuggueur ta DLL en mettant le programme .NET comme application Hôte !
N'hésite pas a faire une application de test en Delphi, déjà il faudrait que ton code fonctionne parfaitement dans ce contexte !

Il faudrait savoir précisément le message d'erreur !

Et dernier point, je ne connais pas le DLLEntryPoint, je vais cherchais autour de cela, mais n'hésitez pas envoyer des idée et /ou des indices

Tu peux utiliser les sections initialization et finalization
System.DLLProc Variable

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
library titou640;
 
...
 
procedure DllEntryPoint(dwReason : dword);
begin
  case dwReason of
    DLL_PROCESS_ATTACH : ...
    DLL_PROCESS_DETACH : ...
  end;
end;
 
begin
  DLLProc := @DllEntryPoint;
  DLLEntryPoint(DLL_PROCESS_ATTACH); // Il faut l'appeler manuellement pour le démarrage en Delphi !
end.

[titou640]

Merci ShaiLeTroll, je n'ai pas pu explorer le dllentrypoint, mais en loggant la dll, et en observant minutieusement le fonctionnement (sans m’énerver et envoyer le pc en l'air) j'ai découvert l'origine de mon pb (je pense a 99% sûr)... le multiThreading!! Ahhhh on l'aime ce multithreading, il n'y a pas a dire!

Donc, je vais m'atteler à mettre en place un mutex , dans un premier temps, je pense (en espérant que je puisse le passer proprement au thread qui tourne depuis la dll) pour éviter l'acces concurentiel aux ressources. Et ensuite il faudra voir pour y mettre une gestion des priorité .... Je sens que c'est de la résolution de "petit" problème qui va me mettre hors délais :S

Je vais clore ce post mais je risque de revenir poser des questions bêtes sous peu.