Besoin d'aide pour convertir un code python

Bonjour

Tout est dans le titre. Voici le bout de code que je dois le traduire en pascal/delphi :

Code:

---

1 2 3 4 5 6

class Callback(): _public_methods_ = ['SetStatusText'] _reg_progid_ = "MapInfo.PythonCallback" _reg_clsid_ = "{14EF8D30-8B00-4B14-8891-36B8EF6D51FD}" def SetStatusText(self,status): print status

---

Il est clair qu'il s'agit d'une classe avec une seule méthode mais quand est-il des autres membres ?
Et comment faire pour avoir le clsid avant de le mettre dans la classe ?

Merci pour toute aide.

C'est surtout pourquoi vouloir traduire ça ?

Si tu veux un échange d'objet entre Delphi et Python ?
C'est des interfaces IUnknown ? du OLE ?
Il te manque plus de description de type, qu'est ce Sefl ? Status ? Print Status ?

Code:

---

1 2 3 4 5

{ interface declarations } ICallbacks = interface ['{14EF8D30-8B00-4B14-8891-36B8EF6D51FD}']   function SetStatusText(self :?; status: ?): print status ?

---

Si il n'y a pas de lien entre Delphi et Python, la traduction brute n'a surement aucun intérêt, tu devrais repartir sur le besoin initial

Tout d'abord merci pour la réponse.

Citation:

---

Envoyé par ShaiLeTroll

C'est surtout pourquoi vouloir traduire ça ?[/CODE]

---

Dans une application personnalisation du SIG MapInfo je bute sur la manière de récupérer quelques infos utiles telle que coordonnées et simulation d'un clique. Le seule moyen étant d'utiliser le Callbacks et la méthode elle est décrite ici en utilisant Python.

Citation:

---

Envoyé par ShaiLeTroll

Si il n'y a pas de lien entre Delphi et Python, la traduction brute n'a surement aucun intérêt, tu devrais repartir sur le besoin initial

---

Comme je l'ai décrits plus haut, je n'ai aucun moyen d'avoir la main sur MapInfo une fois instancié et visualisé dans un Panel. Pour ce faire, MapInfo suggère l'utilisation de Callbacks.

MapInfo + Delphi sur Google donne des résultats, c'est la dessus que je partirais

Genre un TUTORIEL : Pilotage de MapInfo par Delphi

C'est bien de l'OLE

Citation:

---

Envoyé par ShaiLeTroll

MapInfo + Delphi sur Google donne des résultats, c'est la dessus que je partirais

Genre un TUTORIEL : Pilotage de MapInfo par Delphi

C'est bien de l'OLE

---

Bonjour et merci ... tout les liens sont dirigés vers l'article que vous citez qui n'est autre que le mien :oops: justement je suis à cette limite.

D'ailleurs en remontant le code source python j'ai trouvé un code en VB qui décrit toute la démarche mais j'ai le même problème conversion VB-Delphi.

Prenons ça comme exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Const DECIMAL_SEPARATOR_FR As Char = ","c Private Const DECIMAL_SEPARATOR_US As Char = "."c ' separator used by Mapinfo coordinates   Public Class ClasseOLE Const MAPINFO_OLE_STRING_LENGTH As Short = 7 Const MAPINFO_OLE_HEADER As String = "MI"   Public Event StatusBarChanged(ByVal sbText As String)   Public Sub SetStatusText(ByVal status As String) RaiseEvent StatusBarChanged(status) End Sub End Class

---

comment le traduire en Delphi ?

C'est surement du SinkEvent OLE, l'écrire à la main n'a rien de plaisant
Normalement l'importateur ActiveX génère tout ça très bien tout seul

Il faut les interfaces avec les GUID et les numéros de fonction dispid
Il faut produire un objet implémentant les interfaces Event et les ajouter au EventDispatcher ou ce "SetCallback" qui semble plutôt intéressant, il doit prendre en paramètre une interface de type IDispatch

Citation:

---

Envoyé par ShaiLeTroll

C'est surement du SinkEvent OLE, l'écrire à la main n'a rien de plaisant
Normalement l'importateur ActiveX génère tout ça très bien tout seul

---

Effectivement, je viens de faire un essai et c'est encourageant j'ai pu avoir les coordonnées, le zoom et la couche éditable depuis MI mais le plus dure c'est la réponse à un événement (un click p.e)