probleme dll,sniff suis perdueRésolu

Question

Bah voila 5h00 du mat toujours pas reussie, ze m'embrouille...
Vais essayer d'etre un minimum claire dans ma question

Projet: moteur de recherche
je desire mettre chaque moteur dans une dll pour en faire des plugins mais bon pour le moment j'en suis pas encore l&#224;....

Donc je creais une dll on va dire pour google qu'on appelera google.dll

Je sais pas trop ce qu'on peux et peux pas mettrededans et comment le mettre...
dans celle si j'ai une function search

en faite dans le prog j'ai une listview sur form1
je veux donc envoyer les resultat dans cette listview

donc le code de la dll tout beurk qui marche pas:

Public function search (frm as form, search as string)
frm.listview1.listitems.clear
source= frm.get1.openurl(..........)
..
..
frm.listview1.listitems(frm.listview1.listitems.count).lissubitems.add , , bouh
..
end function

et dans le programme:
donc je reference google.dll dans le projet du programme qui s'en servira
ensuite dim bouh as new google.search 

comand1_click()
bouh.search(form1)
( au passage pourquoi parfois on dois faire call bouh.search pour que ca marche ?)

j'ai essayer plein de methode differente mais rien veux marcher
le form qui semble poser probleme :(
dans la fonction je fait plein de truc genre:
start1=instr(source...)
end1=...
et oblig&#233;e de mettre 50 dim start1 as long, end1 as long, start2 as long....

apparemnt form et prive et ne fonctionne pas dans les function public

j'espere pas avoir &#233;t&#233; trop brouillon et recevoir des reponse.
Joyeuse paques

cs_DARKSIDIOUS · Accepted Answer

Oui, un objet Form ne peut pas &#234;tre utilis&#233; en temps que param&#232;tre
d'une fonction publique apparement. Pour r&#233;soudre ton probl&#232;me, mets
ceci :



Public function search (frm as Object, search as string)


Dim Feuille As Form



Set Feuille = frm



'le reste de ton code en remplacant frm par Feuille



End Function


DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : http://www.ProgOtoP.com/popapi/

cs_DARKSIDIOUS · Answer

Oula,



Il ne faut pas faire : dim bouh as
new google.search car sinon, tu essaye de cr&#233;er une instance d'un objet
nomm&#233; Search, qui n'existe pas... Il faut plut&#244;t d&#233;clarer :


dim bouh as new google.NomDeLaClasse




Et ensuite :



Call bouh.Search(Form1, "Texte &#224; chercher")


DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

aiko74 · Answer

Bouh pas encore couch&#233;e :(
Merchi pour la reponse mais faudrais deja que j'arrive a complier la dll

me mets:
Erreur de compilation

Des modules d'objet priv&#233;s ne peuvent etre utilis&#233;s dans le smodules d'objet public comme type renvoy&#233;s ou parametres pour les procedures publiques, comme mebres de donn&#233;e publics ou comme champs de types publics definis par l'utilisateur.

si je mets private function search (frm as form, search as string) ca se compile bien mais dans le programme : erreur de compilation methode ou memebres de don&#233;es introuvable :(

aiko74 · Answer

Merci pour cette reponse tres rapide
Tout fonctionne parfaitement 
Il me reste plus qu'a trouvercomment faire pour que le programme detecte tout seul les dll sans avoir besoin de le modifier. Faire de dll comme google des plugins qoa.
Encore emrchi

cs_DARKSIDIOUS · Answer

Il te suffit pour cela de compiler tes dll en mode "compatibilit&#233;
binaire" (que tu trouvera dans l'onglet compilation des propri&#233;t&#233;s de
ton projet).



Par contre, cela sous-entend aussi que tu ne modifie pas l'interface de
tes fonctions : une fois d&#233;finies, il ne faut plus toucher &#224; leurs
d&#233;clarations !

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

aiko74 · Answer

j'avais vu dans un exemple qu'il parlais de ca :"compatibilit&#233; binaire"

Deja le meme nom pour la class que je mets dans chaque dll

quand on coche la compatibilit&#233; binaire on dois selectionner avec qui.. pour la deuxieme je veux bien selectionner le premiere dll mais pour la premiere...

private sub form_load()
dim Thepluginname as string
dim i as long
File1.Pattern = "*.dll"
File1.Path
For I = 0 to file1.listcount
Thepluginname = left$(file1.list(i), 3 )
if strconv(Thepluginname, vblowercase)= "plug" then
list1.additems (File1.list(i))
end if
next i
end sub

jusque la chat va les plugins s'affiche bien dans le listbox
apres euh..
for b = 0 to file1.listcount
dim b as new b.NomDeLaClasse
next i

mouais non c'est pas ca

cs_DARKSIDIOUS · Answer

Ah non, ce que tu cherche &#224; faire est du earlybinding, c'est &#224; dire que
tu cr&#233;er une r&#233;f&#233;rence &#224; VB, donc si ta dll n'existe pas, ca fera
planter ton prog d&#232;s le lancement !



Ce qu'il faut faire, c'est du latebinding, c'est-&#224;-dire cr&#233;er l'instance de ta dll lors de l'&#233;x&#233;cution. Cela donne :


dim b as Object

Set b = CreateObject("NomDeLaDll.NomDeLaCLasse")




DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

aiko74 · Answer

z'alors ...

Private comman1_click ()
Dim plugx as string
plugx = Mid(List1.text,1,Len(list1.text)-3) ' j'enleve .dll
Dim b as Object
set b= CreateObject ( plugx & "Main")    'nom de la dll google , class : Main
Call b.search( form1, "le mot")
end sub

erreur 438 l'objet ne gere pas cette propriete ou cette methode
 en enlevant le call : type incompatible

cs_DARKSIDIOUS · Answer

Ben pourtant ton code me semble correct !



V&#233;rifie bien que ta dll est compil&#233;e, et que la classe nomm&#233;e Main
contient bien une fonction ou proc&#233;dure publique nomm&#233;e search...

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

aiko74 · Answer

Je devrais peut etre pas l'appeler Main ca gene peut etre...
J'ai chercher un peu sur google et apparemnt latebinding serais bien plus lent .
Ne peut ont pas utiliser une methode plus classic en declarant dans un fichier .ini ?
Euh pour la classon la met en Publicnotcreatble?, Multiuse?
Au cas ou google serais down ou ma connection la dll risque de tout planter non?

cs_DARKSIDIOUS · Answer

En effet, le latebinding est bien moins rapide que le early-binging car
VB est oblig&#233; de convertir les types de donn&#233;es &#224; chaque fois, mais
bon, pour un appel &#224; une dll ActiveX, et surtout, pour le genre de
traitement que tu souhaite faire, je ne pense pas que ce soit vraiment
flagrant ! (surtout qu'il s'agit de la seule solution vu ce que tu veux
faire, &#224; moins de passer par du C !)


Sinon, je te conseille de mettre ta classe en MultiUse, cela te
permettra de cr&#233;er plusieurs instances de ta classe en m&#234;me temps.



C'est &#224; toi de d&#233;finir ce que doit faire la dll si google ne r&#233;pond
pas, car sinon, si l'appel &#224; la dll est bloquant, la dll bloquera tout
ton programme !


DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

aiko74 · Answer

Ah ben ca venais d'autr chose
un feuille.label1.caption..
j'avais refait une form pour tester et je l'avais oublier.
Une fois compiler ca met error mais ca aide pas trop 
et une fois la ptite recherche effectuer ne doist'on pas decharger la dll?

set b = Nothing
 avant de lancer une recherche avec une autre

Sinon ca sembl fonctionner,  part que j'ai du register 5 fois les dll mais bon une fois finie faut pu y toucher  . peux etre que c'est pas genant de les register a chaque lancement du programme pour etre sur.
par contre pour la compatibilite binnaire j'ai pas encore trouver. Il faut selectionner avec quoi elle est compatible.. une autre dll? et la prmiere... a elle meme? 
Il dois falloir quand meme plus de verification d'erreur avec ces dll, chose que je mets jamais...
Merci pour cette patience, et ces explications tout a fait clair, domage on peut pas mettre de note

cs_DARKSIDIOUS · Answer

En effet, une fois que tu n'as plus besoin de la dll, ca ne sert &#224; rien
de garder des ressources, donc un Set b = Nothing permet de les lib&#233;rer.



Pour la compatibilit&#233; binaire, il te faut compiler au moins une fois ta
dll, et ensuite, appliquer une compatibilit&#233; binaire avec la dll
compil&#233;e.

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

aiko74 · Answer

Encore merchi je vais matter un peu quelques exemples voir comment ils geres les erreur et problemes. Euh et en vb.net ca serais le mem bordel ou ca va mieux a faire? :)

cs_DARKSIDIOUS · Answer

J'ai jamais programm&#233; en .NET (je suis encore un fervent d&#233;fenseur de
VB6 : le .NET est plus lent, plus lourd), mais je pense que ca serait
plus facile &#224; faire... et beaucoup plus lent &#224; &#233;x&#233;cuter... D'ailleurs,
je serais curieux de voir ce que donne une dll ActiveX en .NET avec la
machine virtuelle qui se lance avec, ca doit &#234;tre tr&#232;s lourd...

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

aiko74 · Answer

Ah ben merci je ne m'ettais pas vraiment document&#233; je croyais que c'etais une belle evolution avec certes des ptit modules deja tout presmais, je pensais que c'etait plus rapide que vb6.

aiko74 · Answer

Bouh encore un probleme lol
en plus de la form je voulais preciser d'autre truc
public function search(fro as form as object , mlist as object)
dim feuille as form
set feuille = fro
dim mlist as listview
set mlist = miaou

il semble pas vouloir de listview : type defini par l'utilisateur non defini

ai essayer une lisbox
public function getcat(fro as object, blah as object)
dim feuille as form
set feuille=fro
dim listy as listbox
set listy = blah
feuille.listy.additem("i_m_sexy")

l'objet ne gere pas cette propri&#233;t&#233; ou cette methode

cs_DARKSIDIOUS · Answer

Si tu d&#233;clare un type ListView dans ton ocx, il faut que ton ocx sache
ce qu'est un ListView, ce qui n'est apparement pas le cas. Pour
r&#233;soudre ce probl&#232;me, c'est simple : s&#233;lectionne le projet
correspondant &#224; ton ocx dans l'explorateur de projet de VB, puis clique
&#224; droite sur la barre d'outils, et s&#233;lectionne le menu "Composants".
Ensuite, dans la liste de composants disponibles, coche celui des
Microsoft Common Controls 6 pour que ton ocx reconnaisse les listviews.



Ensuite, pour le probl&#232;me que tu rencontre avec le listbox, c'est tout
&#224; fait normal : si tu sp&#233;cifie le contr&#244;le en param&#232;tre, tu n'as plus
besoin de le r&#233;f&#233;rencer avec le nom de la feuille : un simple
listy.AddItem("I_m_sexy") suffit &#224; la place d'un feuille.listy.AddItem !

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

aiko74 · Answer

A ben oui merci, pas besoin du dim bouh as listbox.
Toujours aussi rapide les reponse

On sait jamais mais.... aurais tu une id&#233;e pour ceci:
http://www.vbfrance.com/forum.v2.aspx?ID=421261 

Merchi bien une fois de plus

cs_DARKSIDIOUS · Answer

Non d&#233;sol&#233;, j'avais d&#233;j&#224; lu ton post, mais je ne vois pas d'o&#249; peut venir le probl&#232;me !

DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) : www.ProgOtoP.com/popapi/

Probleme dll,sniff suis perdue

20 réponses

Discussions similaires