[VB6] Creazione PlugIn per Applicazioni

[matpez]

Ma è qui che ti sbagli, sbagli il modo di pensare...

Una dll di quel genere è un ActiveX, e quindi va registrata e quindi già non pottresti basarti sul fatto di cercare le dll come se fossiano file, perchè nn si comportano come file.

Come già detto, il tuo programma già deve supportare tutti i tuoi plug-in, o almeno mettendola più facilemente, devi già prevedere quanti plug in vuoi fare, poi che li fai piano piano dopo che l'exe è già sul "mercato" è un altro conto. Ma quando fai un software c'è sempre un analisi, non si comincia mai scrivendo la prima riga e poi pensando alla cosa da fare dopo, ma bisogna sapere ed avere un percorso ben preciso per fare un bel lavoro, in meno tempo e soprattutto più ottimizzato.

Quindi tu devi giocare sul fatto che ti dia errore quando istanzi il tuo plug-in, li fai quello che vuoi, puoi nascondere il menu volendo, ma il tuo menu è già stato progettato con il codice per lanciare il tuo plug-in.

Tornando alla tua prima domanda, il nome della dll è un bel problema! Dentro a VB lui prende il nome dell'Applicazione che gli hai impostato alla tua dll, e quindi dentro a VB lo sai che si chiama come hai impostato tu, es: Plug_In ... e quindi li nn è un problema, il problema ma li nn ci puoi fare NULLA è che se un pirla ti rinomina, elimina o sposta una dll dalla tua cartella dove l'hai posizionata il tuo programma nn avrà più il plugin, ma se ci pensi bene, se cancelli una dll di sistema da system32, nn so poi se ti parte più il pc senza dare nessun problema.

[leadergl]

una domanda...programmi come ad esempio FireFox che permettono di estendere le loro funzionalità tramite plugin funzionano molto più dinamicamente o mi sbaglio?

non credo ci sia una limitazione sul numero di plugin caricabili o sul nome da dargli...io vorrei una cosa tipo quella ma che quando poi eseguo la plugin mi si apre una sorta di programma a parte, come hai fatto tu con la form....

è possibile arrivare ad una cosa del genere?

[matpez]

Bhe questo nn lo so, ma sicuramente FF nn è fatto in VB


PS: ma dove si caricano i plugin in firefox ?

[leadergl]

Originariamente inviato da matpez

Bhe questo nn lo so, ma sicuramente FF nn è fatto in VB

PS: ma dove si caricano i plugin in firefox ?

qui: https://pfs.mozilla.org/plugins/

[71104]

Originariamente inviato da leadergl

ecco quello che mi chiedo è...avendo tutti nomi uguali come faccio a distinguere le varie dll?

il fatto è che sti plugin li devi caricare a runtime con LoadLibrary e GetProcAddress, anche perché se non fai così il tuo programma non è realmente espandibile perché le dll che carica sono sempre le stesse; se invece le carichi con LoadLibrary hai la possibilità di fare un algoritmo che (ad esempio) carica tutte le dll che trova in una apposita directory per i tuoi plugin, così ogni volta che installi un nuovo plugin nella dir (cioè semplicemente ce lo copi) non appena avvii il programma ce l'hai dentro.

[leadergl]

Originariamente inviato da 71104

il fatto è che sti plugin li devi caricare a runtime con LoadLibrary e GetProcAddress, anche perché se non fai così il tuo programma non è realmente espandibile perché le dll che carica sono sempre le stesse; se invece le carichi con LoadLibrary hai la possibilità di fare un algoritmo che (ad esempio) carica tutte le dll che trova in una apposita directory per i tuoi plugin, così ogni volta che installi un nuovo plugin nella dir (cioè semplicemente ce lo copi) non appena avvii il programma ce l'hai dentro.

diciamo che un piccolo esempio non guaterebbe

Mi son letto cosa fa ognuna di queste due API:

LoadLibrary
The LoadLibrary function maps the specified executable module into the address space of the calling process.

VB4-32,5,6
Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long 



Parameter Information 

· lpLibFileName
Points to a null-terminated string that names the executable module (either a .DLL or .EXE file).

mentre l'altra:

GetProcAddress
The GetProcAddress function returns the address of the specified exported dynamic-link library (DLL) function.

VB4-32,5,6
Declare Function GetProcAddress Lib "kernel32" Alias "GetProcAddress" (ByVal hModule As Long, ByVal lpProcName As String) As Long 


Parameter Information 

· hModule
Identifies the DLL module that contains the function. The LoadLibrary or GetModuleHandle function returns this handle.

· lpProcName
Points to a null-terminated string containing the function name, or specifies the function’s ordinal value. If this parameter is an ordinal value, it must be in the low-order word; the high-order word must be zero. 

Return Values 
If the function succeeds, the return value is the address of the DLL’s exported function.

ora come faccio ad usare questo per poi eseguire la mia dll?

[71104]

con LoadLibrary carichi la dll nel tuo processo (ti viene restituito un HMODULE, corrispondente al suo base address); con GetProcAddress invece ottieni un puntatore ad una sua funzione: GetProcAddress prende in ingresso l'HMODULE che identifica la tua dll e il nome della funzione che vuoi caricare (se la dll è scritta in C++ occhio alla decorazione dei nomi). se ad es. stabilisci che i tuoi plugin devono esportare una funzione che si chiama "PluginEntry" (nome inventato), basta che dopo aver caricato la libreria con LoadLibrary chiami GetProcAddress passandogli l'HMODULE che hai ottenuto e "PluginEntry", e ottieni l'indirizzo della funzione PluginEntry pronta da chiamare.
per caricare numerosi plugin leggendoli da una directory basta che fai ad esempio un array di strutture dati ognuna delle quali contiene l'HMODULE del plugin caricato e l'indirizzo della PluginEntry; le dimensioni dell'array corrispondono semplicemente al numero di plugin validi contenuti nella apposita directory, quindi direi che l'array deve crescere dinamicamente a mano a mano che carichi sti plugin. l'esempio te lo posso fare solo in C, o al limite in Pascal: io di BASIC conosco solo il QBasic

[leadergl]

L'esempio in C mi sta bene...quello che non capisco è come fare ad esare il "puntatore" che mi viene restituito dalla procedura "GetProcAddress".

GetProcAddress ha in uscita un valore LONG...come lo uso? mi serve un altra funzione a cui passare questo valore e che mi esegue la funzione della mia DLL?

[leadergl]

AHHHH forse ho capito...allora...vediamo un po!

Prima, ad esempio in un modulo, dichiaro una procedura tipo le chiamate alle API di Windows in questo modo:

Private Declare Function AvviaPlugIN Lib "miaDll" Alias "AvviaPlugINA" (variabili) As Long

poi tramite le funzioni:

Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long

posso verificare se quella funzione (AvviaPlugIN) è realmente presente nella mia dll e se presente mi basterà fare:

AvviaPlugIN

ed automaticamente partirà il tutto.

Il problema potrebbe essere nel nome della DLL ma questo lo potrei ricavare dal nome fisico della mia DLL giusto?

Il secondo problema verrebbe che in questo modo avrei una sola DLL caricabile a meno che non creo una procedura dove metto la dichiarazione della funzione...(sempre se si può fare) tipo:

Public Sub AvviaDLL(nome_dll as string)
Dim esiste_funct as boolean

       Private Declare Function AvviaPlugIN Lib nome_dll Alias "AvviaPlugINA" (variabili) As Long

       Esiste_funct=...chiamo la procedura che verifica l'esistenza...
       if esiste_funct then AvviaPlugIN
End Sub

l'errore che posso ricevere da questa procedura è che dichiaro più volte la stessa funzione...ma credo sia risolvibile con un "On Error Resume Next"...oppure una volta avviata la funzione dovrei eliminare dalla memoria la sua dichiarazione....è possibile?

ditemi se mi sto avvicinando...

Questa la funzione per verificare l'esistenza di una funzione in una dll:

Private Function Esiste_funct(ByVal ModuleName As String, ByVal ProcName As String) As Boolean
Dim hModule As Long
Dim lpProc As Long
Dim FreeLib As Boolean
   
   'carichiamo il modulo
   hModule = LoadLibrary(ModuleName)
   FreeLib = True
   
   'se il modulo è caricato allora verifichiamo
   'se la procedura esiste
   If hModule Then
      lpProc = GetProcAddress(hModule, ProcName)
      Esiste_funct = (lpProc <> 0)
   End If
   
   'scarichiamo la libreria dalla memoria
   If FreeLib Then Call FreeLibrary(hModule)
End Function

[leadergl]

tra le altre cose posso anche dichiarare:

Private Declare Function AvviaPlugIN Lib "miaDll.dll" Alias "AvviaPlugINA" (variabili) As Long

quindi risolverei un problema...

rimarrebbe questo:

l'errore che posso ricevere da questa procedura è che dichiaro più volte la stessa funzione...ma credo sia risolvibile con un "On Error Resume Next"...oppure una volta avviata la funzione dovrei eliminare dalla memoria la sua dichiarazione....è possibile?

xkè nn sono troppo sicuro che si possa fare come ho detto nella parte evidenziata...

[leadergl]

ehi mi sto avvicinando?

[71104]

Originariamente inviato da leadergl

ehi mi sto avvicinando?

ehm, non lo so se ti stai avvicinando perché sei andato in 70mila direzioni diverse
cmq tornando alla GetProcAddress: non ti era chiaro come dovevi usare il risultato; be', fisicamente devi solo usarlo in una CALL, quel LONG contiene l'indirizzo della funzione che devi chiamare; memorizzalo in un puntatore a funzione con un cast e poi chiama la funzione tramite il puntatore. più chiaro di così...

[leadergl]

Originariamente inviato da 71104

ehm, non lo so se ti stai avvicinando perché sei andato in 70mila direzioni diverse
cmq tornando alla GetProcAddress: non ti era chiaro come dovevi usare il risultato; be', fisicamente devi solo usarlo in una CALL, quel LONG contiene l'indirizzo della funzione che devi chiamare; memorizzalo in un puntatore a funzione con un cast e poi chiama la funzione tramite il puntatore. più chiaro di così...

con codice pratico si farebbe come?

[leadergl]

la GetProcAddress mi restituisce sempre 0...xkè?
l'altra invece mi da un valore...