Envoi d'un tableau de strings à une DLL standardRésolu

Question

Bonjour à tous

Voila j'aurais aimé avoir votre avis d'expert sur cete opération.
Je veux passer un tableau complet de strings à une DLL standard, que je réalise avec un language qui n'est ni VB ni C.

Cela fonctionne correctement, mais je suis obligé de passer par un tableau de pointeur dans lequel je depose chaque adresse de chaque string du tableau.

J'aimerais juste savoir si quelqu'un aurait une autre méthode.
Voici donc le code qui fonctionne :

Dim TabloString(3) as String
X = 0X X + 1: TabloString(X) "Coucou"X X + 1: TabloString(X) "Je suis un "X X + 1: TabloString(X) "tableau de string"

Dim TabloPointeur() As Long
ReDim TabloPointeur(0 To X) As Long
TabloPointeur(0) = X
 
For i = 1 To X
 TabloPointeur(i) = StrPtr(TabloString(i))
Next
 
FonctionDll TabloPointeur(0)

Je vous remercie de votre aide
Bonne journée

PCPT · Accepted Answer

pas grave pour le temps de réponse par contre on ne s'est peut-être pas bien compris... problèmes pour moi (moi d'abord ) : *langage = PureBasic (que je ne connais pas) *IDE = PureBasic version Démo, ne compile pas, n'accepte pas les API, et accessoirement limité à 800 lignes de code, mais comme de toute façon il compile pas... :) *on passe à jaPBe gratuit = n'accepte pas les API, ne compile en VRAIES DLL *essayé de code sous notepad et de jouer avec le copilo de PB directement => ****************************************** PureBasic 4.31 (Windows - x86) Demo ****************************************** Compiling mydll.pb Loading external libraries... Starting compilation... 45 lines processed. Creating and launching executable. - Feel the ..PuRe.. Power - espoir? beh non, pas pour autant je dois pas être loin mais bon, çà me gave un peu là !!! et comme après tout on est sur un forum VB et qu'au final je n'ai donc aucun moyen de t'aider en PB, il n'y a plus grand chose à faire tu ne crois pas?... problèmes pour toi : ton but est de passer un tableau de STRING de VB6 à une VRAIE DLL une vraie dll n'a pas de tableau BSTR comme VB, on doit donc passer par un pointeur de tableau or de ton côté tu passes un tableau d'adresses, ce qui rallonge considérablement le code, le temps d'execution etc.... voici donc en VB6 une solution comparable, pour jouer avec un tableau de string : Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any , pSrc As Any , ByVal ByteLen As Long ) Private Sub Command1_Click() Dim xs(2) As String xs(0) = "Ligne 1" xs(1) = "Ligne 2" xs(2) = "Ligne 3" 'appel méthode magique simulant la dll PB CloneStringArray VarPtr(xs(0)), UBound(xs) End Sub 'code à adapter en PureBasic.... Sub CloneStringArray(ByVal lhPointer As Long, ByVal lSize As Long) Dim saNew() As String ReDim saNew(lSize) CopyMemory ByVal VarPtr(saNew(0)), ByVal lhPointer, 12 'test Dim i As Integer For i = LBound(saNew) To UBound(saNew) Debug.Print i & ". '" & saNew(i) & "'" Next i End Sub [../code.aspx?ID=39466 Coloration VB6, VBA, VBS] à bientôt

PCPT · Answer

salut,
tu devrais envoyer le pointeur du tableau, pas un tableau des pointeurs de chaque chaine

Declare Function VarPtrAny Lib "vb40032.dll" Alias "VarPtr" (lpObject As Any) As Long


FonctionDll byval 
VarPtrAny(
TabloString
(0)
)

(après faut voir la dll en question )
++

cs_andrebernard · Answer

Bonjour PCPT, je suis content de te reparler :-)

Je suis perdu entre les pointeurs, les tableaux de pointeurs, l'unicode etc....

Je suis donc, au prix de 2 litres de sueur, arrivé a faire ecrire ma fenetre....mais je suis sur que comme tu le dit, y'a surement autre chose que d'envoyer un tableau de pointeurs

Voici donc ou j'en suis

Private Declare Function FenetreTexte Lib "c:\mydll.dll" (ByVal Titre As String, ByRef TabloTexte As Long, Optional ByVal Couleur As Long, Optional ByVal Graphique As Integer) As Long
'Private Declare Function VarPtrArray Lib "msvbvm60.dll" Alias "VarPtr" (Ptr() As Any) As Long
Private Declare Function VarPtrAny Lib "vb40032.dll" Alias "VarPtr" (lpObject As Any) As Long



' Ne marche pas
' *************



'Public Sub Form_Load()
'
' Dim TabloString(1 To 3) As String
' TabloString(1) = "Bonjour"
' TabloString(2) = "je suis un tableau VB"
' TabloString(3) = "et je veux sauter dans une DLL :-)"
' 'FenetreTexte "Coucou", VarPtrArray(Tablo), 0, 0
' FenetreTexte "Coucou", ByVal VarPtrAny(TabloString(1)), 0, 0
'
'End Sub



' Marche bien
' ***********



Public Sub Form_Load()



 Dim TabloString(1 To 3) As String
 TabloString(1) = "Bonjour"
 TabloString(2) = "je suis un tableau VB"
 TabloString(3) = "et je veux sauter dans une DLL :-)"
 AfficheTabloInfo "Coucou", TabloString, 0, 0



End Sub



Public Function AfficheTabloInfo(TitreFenetre As String, TabloVB() As String, Optional CouleurTablo As Integer, Optional Graphique As Integer)
 
 Dim TabloPointeur() As Long, MaxTablo As Integer
 MaxTablo = UBound(TabloVB)
 ReDim TabloPointeur(0 To MaxTablo) As Long
 TabloPointeur(0) = MaxTablo + 1
 
 For i = 1 To MaxTablo
  MyStr = StrConv(TabloVB(i), vbFromUnicode)
  TabloPointeur(i) = StrPtr(MyStr)
 Next
 
 FenetreTexte TitreFenetre, TabloPointeur(0), CouleurTablo, Graphique
   
End Function


Et voici la DLL qui n'a qu'une fonction 

http://erdsjb.free.fr/MyDll.dllhttp://erdsjb.free.fr/Mydll.dll

Encore merci de ta precieuse aide

cs_andrebernard · Answer

Pour la DLL, j'ai merdé, c'est le premier lien qui est le bon :-(

PCPT · Answer

mais dans ta dll, le long correspond à quoi, le pointeur d'un safearray?

parce que :



VARPTRSTRINGARRAY


        VarPtrStringArray gets the address of an array of Strings. To avoid the 
        intrinsic

        UNICODE/ANSI conversion performed by Visual Basic, the declaration has 
        to be

        defined in a type library.


        Alternatively, you could use the MIDL compiler to compile your own type 
        library

        from the following .odl files.


        For Visual Basic 6.0, create a text file named VB6ptrlib.odl with the 
        content

        below:


        #define RTCALL _stdcall

        [

        uuid(C6799410-4431-11d2-A7F1-00A0C91110C3),

        lcid (0), version(6.0), helpstring("VarPtrStringArray Support for 
        VB6")

        ]

        library PtrLib

        {

        importlib ("stdole2.tlb");

        [dllname("msvbvm60.dll")]

        module ArrayPtr

        {

        [entry("VarPtr")]

        long RTCALL VarPtrStringArray([in] SAFEARRAY (BSTR) *Ptr);

        }

        }







sinon oui, un tableau de LONG serait attendu ^^

ps : quand on joue avec les pointeurs sur un tableau, on doit impérativement le déclarer commençant à 0

 
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_andrebernard · Answer

Non je ne crois pas, en fait j'y connais pas grand chose :-(
C'est une adresse memoire que la DLL attend, l'adresse de debut du tableau de pointeurs que VB a contruit

Apres je lis la memoire a partir de l'adresse que la DLL reoit.
Les 4 premiers octets, je les garde pour renseigner la longueur du tableau, l'enregistrement 0
Et apres je lis "longueur du tableau x 4" octets que je transfere a l'adresse d'un tableau qui est dans la DLL
Puis je fait une lecture avec l'instruction PEEK de chaque enregistrement du tableau de pointeur dans la DLL qui me transforme l'adresse en string

PCPT · Answer

ok, je résume, tu as une vraie dll avec ou sans sa source et tu veux l'utiliser "comme tu veux" sans respecter ses attentes?

quelque chose m'échappe....

cs_andrebernard · Answer

Non non, je me suis mal exprimé.
Voila la DLL c'est moi qui la fait, mais pas avec le C, ni avec VB car VB6 ne sait pas faire de DLL standard.
Normalement elle repond au meme standard que celles du C, elle utilise STDCALL comme appel.
Je n'y connais pas grand chose en DLL et rien en C malheureusement, pour moi ....le C c'est du domaine du reve, ça fait des années que j'achete les livres et les languages et que je n'y comprend pas grand chose :-(

Donc la DLL que je t'ai donné contiens une seule fonction, celle que j'appelle qui ouvre une fenetre et rempli une listbox du tableau de string que tu lui envoi.
Enfin pour etre plus precis....du tableau de pointeur que tu lui envoi.
Comme je te l'ai expliqué au dessus
C'est une adresse memoire que la DLL attend, l'adresse de debut du tableau de pointeurs que VB a contruit

Apres je lis la memoire a partir de l'adresse que la DLL reçoit.
Les 4 premiers octets, je les garde pour renseigner la longueur du tableau, l'enregistrement 0
Et apres je lis "longueur du tableau x 4" octets que je transfere a l'adresse d'un tableau qui est dans la DLL
Puis
je fait une lecture avec l'instruction PEEK de chaque enregistrement du
tableau de pointeur dans la DLL qui me transforme l'adresse en string

Mon probleme c'est que je peux compiler cette DLL en mode UNICODE ou bien ANSI.
Etand donné que le tableau VB que je lui envoi est apparement UNICODE par defaut et bien ma DLL qui est ANSI par defaut, ne le comprend pas, par contre elle inscrit bien le titre de la fenetre. TitreFenetre As String
Mais si je la compile en UNICODE alors cette fois c'est le titre string TitreFenetre As String qui ne passe pas et le tableau oui, c'est rageant

Moi ce que je voudrais c'est pouvoir envoyer a cette DLL le tableau de pointeur de mon tableau string mais en ANSI
J'ai essayé avec StrConv(TabloVB(i), vbFromUnicode) mais apparement ça ne marche pas et je ne sais pas pourquoi :-(
Est ce la bonne methode pour convertir en ANSI, car je prefererais convertir en ANSI dans VB que modifier ma DLL
Je sais c'est pas simple.....alors imagine pour moi :-(

En tout cas merci de t'interesser à mon cas perdu :-)

PCPT · Answer

pourquoi et/ou comment as-tu codé, dans ta dll, une fonction devant recevoir un tableau LONG de pointeurs LONG (ce dans un langage apparemment top secret ^^)

étant l'auteur de la mystérieuse dll, ne peux-tu pas modifier le code pour (au plus simple) passer par le pointeur 0 du tableau ?

ps : pourquoi stoquer la taille en 0 ?... à partir du moment où le tableau n'est pas null, tous les langages savent récupérer la taille d'un tableau de type N

pss : normal que tu aies un problème ANSI avec un "chaine(ansi/ascii)" vers "unicode vers ascii"
tu converties une chaine non unicode

cs_andrebernard · Answer

pss : normal que tu aies un problème ANSI avec un "chaine(ansi/ascii)" vers "unicode vers ascii" tu converties une chaine non unicode Bah j'y comprend plus rien.....j'avais lu sur les forum que VB gerait en UNICODE :-( Et quand je compile ma DLL en unicode ça marche, alors bettement je me suis dit que ce devait etre de l'unicode que VB envoi En fin de compte, mon idée est de passer a une DLL standard un tableau de string. On m'a dit que le plus simple serait de creer un tableau de long contenant les adresses des pointeurs de mon tableau de string et de d'envoyer l'adrresse du tableau (0) contenant les pointeurs en faisant cette methode. For i = 1 To MaxTablo TabloPointeur(i) = StrPtr(TabloVB(i)) Next FenetreTexte TitreFenetre, TabloPointeur(0), CouleurTablo, Graphique C'est donc ce que j'ai fait, j'etait satisfait mais j'ai vu que je n'avais que la premiere lettre de chaque phrase On m'a conseillé de compiler ma DLL en UNICODE C'est ce que j'ai fait, et la ça a marché :-) J'etais donc content, mais je me suis apperçu que cette fois en UNICODE ma DLL lisait bien le tableau mais plus la variable "TitreFenetre" Alors c'est pourquoi j'ai eu l'idée de demander à des experts en VB comme vous si il y avait une methode pour transmettre un tableau de string a une DLL. Pour le language "Mystere" ;-) en fait si je n'en parle pas c'est parce que a chaque fois que j'ai demandé de l'aide a des professionnels comme toi du C et VB, soit je me suis fait envoyé dans les roses du style "Moi je suis programmeur avec un vrai language de programmation et pas bidouilleur" :-( Ou au mieux, des que j'ai dit que ma DLL etait pas faite en C et que j'adorais ce language mais n'y connaissait rien et ben plus de reponse :-( Tu ne le sais pas, mais je suis un ouvrier qui n'aimait pas l'ecole, mais qui s'est passionné a l'age de 16 ans pour la programmation. Je suis fou d'elle.....mais comme dans toutes les grandes histoires tragiques d'amour, elle ne m'aime pas :-( Alors je fais avec depuis plus de 25 ans, j'essai de programmer en VB et j'ai pu trouver un super language fait par un cerveau comme toi et certain des membres de ce forum, qui permet au burnes comme moi de toucher du doigt les joies de la programmation, sans etre trop expert. Ce qui n'empeche pas les pro de l'utiliser car il est tres bien conçu, puissant, bas niveau, et compile en ASM assez propre, portable, multiplateforme, petit, produisant des exe autonomes et tout aussi petit, et en plus il permet de creer aussi bien des EXE que des DLL avec le meme code. Alors je vais te dire le nom en esperant que tu ne prendras pas tes jambes a ton coup comme les autres :-( Sache bien que ceux qui l'utilisent ou l'on créé n'en respecte pas moins le C ou autre,mais voit en lui un moyen rapide et propre de creer une petite appli qui tourne tres bien sans avoir a sortir l'artillerie lourde :-) Mon reve depuis 25 ans serait de coder C........mais la seule chose que j'ai su faire c'est ouvrir la boite ....prendre peur......et la reposer sur mon etagere en la regardant desesperement tous les jours tout en poussant un Huuummmmmffff !!!! de tristesse. Je pense que ce petit language par la taille mais grand par ses capacité a sa place au milieu des grands, car il n'a pas la pretention de remplacer les autres ....mais de traiter rapidement des petits problemes le plus simplement du monde. Il est desormais reconnu, car il a une rubrique dans ww.developpez.com, c'est un gage du serieux de ce dernier, je pense. Mon probleme a moi, c'est que j'essai de faire discuter VB et PB et ils sont tres different. Sur le forum PB, il n'y a pas beaucoup de programmeur VB.....ils sont plutot ASM et C ou alors que PB et sur le forum VB pas beaucoup de monde veut m'aider ne me prenant pas au serieux ou bien pensant que PB n'est pas "un language" :-( Bon je me lance........c'est PureBasic..........créé par Frederic laboureur un français qui se demene avec une petite equipe pour nous fournir le maximum de qualité avec le minimum d'argent.....et a notre epoque c'est pas commun non ????? Tu es encore la ...... :-))))) Bon si oui, je te donne le code de la DLL , j'ai oté la gestion de fenetre car je pense qu'elle ne doit pas t'interesser et alourdis la comprehension :-) ProcedureDLL FenetreTexte(TitreFenetre.s, *AdresseTablo, Couleur #Black, Graphique #False) *AdresseTablo est un pointeur memoire (En PB quand il y a une etoile devant c'est un pointeur) .s à la fin d'une variable signifie que c'est une string comme "TitreFenetre.s" Couleur = #Black signifie que si on entre rien la valeur defaut sera la couleur #Black Dim MyArray.l(1) SizeOfArray.l PeekL(*AdresseTablo) .l long ReDim MyArray(SizeOfArray) CopyMemory(*AdresseTablo, @MyArray(), SizeOfArray * 4) Je copie la memoire de SizeOfArray * 4 octets en partant de *AdresseTablo dans le tablo @MyArray(), En PB @ signifie "adresse de" .... ... J'ecris dans la listebox avec une boucle le tablo MyArray(i) For i = 1 To SizeOfArray AddGadgetItem(#ListviewTexte, - 1, MyArray(i)) Next ... ... EndProcedure Voila je sais que ce que je te demande n'est pas simple :-( Et je te remercie d'avoir la grandeur d'esprit de bien vouloir aider un handicapé de l'informatique comme moi

PCPT · Answer

eh beh, tout un post ^^

ok bon, je ne me sauve pas et n'ai aucune grief contre purebasic

reprenons :
tu envoies depuis VB un tableau de long, étant le tableau des adresses mémoire de chaque string du tableau d'origine

PB reçoit cette adresse et sait que c'est une pointeur (*)
tu copies ensuite le tableau d'adresses dans un autre tableau de long...

tout çà n'est pas à faire, surtout qu'autant les tableaux sont très spécifiques en VB, autant c'est peut-être aussi le cas en PB...

et pour ma part aucun test faisable côté dll....

une alternative serait de passer en paramètre une chaine unique, étant le tableau ??

VB : 
 Dim TabloString(1 To 3) As String
 TabloString(1) = "Bonjour"
 TabloString(2) = "je suis un tableau VB"
 TabloString(3) = "et je veux sauter dans une DLL :-)"
 FenetreTexte "Coucou", Join(TabloString, vbNullChar), 0, 0

PB : ProcedureDLL FenetreTexte(TitreFenetre.s, StringJoinedArray.s, Couleur #Black, Graphique #False)

Dim SplitedArray.s() 
SplitedArray = split(StringJoinedArray, chr(0))

 For i = 0 To PeekL(*SplitedArray) -1
  AddGadgetItem(#ListviewTexte, - 1, SplitedArray(i))
 Next 

... dans ce goût là, qu'en penses-tu?

cs_andrebernard · Answer

Tu es pas parti ......
J'en pense que tu es un ange :-)
Et tu peut pas savoir ce que ça fait plaisir de se sentir moins seul

J'avais fait la meme chose au tout debut mais avec 10 lignes de plus :-(
En fin de compte, si j'ai bien compris tu met tout sur une meme ligne séparé par un caractere donné et hop tu la met a la poste.
La DLL n'a plus qu'a redecouper les chanps.

Quand j'avais fait ça, ça marchait, mais je me suis dit :

1/ C'est pas tres "professionnel" comme methode :-(
2/ Et secondement, je me suis dit imagine que le tableau est immense.....je crois qu'une variable peut aller jusqu'a 32 k. et apres ?????

C'est pour cette raison que j'ai essayé cette methode de passage de pointeur, pour pallier a tous les cas.qsu
Si vraiment je trouve pas de solution....je ferais celle la ...c'est mieux que rien :-)

Mais dis voir, comment explique tu que quand je compile ma DLL en UNICODE elle comprenne le tableau et quand je la compile en ANSI je n'ai que le premier caractere et encore ????
Si ce n'est pas de l'UNICODE que j'envoie, que devrais je mettre dans VB comme conversion pour que ma DLL ANSI comprenne le tableau de pointeur ????

PCPT · Answer

tu as bien compris oui ;)

1/ je ne suis pas fan de cette méthode non plus, mais c'est mieux que 2 tableaux comme tu fais ^^
(enfin, sans doute discutable)

2/ la taille d'une string te permet tout de même de stoquer plus de 2 milliards de caractères, faut déjà les faire... 
la chaine fixe est bloquée à 64Ko, mais çà ne te concerne pas






à la limite on peut tenter quelque chose, par curiosité
si la version PB démo (http://www.purebasic.com/french/download.php3) le permet, transmet-moi le code complet de ta dll, avec les explications que tu penses nécessaires (déclarations d'api, déclarations de variables avec types, etc...), et je jetterai un oeil, voir un peu ce qui est faisable

++

cs_andrebernard · Answer

Alors la ....je reste sans voix !!!!!
Et pour moi c'est super dur :-))))

Oui normalement la version demo restreint un nombre de ligne maxi, je crois mais qui est grand et on ne peut pas utiliser les API.
Quand tu pense que FRED....(c'est comme ça qu'on l'appelle) car on cause parfois avec lui, il est super cool, mais débordé, il s'est palluché presque toutes les API.
Avec VB il faut les declarer....avec PB tu les utilise comme une instruction native sauf que tu met un underscore a la fin. (C'est a ça qu'on les reconnait)

C'est la premiere fois que je vois quelqu'un ouvert d'esprit comme toi, et je tiens à te le dire.
Je sais que c'est un tres bon language, car moi j'suis une bite en prog, mais y'a aussi des sacré CAIDS du C et de l'ASM qui l'utilisent.
Donc quand on vois que eux l'utilisent......ça encourage.
Comme je te le dis (car je repete ce qu'ils disent) c'est au contraire un bon complement des autres languages, car la mise en oeuvre est hyper rapide et la puissance est au RDV ;-)

La communauté Française est super sympa, on se marre presque tous les jours ensemble, mais on est pas trop nombreux, on aurait bien besoin d'un cerveau comme toi 
http://www.purebasic.fr/french/

Et ce language est connu internationalement, c'est ici que les plus fort on fait leur nid :-)))
Jete un oeil aux codes, je pense qu'avec ton ouverture d'esprit et ta connaissance, tu devrais vite te rendre compte de la puissance de la bete :-)
http://www.purebasic.fr/english/index.php

Y'a meme un forum allemand, qui sont aussi tres fort , bleme....c'est que a part sous la torture...je parle pas l'allemand :-)))
http://www.purebasic.fr/german/

Sans parler des frums non officiels russe, chinois qui se sont monté et aussi noir de liens qui donnent acces a des centaines de codes tout pret.........
Pour les forums chinois et russe on se mefie un peu.....car vu le bas niveau et l'autonomie du language il est tout désigné pour la creation de virus pour les gens mal intentionnés :-(

Voici donc tout le code, et encore merci pour tout.
J'suis fier de te connaitre :-)

http://erdsjb.free.fr/TabloDll.zip

cs_andrebernard · Answer

Dans le ZIP tu trouveras le VB evidemment ....un fichier .PB que tu as juste a faire glisser dans l'IDE de Pure et la DLL compilée
Pour Compiler la DLL tu va dans "Compilateur/option du compilateur" normalement tu doit avoir "Format de l'executable = Shared DLL" quand tu veux le meme prg en EXE tu met "Windows", tu vois si meme une gaufrette comme moi y arrive ......Tu peux aussi faire des applis console, ce que ne sait pas faire VB non plus :-(

La seule chose pour qu'une procedure soit "exportable" en DLL il faut l'appeller "ProcedureDll", sinon pour un exe tu peux les laisser comme ça, mais elles s'appellent Procedure tout court.

cs_andrebernard · Answer

FRED a prevu aussi de creer des DLL avec appel CDESL ou un truc comme ça.....enfin l'autre appel de DLL que connait le C.
Alors la il faut les appeller "ProcedureCDLL" mais la ça me depasse deja un peu :-))

Autre chose pas banal, PB accepte que tu code directement en assembleur au milieu du code natif.
Comme ça tu peut creer des procedures encore plus rapide intégrée au code.
On peut aussi inclure tous fichier en DATA et les utiliser, comme les fichier RES de VB

Et encore des centaines de choses de dingue pour un petit language comme celui la :-)

cs_andrebernard · Answer

Y'a deja pas mal de library statique....une FTP, une video, une mail, MD5, Regular expression, XML, Preference .....et il s'en rajoute de temps en temps a chaque version qui est GRATUITE A VIE

MAis encore plus dingue, c'est que comme VB, il est extensible a volonté, tu peux creer tes propres libraries et les inclures dans l'IDE, ou les partager avec les autres....
L'IDE est entierement parametrable, tu peut tout choisir, inserer ses plugin que tu as realisé, apeller des programmes qui s'inserent a n'importe quel moment de la compilation ......

Il n'existe pas qu'un seul IDE, des passionnés ont créé JAPBE (Just Another Pure Basic Editor) qui est encore plus performant.
Il existe des programmes aussi gratuit qui compile les librairies en ASM (Taillebite) aussi créé par les CAIDS du forum.

Y'a encore noir de trucs que j'espere tu auras le temps de decouvrir, et aussi la patience car j'en apprend tous les jours depuis 4 ans...

Car PB c'est avant tout une grande famille, tout le monde se connait et partage sa passion de la prog.....

PCPT · Answer

---------------------------
Information
---------------------------
DLL creation is not available in the demo version.
---------------------------
OK   
---------------------------

bien dommage...

en plus il doit manquer d'autres fichiers, la constante #black n'est pas reconnue

cul de sac

cs_andrebernard · Answer

Zut, j'savais pas pour les DLL :-(
Faut dire que j'ai jamais utilisé la demo
Au pire je peux te la compiler et te la faire passer si tu as une geniale idée

Pour la constante #Black, c'est pas grave.....tu met 0 à la place., C'est pour la couleur de la fenetre

Ou bien tu la rajoute dans 

Enumeration 
 #Black = 0
EndEnumeration

Au fait, j'avais oublié le lien Developez.com
http://purebasic.developpez.com/

PCPT · Answer

f11 pour l'explorateur des constantes etc..., avec JAPBE (nos messages se sont croisés)

mais il bloque sur l'API
une idée?

---------------------------
jaPBe - Compiler error
---------------------------

File : C:\xxxxx\TabloDll\MyDll.pb
Line : 43

GetAsyncKeyState_() is not a function (or not available in demo version), macro, array or linked list.
---------------------------
OK   
---------------------------

NB : c'est la version 3.9.6.795, ouverture fichier en PB4.31, version NON-démo

cs_andrebernard · Answer

Oui remplace la ligne par "ForEver"
En fin de compte c'est juste l'utilisation de l'API pour detecter un escape au clavier
On en a pas besoin car on peut fermer la fenetre avec le bouton

cs_andrebernard · Answer

Par contre, il faut bien que y'ai un coté un peu negatif car sinon tu va croire que j'adore PureBasic :-)))))))

Comme FRED fait ce qu'il peut pour faire progresser cette splendide bete, il arrive assez souvent que les codes soit incompatibles entre 2 version actuellement c'est la 4.30 
Mais un code en 4.20 ou encore pire en 3.94 detectera noir d'erreur de syntaxe.

Mais on lui pardonne deja parce que on l'aime, et aussi car a chaque fois c'est pour ameliorer le language et le rendre encore plus beau et puissant qu'il n'est actuellement

cs_andrebernard · Answer

Si tu passe par le forum US....et que tu veux voir des codes a ton niveau.
Dans les meilleurs c'est SROD, NETMAESTRO, SPARKIE, GNOZAL, FLUIDBYTE, TROND, FLYPE, KIFFY, TSSOFT ........etc (Liste dans n'importe quel ordre)
SROD a meme créé une lib COMATE PLUS pour donner acces a PB aux objet COM.
Elle est gratuite et open source.
Elle est basé sur DisHelper que tu dois connaitre en C
TSSOFT aussi a créé une lib qui n'est pas open source, mais gratuite pour gerer le OLE, elle s'appelle PureDisHelper basé evidemment sur le meme code C, comme tu peux le lire

Maintenant PB peut jouer dans la cour des grands avec VB main dans la main :-)

cs_andrebernard · Answer

Ah j'ai oublié...pour compiler en UNICODE

Pour compiler "Compilateur/Option/Activer le suport unicode"

Alors la tu verras aparaitre le tableau.
Mais moi je ne voudrais pas compiler en UNICODE :-(
Car apres toutes mes fonctions dans ma DLL risquent de merder

PCPT · Answer

euh.... j'essaye de te donner un petit coup de pouce, j'en ai jamais fait et pour le moment (même pas pouvoir utiliser d'API), je suis très loin de la conversion 

donc pour le moment çà compile mais je voudrais pouvoir utiliser les API
j'ai vu qu'il fallait ajouter des PBI, mais API-Library génère d'autres erreurs empêchant la compilation
as-tu une idée?
ou même, est-ce possible de déclarer manuellement des API ? (sans underscore donc)

 
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_andrebernard · Answer

Le probleme c'est qu'avec les versions demo on ne peut pas utiliser d'API

Les PBI c'est juste des fichiers de code contenant des procedures communes a plusieurs codes que tu peux inclure comme en C en faisant IncludeFile "MonInclude.pbi" pour alleger ton code 
On les appelle PBI, mais on pourrait les appeller PB ce serait pareil, ça n'a aucune incidence sur la compilation

Par contre tu devrais peut etre pouvoir appeller directement la DLL par exemple USER32.DLL, SYS32.DLL etc...
Mais il te faut connaitre tous les parametres de chaque API que tu va appeller
En fait j'ai jamais fait.....c'est un peu compliqué pour moi :-(

Pour ouvrir une DLL c'est :

#Dll = 0



OpenLibrary(#Dll, "MaDll.dll")
a = CallFunction(#Dll, "FonctionAAppeler", Parametres, Parametres2, etc ...)
CloseLibrary(#Dll)

cs_andrebernard · Answer

Tiens voila un exemple que je tire du forum US, chez moi ça marche, pour obtenir le repertoire courant :-)

http://www.purebasic.fr/english/viewtopic.php?p=98421#98421

If OpenLibrary(0,"kernel32.dll") 
  CurDir$=Space(512) 
  CallFunction(0,"GetCurrentDirectoryA",512,@CurDir$) 
  Debug CurDir$ 
  CloseLibrary(0) 
EndIf

cs_andrebernard · Answer

Je sais pas si tu te rappelle en PB  @ devant un nom de variable c'est son adresse memoire.
Au prealable on reserve 512 octets d'espace memoire en espace
Donc dans cet exemple l'API depose à l'adresse @CurDir$ le chemin 
Puis avec Debug on affiche dans le debugger le resultat.

ATTENTION, evidement le debugger n'apparait pas une fois la DLL compilée
Si tu veux faire apparaitre quelque chose, faut utiliser un msgbox au milieu de la DLL
En PB c'est MessageRequester(Titre, Prompt)

Encore une chose, pendant que j'y pense
Un variable string peut etre declarée de deux manieres
Variable$
Variable.s

Dans le premier cas tu devra toujours l'apeller Variables$ car elle est differente de Variable
Dans le second une fois déclarée comme ceci par exemple : Variable.s = "Toto"
Et bien toutes les Variable sans .s seront= "Toto"
Debug Variable
Reponse "Toto"

PCPT · Answer

ok on va tenter comme çà
croisons les doigts ;)

cs_andrebernard · Answer

Je quitte mes pompes ....comme ça j'en aurait 20 a croiser :-))))

Tiens je ne sais pas si tu as vu l'exemple avec un mix PB / ASM  pour la meme fonction
ça marche en v4.30 chez moi

module=LoadLibrary_("kernel32.dll") 



If module 
  GetCurrentDirectory=GetProcAddress_(module,"GetCurrentDirectoryA") 
  size.l=512 
  CurDir.s= "" 



  !PUSH [v_CurDir] 
  !PUSH [v_size] 
  !CALL [v_GetCurrentDirectory] 



  Debug CurDir 
  
  FreeLibrary_(module) 
EndIf 


T'avouera que c'est quand meme balaise ......pour un petit language...... hein :-)
Autant te dire que j'y comprend rien.....mais l'ASM c'est comme le C, je suis amoureux
Remarque c'est comme les tableaux ....on est pas obligé de comprendre pour y trouver beau :-)=)))))

PCPT · Answer

quand je fais une dll dans un nouveau projet, elle n'est pas accessible depuis VB : pas de point d'entrée
y'a t-il une spécificité à ajouter avec la compilation?

NB : depuis jaPBe

NB : "pas de point d'entrée" veut dire qu'il n'y a pas de __STDCALL

NB : dans ton zip tu as également un MyDll.LIB et un .EXP, comme pour un activeX par VB6. jaPBe ne m'a pas créé ces fichiers...

PCPT · Answer

... en fait quand je recompile la tienne, pareil
un défaut du compilo de jaPBe sans aucun doute 

de nouveau à la case départ

cs_andrebernard · Answer

Excuse moi de ma non reponse mais j'avais quitté le boulot et je n'ai pas pu me remettre sur une machine.
Aujourd'hui je suis en reunion, donc je ne vais encore pas pouvoir etre sur une machine :-(
Mais des demain j'espere pouvoir clapoter a nouveau :-)

Le probleme c'est que je ne connais pas JaPBe, j'utilise l'IDE natif.
Ce que je fait souvent, pour tester ma DLL, c'est creer un petit exe avec pure qui l'appelle avec les fonctions

#Dll = 0
OpenLibrary(#Dll, "MaDll.dll")
a = CallFunction(#Dll, "FonctionAAppeler", Parametres, Parametres2, etc ...)
CloseLibrary(#Dll)

Comme ça je sais deja si ce n'est pas un probleme VB
Je met un msgbox tout de suite au debut de la DLL, et je sais si PB a pu entrer
Comme tu le dit, ce genre de message est synonyme du fait qu'il n'a pas pu entrer dedans, donc le msgbox ne devrait pas servir, mais....

Peut etre une erreur de declaration dans VB
C'est pour ça que je prefere la tester avec Pure qui est bien plus souple et ne necessite pas de declaration
C'est drolement dur de depanner quelqu'un sans voir le code :-(
Deja dur pour un CAID, alors pour brouette comme moi....  :-))))

MyDll.LIB et un .EXP sont créé à la compilation de l'IDE en fait ils ne servent pas à la DLL, ce sont des fichiers qui peuvent servir au cas ou l'on veuille integrer les fonctions de la DLL dans le programme sans avoir à les declarer

Ce qui est bizarre c'est que tu ne puisse recompiler la mienne !!!!
Essaye avec l'IDE natif, je pourrais peut etre mieux te guider, et aussi avec la combine de l'exe pure qui ouvre la DLL pure avant de passer a VB

Ca m'ennerve pour une fois que je trouve quelqu'un de cool comme toi pour m'aider, il faut que j'ai noir de chose qui m'empeche d'etre devant un PC
Je reviens voir au plus tot, l'avancé des travaux :-)

Encore mille merci du mal que tu te donne, je suis abasourdi, un des plus bel exemple d'aide à autruis qu'il m'ai été donné de constater dans le monde de la prog
Je te souhaite une excellente journée et au plus vite je l'espere

cs_andrebernard · Answer

Je profite de la pose de reunion pour vite lire et te repondre

C'est deja super bien ce que tu as fait.
Vraiment j'en reviens pas.

Travailler avec la version demo, a mon avis c'est presque impossible.
Car je pense que le compilateur de demo, est aussi bridé, ce serait trop facile

Je vais essayer comme tu as dit de convertir en PB

Je te tiendrais au courant
Encore merci pour tout

cs_andrebernard · Answer

Bon je viens de trouver la solution ......enfin quelqu'un viens de me trouver la solution serait plus juste :-)

Alors je la donne ici, bien que je ne pense pas qu'elle puisse servir beaucoup ici.
Mais on sait jamais

Coté VB

Private Declare Function FenetreTexte Lib "MyDll.dll" (ByVal Titre As String, ByRef Texte As Long) As Long 

Private Sub Form_Load() 

 Dim TabloVB(15) As String 

 TabloVB(1) =  "Hello...i'm KCC" 
 TabloVB(2) = "i'm locked in VB :-(" 
 TabloVB(3) = "and i want to jump in PB :-)" 
  
 For i = 4 To 14 
  TabloVB(i) = "Line " + Str(i) 
 Next 
  
 Dim TabloPointeur() As Long, MaxTablo As Integer 
 MaxTablo = UBound(TabloVB) 
 ReDim TabloPointeur(0 To MaxTablo) As Long 
 TabloPointeur(0) = MaxTablo 
  
 For i = 1 To MaxTablo 
  TabloPointeur(i) = StrPtr(TabloVB(i)) 
 Next 
  
 FenetreTexte "Fenetre tableau", TabloPointeur(0) 
  
End Sub

 Du coté PB il fallait rajouter une fonction qui lit le BSTR 

Procedure.s PeekBSTR(*BSTR) 
  lenBSTR =PeekL(*BSTR-4)/2 
  Dim Char.c(lenBSTR) 
  For i=0 To lenBSTR 
    Char(i)=PeekC(*BSTR+i*2) 
  Next i 
  ProcedureReturn PeekS(@Char(0)) 
EndProcedure 

Voila, voila.......je remercie encore le grand PCPT de m'avoir soutenu dans cette galere.



Et d'avoir eu cette patience et ce dont de soi que pas beaucoups de personnes possede



Bonne journée

cs_andrebernard · Answer

Il me reste quand meme une question.

Est il possible de convertir en VB une variable BSTR en String traditionnel ????

cs_andrebernard · Answer

Puisque apparement c'est le fait qu'un tableau soit BSTR et que une string soit convertie en STR lorsqu'elle est passée à une API, ce devait etre la raison pour laquelle j'avais ma string qui passait et pas mon tableau de string

J'aurais aimé pour voir si c'est bien ça convertir mon tableau de String de BSTR en STR
J'ai trouvé ce code qui converti une BSTR en String

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As _
    Any, source As Any, ByVal bytes As Long)



' convert a BSTR into a VB String



Function StringFromBSTR(ByVal pointer As Long) As String
    Dim temp As String
    ' copy the pointer into the temporary string's BSTR
    CopyMemory ByVal VarPtr(temp), pointer, 4
    ' now Temp points to the original string, so we can copy it
    StringFromBSTR = temp
    ' manually clear then temporary string to avoid GPFs
    CopyMemory ByVal VarPtr(temp), 0&, 4
End Function


Mais j'ai pas encore tout compris de son utilisation

PCPT · Answer

merci pour les fleurs ^^

c'est pas bien de mettre un bout de code sans en citer la référence 
http://www.devx.com/vb2themax/Tip/19043

convertir un bstr (donc un tableau) en string? pourquoi faire?... çà reviendrait exactement à ma toute première proposition page 2 :



FenetreTexte "Coucou", Join(TabloString, vbNullChar), 0, 0




ou j'ai mal compris?

toujours est-il que tu passes toujours un tableau de long dans ton exemple....
ok cette fois-ci tu récupères correctement le contenu, mais il me semble que ce n'était pas le but

cs_andrebernard · Answer

Oui tu as raison, j'aurais du....remarque j'aurais pu faire pire et dire que c'etais de moi :-)))))
D'un autre coté personne ne m'aurait cru 

De rien pour les fleurs, elles sont vraiment méritée c'est sincere et pas leche botte, car tu es le premier a avoir fait un tel effort :-)
Et ça m'a vraiment épaté que toi, un maitre du C, tu veuille bien venir m'aider dans mon petit monde de PB :-)
Je reconnais que pour quelqu'un qui fait du grand C, on a l'impression de se rabaisser....mais aider les autres c'est aussi se mettre a leur niveau
Avec mon niveau.....tu va avoir drolement mal au dos :-)))))

Tout marche nickel, mais pour etre sur de comprendre, j'ai lu que les BSTR sont des strings avec devant 4 octets qui donnent leur longueur entre autre.
Et je crois avoir compris pourquoi les strings arrivent dans ma DLL, c'est que windows les converti par un temp en STR avant d'arriver dans la DLL, mais pas les tableaux de strings
Le code PB que je t'ai montré s'occupe donc dans la fameuse DLL ou tu as galéré dessus de convertir ce fameux BSTR en STR.
En fait tu avais raison (comme toujours) ce n'etais pas une question d'UNICODE, mais de BSTR que ma DLL n'acceptais pas.

Maintenant tout roule.
Mais comme je suis pas un chiant, et que j'aime bien comprendre bien que je sois monté petit cerveau.
Je me suis dit et si on convertissais la BSTR dans VB au lieu de dans la DLL
C'est à dire envoyer le reel pointeur de la string, au lieu de celui de la BSTR

Alors j'ai tenté de bidouiller ce super code, et j'obtiens a nouveau la premiere lettre de la phrase, sauf si je compile la DLL en UNICODE
Tu as encore raison, j'ai l'impression de tourner en rond.
Mais comme on envoi un tableau de pointeur memoire, ce doit etre un monde de ne pas pouvoir mettre les bons pointeurs, ceux qui pointent sur la STR et non pas la BSTR du tableau , non ????

Voici le code qui donne que la premiere lettre
Il pointe donc bien sur la STR mais pourquoi il s'arrette ???

Function PointerFromBSTR(ByVal pointer As Long) As Long
     Dim temp As String
    ' copy the pointer into the temporary string's BSTR
    CopyMemory ByVal VarPtr(temp), pointer, 4
    ' now Temp points to the original string, so we can copy it
    PointerFromBSTR = StrPtr(temp)
    ' manually clear then temporary string to avoid GPFs
    CopyMemory ByVal VarPtr(temp), 0&, 4
End Function



Private Sub Form_Load()



 Dim TabloVB(15) As String



 TabloVB(1) = "Hello...i'm KCC"
 TabloVB(2) = "i'm locked in VB :-("
 TabloVB(3) = "and i want to jump in PB :-)"
 
 For i = 4 To 14
  TabloVB(i) = "Line " + Str(i)
 Next
  
 Dim TabloPointeur() As Long, MaxTablo As Integer
 MaxTablo = UBound(TabloVB)
 ReDim TabloPointeur(MaxTablo)
 TabloPointeur(0) = MaxTablo
  
 For i = 1 To MaxTablo
  TabloPointeur(i) = PointerFromBSTR(StrPtr(TabloVB(i)))
 Next
  
 FenetreTexte "Fenetre tableau", TabloPointeur(0)
 
End Sub

PCPT · Answer

il ne s'arrête pas, ta chaîne est entrecoupée de chr(0) que ta listbox ne sait pas afficher

mais dis moi.... pourquoi tu ne passes-tu pas juste une ligne à ta dll....
tu fais ton appel en boucle sur les items du tableau
(la dll ajoute à la listbox)
puis tu termines sur le caption de la form, la dll affiche ce titre puis la fenêtre complète

pas jouable?

ps : je fais du C moi? ah bon...

cs_andrebernard · Answer

Aaaahh, je croyais que tu faisait du C.....
Il m'avait semblé voir un morceau de code que tu m'avais donné en une explication des SaffeArray en C au debut du POST c'est pour ça, que y'a eu confuse :-))

Oui tu as toujours raison......j'ai modifié ma DLL pour qu'elle lise bit a bit.
Et j'ai donc un caractere, un 0,  un caractere, un 0 
Alors j'ai poussé pour qu'il ne s'arrette pas au zero et la il me lis des choses tres confidentielles sur sa vie privées que je n'ose te repeter :-))))

Donc c'est la que doit intervenir la longueur de la str dans la BSTR je suppose, pour eviter de lire trop loin :-)

Si ton idée est jouable aussi et bien plus simple, c'est encore une alternative.


Mais en fait ce code n'est que le debut, pour cette fois c'est dans une lisbox, mais je voudrais faire pareil pour l'utiliser sur autre choses etc.


Tu va me dire, que je pourrais recreer le tableau en passant ligne a ligne et en l'enregistrant dans la DLL....mais c'est un peu comme la combine de la string et split...c'est pas bien top top.....et tu sais plus on est nul comme moi......et plus on est difficile :-)))


Encore une fois, si j'ai pas d'autre solution, je pourrais faire comme ça....


Mais ça avance, et j'trouve ça super cool :-)


Mais pourquoi y met ces chr(0) apres chaque lettre VB ???

cs_andrebernard · Answer

Bon je viens de m'appercevoir d'un truc !!!
Apparement non seulement il met un 0 entre chaque caractere et je ne sais pas pourquoi.
Mais apparement il termine ses enregistrements par au moins de 0 de suite.
Donc je suis arrivé a reperer dans la DLL la fin de chaque enregistrement grace à ça.

Qu'est ce que t'en pense ???

PCPT · Answer

salut,ASCII > 8 bits> 'salut'
UNICODE => 16 bits, il faut donc bien combler les vides... => 's0a0l0u0t0'

plus d'infos : http://fr.wikipedia.org/wiki/Unicode#La_limite_de_l.E2.80.99octet

avec un dernier 0 final

reste à voir ce que tu aurais avec une chaîne composée de caractères  chrW(n>255)   = une chaîne unicode ;)
voir STRCONV dans ce cas, et l'équivalent en PB évidemment

ps : je ne comprends toujours pas pourquoi tu ne passes pas par le pointeur du tableau string!
cf l'exemple vb que tu as validé

PCPT · Answer

oups je réponds à la moitié....


Qu'est ce que t'en pense ???


que si le dev VB doit (pour une raison quelconque) passer des chr(0) dans son tableau, cela peut causer des soucis...
(reste toujours instrrev tu me diras mais il doit bien y avoir des cas particuliers )

cs_andrebernard · Answer

je ne comprends toujours pas pourquoi tu ne passes pas par le pointeur du tableau string!
cf l'exemple vb que tu as validé 



Bah en fait par ce que ça plante, que je mette VarPtr ou StrPtr
J'ai validé la solution parce qu'elle etait bonne pour VB
Mais celle qui marche pour PB c'est celle que j'ai mis apres


Y'aurais donc encore une histoire d'UNICODE


D'ailleur comment on fait pour savoir si une variable est en UNICAODE ou ANSI ???

PCPT · Answer

çà fait planter beh ouai.... faut faire le bon code derrière ^^
là c'est sur le forum de PB qu'il faut voir 

une variable unicode? umm çà n'existe pas ;)
ah une valeur?...  API IsTextUnicode

cs_andrebernard · Answer

D'accord.....merci je continuerais a chercher demain
Bonne soirée

cs_andrebernard · Answer

Bon me revoilou :-)

Nickel ton API, ça me donne que mon tableau n'est pas UNICODE.


Alors pourquoi je me retrouve avec ces chr(0) qui complete comme tu me l'a expliqué???


J'y comprend rien. :-(


Pense tu que ce code modifié donne bien le pointeur de la STR de la BSTR ???

Function PointerFromBSTR(ByVal pointer As Long) As Long
     Dim temp As String, Longueur As String
    ' copy the pointer into the temporary string's BSTR
    CopyMemory ByVal VarPtr(temp), pointer, 4
    ' now Temp points to the original string, so we can copy it
    PointerFromBSTR = StrPtr(temp)
    ' manually clear then temporary string to avoid GPFs
    CopyMemory ByVal VarPtr(temp), 0&, 4
End Function

PCPT · Answer

umm... Option Explicit Private Const IS_TEXT_UNICODE_ASCII16 As Long = &H1 Private Const IS_TEXT_UNICODE_STATISTICS As Long = &H2 Private Const IS_TEXT_UNICODE_NULL_BYTES As Long = &H1000 Private Declare Function IsTextUnicode Lib "advapi32" ( ByVal lpBuffer As String , ByVal cb As Long , lpi As Long ) As Long Private Sub Form_Load() Dim x As String, y As String, z As String x = "a" y = x & ChrW$(0) & x & ChrW$(0) z = ChrW$(&H3088) & ChrW$(&H3046) & ChrW$(&H3053) & ChrW$(&H305D) MsgBox CBool(IsTextUnicode(x, Len(x), IS_TEXT_UNICODE_ASCII16)) MsgBox CBool(IsTextUnicode(y, Len(y), IS_TEXT_UNICODE_ASCII16)) MsgBox CBool(IsTextUnicode(z, Len(z), IS_TEXT_UNICODE_ASCII16)) Unload Me End Sub [../code.aspx?ID=39466 Coloration VB6, VBA, VBS] ouai pas génial en même temps apparemment elle est vraiment particulière à utiliser http://blogs.msdn.com/michkap/archive/2005/01/30/363308.aspx à moins plus simplement qu'elle ne soit juste pas unicode, que la compilation unicode altère juste toute sortie STRING... mystère de PB.... le code semble correct oui, inutile pour toi mais correct

cs_andrebernard · Answer

Merci pour cet exemple de fonctionnement de cette API

Bon bah tanpis, je laisse tombé l'envoi de STR par VB, je crois que c'est une galere, en plus j'sais meme pas si c'est possible.
Y'a surement toujours ces caracteres 0 qui se trimbale, et c'est un peu trop dur pour moi.

Je vais donc laisser la convertion dans la DLL
Je ferais un test pour voir si c'est du BSTR ou pas et j'agirais en consequence :-)

Envoi d'un tableau de strings à une DLL standard

50 réponses

Votre réponse

Discussions similaires