appeler une fonction externe avec un tableau comme parametre de passage !

Question

bonjour !
je suis une nouvelle sur ce forum et sur VBA mais ancienne en programmation !!
et mon problem est le suivant :
je travail sur ArcGis(cartographie) et je dois rajouter un plugIn qui me permetra d'utiliser via un activex des fonctions externes !(en VC++) 
je dois faire appel a une fonction avec un tableau comme paramettre de passage  
et puisque cette fct n'est pas con&#231;ue en VBA comment faire pour l'appeler (sans byRef et byVal )

ShareVB · Answer

salut,



un prototype de la fonction C++ serait le bienvenu..Declare Function
machin alias "_machin@4" lib "truc.dll"(ByRef tab() as Long) as long
donne extern "C" int _stdcall machin(int* tab);...

ShareVB

chichiboof · Answer

salut ! merci je peux avoire un peu plus de detaille  sitpl !!
Hi ! I am Just Me

ShareVB · Answer

salut,



donne le protoype de la fonction C que je puisse le traduire en VBA...

ShareVB

chichiboof · Answer

merci ,c que je n'avais pas sure place le prototype .alors c'est le suivant:

LONG   AddObject(Id, Name, lId, FALSE, tableau1 , lNb1,tableau2, lNb2, 0, 0);
 
j'espere que c'est claire !

Hi ! I am Just Me

Renfield · Answer

Je suppose que ta fonction est dans une DLL
Le proto de la fonction
me laisse a penser que ca n'est pas un object COM (ce n'est pas l&#224; une
m&#233;thode, c'est une fonction), il faut donc utiliser des appels API...

Renfield
Admin CodeS-SourceS - MVP Visual Basic

chichiboof · Answer

salut !! mais devrais je le faire ! peux tu me donner un exemple 
merci !!

ShareVB · Answer

salut,



il manque des choses :

-> les types des param&#232;tres ??? Id, Name ca ne suffit pas...

-> la convention d'appel (_stdcall, cdecl, pascal, thiscall) ???


=> donne le vrai prototype C/C++


ShareVB

chichiboof · Answer

resalut je mexecuse c vrais ! voici le protype complet 

long AddObject(long lLayerId, BSTR szName, long lObjectId, short bOwnerDraw, double* pPoints, long lNbPoints, long*  partPoints, long lNbPart, short bConvert, BSTR szProjection); 

et bon courrage

Renfield · Answer

la déclaration d'API donnerai a priori :

declare function AddObject lib "C:\MaDll.dll" ( byval lLayerId as long, byval szName as string, byval lObjectId as long, byval bOwnerDraw as integer, byval pPoints as long, byval lNbPoints as long, byval partPoints as long, byval lNbPart as long, byval bConvert as integer, byval szProjection as String) as Long

chichiboof · Answer

une seconde ,je n'ai jamais de ma vie créer une api

Renfield · Answer

ta dll C exporte bien ta fonction AddObject  ??

chichiboof · Answer

slt !
 beh je suis pettr trés null en vba ,j'ai redeclaré cette fct dans l'espace résérvé aux variables globales :-/ !! et puis riens n'a changé 

une petite question aussi ! qu'est ce qui ce passe au juste avec cette redéclaration .

merci d'avance ! sans vous je ne pourrais pas redemmarer !

Renfield · Answer

tu l'as semble t'il bien d&#233;clar&#233;. 
Maintenant, tu dois pouvoir appeler ta fonction AddObject, depuis ton code VBA (a condition que ta dll exporte bien cette fonction)

Renfield
Admin CodeS-SourceS - MVP Visual Basic

chichiboof · Answer

mais justement je ne trouve aucune dll crée !

Renfield · Answer

donc, pour r&#233;sumer, tu souhaite utiliser une fonction, mais tu ne sais pas ou elle se trouve....

ca va pas etre simple de t'aider ^^

Renfield
Admin CodeS-SourceS - MVP Visual Basic

chichiboof · Answer

au fait c un activeX (OCX) donc maintenant comment faire!!

Renfield · Answer

ah ! c'est juste un activeX....

il te suffit de créer ton objet :

Set Obj = CreateObject("MonActiveX.NomDeMonObjet")
Obj.AddObject ( ..... )

chichiboof · Answer

un grand Merci demain je vous donnerais la reponse !
trés bonne fin de journée ! bye :-)

chichiboof · Answer

au fait c ce que je fesais presque au debut ,


mais bon j'ai declar&#233; l'obj et puis il me dit que user-defined type not defined 


et juste une remarque avec ca : Obj.AddObject (ici yaura toujours le mm pbm non !)
  
Hi ! I am Just Me

ShareVB · Answer

salut,



sinon essais de faire une TypeLib pour VB avec l'interface de ton
objet, tu l'importe s en r&#233;f&#233;rence et tu d&#233;clares Obj du type de ton
interface...comme &#231;a tu pourras mieux d&#233;buger...pour les typelib
compatible VB, il faut utiliser mktyplib...

http://www.vbfrance.com/tutorial.aspx?ID=165

ShareVB

chichiboof · Answer

au fait ,sur les paramettre de  CreateObject("MonActiveX.NomDeMonObjet")

MonActiveX c bon je l'ai idf
mais pour le nomdemonobjet de quel objet on definira ! parceque cet ocx ne genere pas qu'1 objet ou type ! c un peu floue je ne voie ^pas le truc 

merci

Hi ! I am Just Me

ShareVB · Answer

salut,



c'est le nom de l'interface/objet qui contient ta m&#233;thode AddObject....

ShareVB

cs_med_aatif · Answer

Salut tout le monde
j'ai un problème de connexion de ArcGIS et VB
et je cherche un code source pour pouvoir dessiner
des cercle sur une carte d'ArcGIS
et merci

Appeler une fonction externe avec un tableau comme parametre de passage !

23 réponses

Discussions similaires