Casse tete DLL ActiveXRésolu

Question

Salut!!
Bon je suis bloque malgre mes recherches sur les forums et autres codes source.

J'ai cree une DLL que j'arrive a compiler, mais je n'arrive pas a l'utiliser.
Qui pourrait m'aider???

Voici le code de la DLL : (Repris sur un code source mais utiliser dans un module!)
Elle sert  a ecrire et lire dans un fichier ini.

Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" _
    (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, _ByVal lpFileName As String) As Long


Public Sub EcrireIni(section As String, cle As String, _ valeur As String, Fichier As String)
 WritePrivateProfileString section, cle, valeur, Fichier
End Sub


Public Function LireIni(section As String, cle As String, Fichier As String, _
    Optional ValeurParDefaut As String = "") As String
Dim strReturn As String
strReturn = String(255, 0)
GetPrivateProfileString section, cle, ValeurParDefaut, strReturn, Len(strReturn), Fichier
LireIni = Left(strReturn, InStr(strReturn, Chr(0)) - 1)
End Function

J'ai appele le projet : fichierini.vbp, la class : init, et donc je n'arrive pas a utiliser les deux fontions : LireIni et EcrireIni.

Comment faut 'il s'y prendre???
J'ai essaye :
'Public init As Object
'Dim maDLL As fichierini.init
ord = maDLL.LireIni("Ordre", "Info" & i, App.Path & "\prog.ini")

mais ca marche pas!
 Help me!!

cs_DARKSIDIOUS · Accepted Answer

Youps, excuse, je me suis plant&#233;, la d&#233;claration doit se faire comme c&#224; plut&#244;t :



Dim maDLL As New Init

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

cs_DARKSIDIOUS · Answer

Hum, c'est quoi c&#224; : "As fichierini.init" ?



Quel est le nom de ta classe ? Init c'est bien c&#224; ? Alors il te suffit
de r&#233;f&#233;rencer ta dll dans VB (menu Projet/Composants, puis va chercher
ton fichier dll avec le bouton Parcourir...)



Ensuite, dans ton code :

Dim maDLL As Init

ord = maDLL.LireIni("Ordre", "Info" & i, App.Path & "\prog.ini")



Sinon, une petite remarque : il est de moins en moins courant
d'utiliser des fichiers ini : depuis Windows 95, il est plut&#244;t
recommand&#233; d'utiliser la base de registre !

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

Youpien · Answer

Merci j'essaie ca !!!!
En faite je traite ca en fichier ini pour deux raison, une pour apprendre les dll!! je rame! et ensuite je me sent plus en confiance pour l'instant avec les fichiers ini, je debute!!! lol

Bon alors j'ai essaye mais je dois avoir un autre probleme car lorsque je lance le projet il me sort Run-time error 91, Object variable or with block variable no set.

Je clique sur debug et il me sort la ligne :

 ord = maDLL.LireIni("Ordre", "Info" & i, App.Path & "\prog.ini")

Qu'ai je put oubli&#233;!!???

Pourtant avant j'avais tous mis dans un module attenant au projet et j'avais pas de probleme! Que depuis que j'essaie d'en faire une DLL!

Youpien · Answer

Genial!!!
Ca marche du tonnerre!!

Merci !!!

Casse tete DLL ActiveX

4 réponses

Discussions similaires