Renvoyer un type structuré dans objet OLE

bonjour,

Je dois faire un objet OLE qui présentera certaines méthodes appelées par un programme dont je n'ai pas les sources. Plusieurs de ces méthodes doivent renvoyer des enregistrements trouvés dans une BDD. Il faut donc renvoyer un type structuré.
J'ai donc fait un record qui contient les valeurs à renvoyer. Le problème, c'est que Delphi (5 entreprise) me dit qu'une fonction publiée d'un objet OLE ne peut renvoyer de record. J'ai essayé avec un variant, mais variant et record ne sont pas compatibles. Comment puis-je faire ?

essaye d'utiliser varastype lors de l'affectation.
Ex :

Code:

---

ServiceOLE.Meschamps := VarAsType(mavariablecomplexe, VarDispatch)

---

Je n'ai pas encore essayé ton truc. Pour le moment le prototype de ma fonction renvoie un variant, et je passe un record de cette manière :

Code:

---

1 2 3 4 5 6 7 8 9

function mafunc : variant; var monrec : TEnreg; begin ... TVarData(result).vType := varUnknown; TVarData(result).vUnknown := @monrec; end;

---

L'appli appelante me sort un message d'erreur, mais je ne sais pas si c'est parce que cette méthode ne lui convient pas, ou si c'est parce que l'objet renvoyé ne lui convient pas (propriété manquante ou autre)...

Je ne vois pas comment je peux implémenter ta méthode. Ce n'est pas une propriété de l'objet OLE que je veux affecter, c'est un objet que doit renvoyer une méthode de l'objet OLE.
Je pourrais contourner en mettant cet objet comme membre de l'OLE, mais je ne peux pas car je n'ai pas accès à l'appli appelante, qui réclame que la fonction renvoie cet objet directement.

Cette appli appelante est écrite en visual fox pro, ou apparemment rien n'est typé, ce qui est bien pratique mais pas quand on doit l'interfacer avec un langage fortement typé...

Bonjour,

La fonction ("mafunc") est fausse et même dangereuse ! Elle est non compatible avec le mécanisme (marshalling) OLE de transfert des données.

Avec OLE, pour transférer le record d'un enregistrement il n'est pas necessaire/obligatoire de passer par un type "record". Par exemple le type enregistrement d'une table ADO n'utilise pas cette technique. Généralement c'est une collection énumérable qui est transmise...

Pour résoudre ton problème (si j'ai bien compris l'interfacage) tu peux regarder les résolutions classiques actuelles. Par exemple tu peux utiliser un type défini par ADO. Pour cela il faut inclure un lien sur la bibliothèque de type d'ADO dans ta propre bibliothèque de type (éditeur de tlb, onglet "use" (utilise) sur la racine de l'arbre.) Ainsi tu peux bénéficier des types classiques (_recordset par exemple) définis dans ADO. Attention cette solution suppose que la couche ADO soit installé sur la machine du client !

Si la contrainte d'avoir ADO installé est trop importante tu peux définir tes propres objets enregistrement et recordset...

Happy Ole !

Pascal

Merci des infos. Je vais maintenant me renseigner pour savoir ce qu'est ADO. Au passage, je n'utilise pas de bibliothèque de type.

Bonjour,

Dans ton dernier message tu écris : "Au passage, je n'utilise pas de bibliothèque de type".

Il est impossible SANS bibliothèque de type d'interfacer via l'Automation un programme externe (FoxPro) avec un serveur Automation (Delphi).

Pascal