Problème interopérabilité entre une DLL Delphi (NaviCon.dll) et Visual Studio Community 2015 C#

Version imprimable

08/06/2016, 12h58
zadmalckz

3 pièce(s) jointe(s)

Problème interopérabilité entre une DLL Delphi (NaviCon.dll) et Visual Studio Community 2015 C#

Bonjour tous.
Je suis Zadmalck, mais on m'appelle Zad, je viens du monde GNU/Linux et je suis un passionné de vol à voile, en réel et en simulation avec le simulateur Condor Soaring sous Windows.
Je me suis mis à Visual Studio Community 2015 en C#, il y a quelques jours. Je trouve cet environnement de développement For Mi Dable.

Résumé de mon problème :
Je n'arrive pas à me servir d'une DLL apparemment provenant de Delphi (J'ignore la version) en C#

Ressources pour que vous puissiez avoir tout ce qu'il faut pour m'aider :
http://zadmalckz.free.fr/annexe.zip : contient le fichier TRN et le fichier FPL
http://zadmalckz.free.fr/Condor.zip : le code source de mon test avec Visual Studio Community 2015 en C#

Explications :
Le jeu Condor Soaring qui a été fait en Delphi (je ne sais pas quelle version) contient une DLL, NaviCon que l'on trouvera dans le dossier du projet dans un dossier Navicon. Cette DLL permet de faire la conversion des points écrans entre la scène ou l'on se trouve (Slovenia dans l'exemple) et la position en Latitude et longitude décimale des TPs du circuit de la course. Dans ce même dossier, un fichier FPL.pas issue d'une personne tierce qui a concu un programme en delphi qui utilise cette DLL NaviCon.dll et qui fonctionne.

Pièce jointe 212138

Ce circuit est sous la forme d'un fichier FPL dans CondorSoaring. Vous trouverez ce fichier dans annexe.zip

La scène Slovenia quant à elle contient un fichier TRN (Généré avec terragen) créé par le concepteur de la scène. Ce fichier se situe dans annexe.zip. Ce fichier est utilisé par la DLL navicon avec la méthode NaviConInit.
Je ne connais pas la structure de ce fichier TRN et je n'ai pas besoin de la connaitre. A l'initialisation de la DLL NaviCon, on doit appeler la fonction NaviConInit avec en paramètre le chemin du fichier TRN.

Pour le TP1, les coordonnées écrans dans la scène pour ce circuit sont :

TPPosX1=180345.140625
TPPosY1=91709.90625

Le but de la DLL navicon.dll est de pouvoir convertir ces coordonnées écran 180345.140625 et 91709.90625 en latitude/longitude décimale. Ce qui me permettra ensuite en C# de tracer le circuit constitué des TPs Depart, TP1, TP2, Arrivee et de les mettre sur une carte de relief via la bibliothèque GMap.NET. On trouve les DLL référencées dans C# dans le répertoire GMap.NET dans Condor.zip

Mon problème se situe à la ligne 90 :

ok = NaviConInit(ref trn);

La fonction renvoi toujours faux. trn étant la variable contenant le chemin du fichier TRN.

Dans mon projet de test, j'affiche une boite d'alerte si NaviConInit est faux ( vrai si <> 0)
Mon programme de test doit m'afficher sur la carte les TPs du circuit quand j'aurai avec votre aide résolu ce problème.

Pièce jointe 212139

Je vous remercie d'avance pour votre aide et peut-être à bientôt avec le simulateur de vol à voile Condor.

Pièce jointe 212142

salut

c'est la signature de la fonction NaviConInit qui déconne :)

Essaie plutôt ça :
Code:

1 2 [DllImport(pathCondor + "\\" + "NaviCon.dll", CharSet = CharSet.Unicode, ExactSpelling = true, CallingConvention = CallingConvention.StdCall, EntryPoint = "NaviConInit")] private static extern bool NaviConInit([MarshalAs(UnmanagedType.LPStr)] string TRNFile);
et tu verras que ça doit beaucoup mieux marcher :) (ça a fonctionné chez moi)

Citation:
Envoyé par theMonz31
salut

c'est la signature de la fonction NaviConInit qui déconne :)

Essaie plutôt ça :
Code:

1 2 [DllImport(pathCondor + "\\" + "NaviCon.dll", CharSet = CharSet.Unicode, ExactSpelling = true, CallingConvention = CallingConvention.StdCall, EntryPoint = "NaviConInit")] private static extern bool NaviConInit([MarshalAs(UnmanagedType.LPStr)] string TRNFile);
et tu verras que ça doit beaucoup mieux marcher :) (ça a fonctionné chez moi)
Trop génial. Mille milliard de merci. Cela fonctionne :)

Juste par curiosité, comment t'es venu cette solution ? Tu as été soumis auparavant à un problème similaire ?

Je regarde la suite de mon code et je mets résolu ensuite.

8-)

1 pièce(s) jointe(s)

Bon ben c'est nickel theMonz31. Encore grand merci. :)

Il me reste une seule chose encore à résoudre, voici le nouveau circuit de test FPL et la modification des coordonnées de chaque porte :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
                // Depart
                XX = 179624.734375; YY = 93566.6015625;
                X = Convert.ToSingle(XX); Y = Convert.ToSingle(YY);
 
                lat = XYToLat(X, Y);
                lon = XYToLon(X, Y);
                gmap.Position = new PointLatLng(lat, lon);
 
                points.Add(new PointLatLng(lat, lon));
 
                // TP1
                XX = 778811.4375; YY = 76240.4765625;
                X = Convert.ToSingle(XX); Y = Convert.ToSingle(YY);
                lat = XYToLat(X, Y);
                lon = XYToLon(X, Y);
                points.Add(new PointLatLng(lat, lon));
 
                // TP2
                XX = 756184.875; YY = 73977.3828125;
                X = Convert.ToSingle(XX); Y = Convert.ToSingle(YY);
                lat = XYToLat(X, Y);
                lon = XYToLon(X, Y);
                points.Add(new PointLatLng(lat, lon));
 
                // Arrivee
                XX = 755017.125; YY = 71190.546875;
                X = Convert.ToSingle(XX); Y = Convert.ToSingle(YY);
                lat = XYToLat(X, Y);
                lon = XYToLon(X, Y);
                points.Add(new PointLatLng(lat, lon));
 
                //GMapPolygon polygon = new GMapPolygon(points, "mypolygon");
                GMapPolygon polygon = new GMapPolygon(points, "testpolygon");
                polygon.Fill = new System.Drawing.SolidBrush(System.Drawing.Color.FromArgb(0, System.Drawing.Color.Red));
                polygon.Stroke = new System.Drawing.Pen(System.Drawing.Color.Red, 1);
                polyOverlay.Polygons.Add(polygon);
                gmap.Overlays.Add(polyOverlay);
                RefreshCarte();

Et le fichier FPL correspondant
Pièce jointe 212226

Comme tu peux le constater si tu recompiles avec cette modif de code et le FPL ci-joint modifié, j'ai une ligne qui rejoint le départ et l'arrivée sur le tracé sur la carte. Certainement du au fait que je trace un polygone et que celui-ci est fermé.

Est t'il possible avec GMap.net de tracer simplement par les méthodes à disposition de simples lignes entre les points ?
Ou bien de virer ou rendre transparent la ligne du polygone qui rejoint le départ et l'arrivée ?
Je n'aurai pas alors ce problème.

09/06/2016, 08h13
theMonz31

Salut

Alors pour répondre à ta première question : comment m'est venu l'idée..

Simple... J'ai cherché sur google NaviConInit, j'ai trouvé quelques sites qui l'utilisaient et j'ai vu alors que la signature de la fonction était un PChar.

J'ai alors chercher un truc du genre "C# Interop Delphi pchar"... pour finalement comprendre qu'il y avait une différence de gestion des chaines entre .Net et Delphi
et que donc, il fallait surement passer un pointeur (d'ou le MArshall)...

Ensuite, j'ai pu tester avec la solution que tu avais mise en pièce jointe pour valider mon idée !!!

Pour GMap, je ne sais pas, je ne l'utilise pas beaucoup (même si je l'avais un peu plus regardé en détails il y a quelques années).
Si tu veux de la transparence, tu dois pouvoir créer ton "Pen" en t'appuyant sur la méthode "Color.Argb()" (ou FromArgb) et ainsi indiqué la valeur de Alpha (la transparence).

Ensuite, tu peux avoir plusieurs Overlays (gestion de calques) pour masquer, etc... ce que tu veux !
09/06/2016, 08h15
theMonz31

et pour la ligne, j'ai trouvé ça :

http://stackoverflow.com/questions/3...ne-in-gmap-net
09/06/2016, 09h02
zadmalckz

Citation:

Envoyé par theMonz31

et pour la ligne, j'ai trouvé ça :

http://stackoverflow.com/questions/3...ne-in-gmap-net

re salut.

j'avais déjà regarder ce lien, mais le tracé suit la route. Ce n'est pas une ligne droite.
Je vais chercher plutôt de ce coté là : "Ensuite, tu peux avoir plusieurs Overlays (gestion de calques) pour masquer, etc... ce que tu veux !"

Merci :)