Discussion :

[nicola40]

Bonjour à tous,

je crois bien que je patine lamentablement.
Je souhaite utiliser une API (Forexconnect) sous DELPHI, mais les exemples sont sous VBA.

En pièce jointe, un extract du mode d'utilisation de cette API.
J'ai installé le tlb, et les type sont correctement reconnus .

Les essais réalisés bloquent lors de la compilation pour des pbs de type. (en particulier Createoleobject ...)

Si l'un d'entre vous pouvait me donner des conseils pour transformer les lignes du paragraphe 3 de VBA vers DELPHI, ce serait top.

Merci de vos réponse et à bientôt

[ShaiLeTroll]

Utilise l'importateur de Bibliothèque de type, il va te générer un Wrapper Component qui t'exposera les méthodes de l'objet, il encapsulera les problématique d'instanciation

Etudie en Delphi les notions de EarlyBiding et LateBiding !

Peux-tu nous extraire le VBA a te traduire ainsi que ta tentative en Delphi ?

[nicola40]

Tout d’abord, merci de m’avoir répondu et de m’aider à progresser.

0 – contexte
Jusqu’à présent, j’utilisais une interface com (O2GO) qui fonctionnait avec D7, mais qui n’est plus maintenue. Je dois donc passer à FOREXCONNECT API qui est fournie en (bin, bin-com, java, net). J’ai compris que je devais utiliser bin-com avec D7.

1- WRAPPER
Le fichier dispo pour es interfaces com est fxcore2.com.dll. Je l’ai ouvert avec delphi7 en tant que bibliothèque de type, et cela a généré un tlb (en pièce jointe). Je comprends que ce tlb est bien le wrapper.

2- Early binging et later binding
Pour moi O2GO travaillait en late binding car mes variables étaient déclarées en OLEVARIANT, et le compilateur ne me proposait rien après un point. De plus, certaines erreurs n’étaient pas détectées à la compilation, mais à l’exécution. Par contre Fxcore2 me semble travailler en early binding (déclarations typées et proposition lors de la compilation)

3- En pièces jointes, le tlb, les pas (pg test dans main_nicolas_extract.pas), un pdf expliquant comment utiliser l’API en VBA.

Cependant, reprise des principales infos ci-dessous pour te gagner du temps
Les commentaires O2GO est ce qui marchait avec O2GO en D7
Les commentaires VBA sont la syntaxe qu’ils proposent en VBA
Les lignes sans commentaires sont ce que j’ai fait maintenant en D7

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
18
19
20
21
22
Uses
 fxcore2_com_tlb
 
Var
//  O2GO oCore: OleVariant; 
//  O2GO oTradeDesk: OleVariant;
// VBA Private fxTransport As fxcore2_com.Transport
// VBA Private WithEvents fxSession As fxcore2_com.Session
    fxtransport:fxcore2_com_tlb.Transport;
    fxsession:fxcore2_com_tlb.session;
 
Exécution
// O2GO  oCore := CreateOleObject('Order2Go.Core');
// VBA Set fxTransport = CreateObject("fxcore2.com.Transport")
     fxtransport:=createoleobject('fxcore2.com.transport');
 
//  O2GO oTradeDesk := oCore.CreateTradeDesk('trader');  
// VBA Set fxSession = fxTransport.createSession()
???
  // O2GO oTradeDesk.Login(edUserName.Text, edPassWord.Text, edURL.Text, cbConnection.Text);
// VBA Call Session.login("userID", "password","http://www.fxcorporate.com/Hosts.jsp", "Demo")
        fxsession.login(edUserName.Text, edPassWord.Text, edURL.Text, cbConnection.Text);

Lors de la compil, l’erreur suivante m’est retournée :

Code : fxtransport:=createoleobject('fxcore2.com.transport');
Compil : [Erreur] Main_nicolas_extract.pas(69): Types incompatibles : 'IDispatch' et 'ITransport'

J’espère avoir été clair …

Avec mes remerciements

[ShaiLeTroll]

Pourquoi ne pas écrire tout simplement

Code :

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

1
2
3
4
5
6
7
8
9
var
    fxtransport:fxcore2_com_tlb.ITransport; // prèfère les types en I***, l'autre n'est qu'un alias
    fxsession:fxcore2_com_tlb.ISession;
 
begin
...
   fxtransport := fxcore2_com_tlb.CoTransport.Create(); // tout simplement CoTransport qui est le Wrapper gérant la ITransport
   fxsession := fxTransport.createSession();
   fxsession.login(edUserName.Text, edPassWord.Text, edURL.Text, cbConnection.Text);

Sinon tout objet Automation est utilisable en EarlyBiding, il suffit d'importer la TLB
Pour le LateBiding, j'ai eu des difficultés avec certains passages de paramètres que je n'ai pas pu écrire en VBA mais uniquement en Delphi, mais comme la résolution des OLEVariant est faite au RunTime, les appels sont plus lents

[nicola40]

Bonjour,

je viens d'injecter/tester les corrections.
La compilation se déroule correctement, mais à l’exécution, j'ai un message d'erreur "classe non enregistrée" pour la ligne : fxtransport := fxcore2_com_tlb.CoTransport.Create();
Ai-je mal installé/ référencé fxcore2_com_tlb ?


Merci de ton aide

[ShaiLeTroll]

Tu as importé la classe depuis le fichier "C:\Program Files (x86)\Candleworks\ForexConnectAPIx64\bin-com\fxcore2.com.tlb"

Du x64 dans un x86, bizarre cette installation !

Note le x64 donc tu installes un objet 64Bits mais D7 va générer un exe 32bits
Si OS 64Bits, un Exe 32Bits peut-il utiliser COM 64Bits en In-Process ?
Par précaution, installe la version 32bits de l'objet et utilse le TLB du dossier x86.

Un objet COM 64Bits Out-Process (hébergé dans un EXE comme Word et non une DLL) est il me semble utilisable sans restriction

Tu as bien fait un RegSrv32 sur "fxcore2.com.dll"
Tu as peux-être un conflit de registre 32 et 64Bits ! la classe n'est installé qu'en 64bits et pas en 32

Si tu as toujours des soucis, utilise la version NET de l'API, voir
Ou peut-être même un RegASM /tlb, on peut penser que l'Assembly ne supporte pas l'Interopérabilité COM donc tu ne pourras pas l'utiliser directement

Il te faudra toi même coder un Wrapper\Proxy en C# qui fournira l'Interop-COM
leur "fxcore2.com.dll" est probablement juste un Wrapper Interop

L'utilisation d'un Wrapper, est la solution que l'on a retenu au bureau pour utiliser Crystal Report 2008 qui ne fourni plus que les composants Java ou .NET mais plus de version VCL !