[VBA] Passage de données à une DLL C++

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Passage de données à une DLL C++

Piemur2000

Bonjour,

J'ai un petit probleme, je dois passer des tableaux de données à une Dll ecrite en C++ mais je n'arrive pas à retrouver les bons nombres.
Voila le prototype de la fonction ds la Dll :

Code :

int __stdcall EnvoiDonnees(int taille, double *X, double *Y);

et voila comment je l'ai declaré dans VB :

Public Declare Function DllEnvoiDonnees Lib "Communication.dll" Alias "EnvoiDonnees" (ByVal Taille As Long, ByRef X() As Double, ByRef Y() As Double) As Long

Il recupere la taille correctement mais il recupere n'importe quoi au niveau des tableaux.

J'ai aussi un autre probleme avec une autre fonction de la Dll. Ca me fait Runtime error Floating point not load. Je ne comprend pas parce que c'est à peut prés la meme fonction.

Code :

int __stdcall EnvoiDonnees2(int taille, int Nom, double *Temps, double *X, double *Y)

et en VB :
Public Declare Function DllEnvoiDonnees2 Lib "Communication.dll" Alias "EnvoiDonnees2" (ByVal Taille As Long, ByVal nom As Long, ByRef Temps() As Double, ByRef X() As Double, ByRef Y() As Double) As Long

Merci

Publicité

karlkox

Code :

int __stdcall EnvoiDonnees(int taille, double *X, double *Y);

Code :

Public Declare Function DllEnvoiDonnees Lib "Communication.dll" Alias "EnvoiDonnees" (ByVal Taille As Long, ByVal X As Double, ByVal Y As Double) As Long

Code :

call DllEnvoiDonnees(m_dwTaille, m_sngX(0), m_sngY(0) )

Code :

int __stdcall EnvoiDonnees2(int taille, int Nom, double *Temps, double *X, double *Y)

Code :

Public Declare Function DllEnvoiDonnees2 Lib "Communication.dll" Alias "EnvoiDonnees2" (ByVal Taille As Long, ByVal nom As Long, ByVal Temps As Double, ByVal X As Double, ByVal Y As Double) As Long

Je n'ai pas testé mais c'est comme ca que je ferais.

Piemur2000

Non ca ne marche pas, il me demande un seul double quand je fais ca...

karlkox

Non, il ne demande pas UN SEUL double, mais VB passe les tableau par adresse, donc si tu donnes le premier indice du tableau, c'est bon ... J'ai toujours fait comme ca (avec les mêmes prototes que toi) et ca a toujours fonctionné.

Message édité par karlkox le 23-07-2003 à 14:25:04

Piemur2000

karlkox a écrit :

J'ai essayé de mettre les proto que tu as dis et d'appeler la fonction comme ca :

Code :

Dim TabX() As Double
Dim TabY() As Double
DllEnvoiDonnees(taille, TabX(0), TabY(0))

mais ca plante pendant l'appel de la Dll... Je pense pas que ca vienne de la Dll pke je l'ai deja testé.

Piemur2000

Ah c bon, j'ai trouvé. Il faut mettre ByRef X()... et passer X(0).

Merci :jap:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Passage de données à une DLL C++

Sujets relatifs
[SGBD] Base de données sans serveur ?	[VBA]Ajout de bouton dans la barre d'outils
[VBA] Comment remettre une liste box à 0	[DLL] Prototype des fonctions exportées
référencer une DLL créée en Delphi?	Passage de parametres a une form...
Bouton parcourir en VBA (pour Access)	de l'AS400 (fichier .tto) vers VBA (Excel)
placé un element sous plusieurs catégorie dans une base de donnéés	formulaire => données envoyés à fonction php ?
Plus de sujets relatifs à : [VBA] Passage de données à une DLL C++

Page générée en 0.055 secondes