declaration function dll vb dans delphi

Question

salut à tous

je voudrais me servir d'une function presente dans une dll
developpé en vb

declaration de la function sous vb

Public Declare Function traitext Lib "trtext.dll" (lparamtext As Paramtext) As Integer

Public lparamtext As Paramtext

Public Type Paramtext
     textIn As String * 32
     Entree As String * 64
     textOut As String * 32
     Sortie As String * 64
End Type

si une personne pouvait m'aider pour declarer cette function sous delphi 
merci d'avance
raylp

cs_Bestiol · Answer

Apparemment, il faut déjà que tu redéclare ton type ParamText en Delphi dans ton unité...

Je ne connais pas beaucoup VB, mais ça doit être ça :
type
  TParamText = Record
    TextIn: String[32];
    Entree: String[64];
    TextOut: String[32];
    Sortie: String[64];
  end;

Ensuite, tu déclares la fonction :
Function traitext(lparamText: TParamText): Integer; external 'trtext.dll';

Je pense que ce code marchera... Mais il est possible que non, car je ne suis pas sûr que mon record corresponde exactement à ton type en VB...

Voilà !
Bonne prog' !
[mailto:bestiol@cario.fr Bestiol.]

raylp · Answer

Merci Bestiol pour ta reponse je vais tester 
Apres pour se servir de la function comment declare t'on les rubriques?

 traitext(.?   );
encore merci pour le debut, je suis un peu dans le flou pour se servir d'une function avec des parametres et non avec  des rubriques

cs_Bestiol · Answer

Bonjour !

Pour utiliser la fonction, il faut que tu déclares une variable de type TParamText :
var lparamText: TParamText;

Ensuite, tu remplis ta variable avec les données qu'il faut :
lparamText.TextIn :=  'truc';
lparamText.TextOut := 'Machin';

Enfin, tu utilises la fonction :
traitext(lparamText);

Voilà, j'espère que ça va t'éclairer !!
[mailto:bestiol@cario.fr  Bestiol. ]

raylp · Answer

salut bestiol
pour la function c'est ce que j'ai fait , le probleme c'est que sa me fait des violations d'acces, c'est pour cela que j'ai posé la question , je pense que cela doit venir de la declaration de la longueur des strings, qu'en pense tu ?
raylp

cs_Bestiol · Answer

Ca doit effectivement être au niveau des string... Que veut dire le "* xx" à côté des déclarations en VB ?!

@+
[mailto:bestiol@cario.fr Bestiol.]

raylp · Answer

le * xx est la longueur du string en vb

cs_Bestiol · Answer

Donc c'était presque bon !! J'ai oublié un truc, c'est qu'on ne peut pas utiliser les string comme ça, avec les DLLs !

Essaye en déclarant tes variables en tant que Array[1..xx]Of Char !

J'espère que ça marchera !
[mailto:bestiol@cario.fr Bestiol.]

raylp · Answer

merci beaucoup de ton aide Bestiol
en declarant en array.... 
ça fonctionne 
bien entendu j'ai adapté le reste
encore merci
raylp :)

cs_Bestiol · Answer

Y a pas de quoi !!

Au plaisir, et bonne prog' ! :big) 
[mailto:bestiol@cario.fr Bestiol.]

Declaration function dll vb dans delphi

9 réponses

Votre réponse

Discussions similaires