Discussion :

[Just-Soft]

Bonjour

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

Code :

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

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.

[ShaiLeTroll]

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 :

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

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

[Just-Soft]

Tout d'abord merci pour la réponse.

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.

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.

[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

[Just-Soft]

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 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 vb :

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

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 ?

[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

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