• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: použití dll knihoven

Zaslal/a Richard99 4.9.2015 14:21

Dobrý den používám vlastní DLL knihovny. Následujíc´ím způsobem

Declare Function Rdol Lib "A:\Smeny_files\Jupiter\DLL\Jupiter.dll" Alias "Rdol@4" (ByVal NR As Integer) As Double

Declare Function ZateR Lib "A:\Smeny_files\Jupiter\DLL\Jupiter.dll" Alias "ZateR@4" (ByVal NR As Integer) As Double


potřeboval bych mít možnost zadat soubor *.DLL jako string proměnnou.

Zaslat odpověď >

---

eLCHa(4.9.2015 17:25)#026670

Hmmm - to je pěkná divočárna ;))
Nebudu tvrdit, že to vím, protože tuhle myšlenku jsem nikdy neměl a proto jsem to nikdy nezkoušel (a nikdy ani nebudu).

Ale teoreticky
Prostě nadeklarujte všechny a pak v kódu použijte tu co potřebujete.If něco Then Rdol(x) Else ZateR(x)citovat

Vovka(4.9.2015 19:04)#026674

Nevím, jestli je možné deklaraci API vložit do podmínky If ... Else ... End If
Na stejné úrovni "nevím" je otázka, jestli knihovna a Alias mohou být volány textem z proměnné Kdyby to šlo, bylo by to docela elegantní.
Když o tom přemýšlím, tak bych řekl, že nebude fungovat ani jedno, ani druhé. Jdu si to vyzkoušet citovat

Vovka(4.9.2015 19:21)#026675

Jestli jsem si to nemyslel:
- deklarační příkaz nemůže být součástí procedury, a proto ho nelze podřídit příkazu If
- volání jména funkce ani Alias nemůže pocházet z proměnné ani z konstanty. Pokus o to vede na kompilační chybu "Expecting string constant"
Jediné, co fungovat podle mého soudu může (a bude), je deklarovat obě API, ale z algoritmu volat jenom tu, která odpovídá konkrétním podmínkám úlohy.citovat

Richard99(7.9.2015 8:03)#026708

Asi jsem špatně formuloval otázku.
chtěl jsem nahradit tento kód

Declare Function Rdol Lib "A:\Smeny_files\Jupiter\DLL\Jupiter.dll" Alias "Rdol@4" (ByVal NR As Integer) As Double

Declare Function ZateR Lib "A:\Smeny_files\Jupiter\DLL\Jupiter.dll" Alias "ZateR

něčím takovýmto, což nefunguje


dim knihovna as string

knihovna="A:\Smeny_files\Jupiter\DLL\Jupiter.dll"

Declare Function Rdol Lib knihovna Alias "Rdol@4" (ByVal NR As Integer) As Double

Declare Function ZateR Lib knihovna Alias "ZateRcitovat

Vovka(7.9.2015 8:35)#026710

Otázku jste formuloval srozumitelně, jen já jsem nesrozumitelně odpověděl. Vaše přání "Lib knihovna" je přesně to, co odpovídá mému "volání jména funkce ani Alias nemůže pocházet z proměnné ani z konstanty". Jinými slovy: podle mých testů "tudy cesta nevede" .citovat

Richard99(7.9.2015 9:06)#026713

Děkujicitovat

eLCHa(7.9.2015 9:14)#026716

Je to věc, kterou zkoušet nebudu, protože nemám jak. Ale můžete zkusit něco takovéhoDeclare Function Rdol1 Lib "Cesta1\Jupiter.dll" Alias "Rdol@4" (ByVal NR As Integer) As Double
Declare Function Rdol2 Lib "Cesta2\Jupiter.dll" Alias "Rdol@4" (ByVal NR As Integer) As DoublePokud kompilátor sežere deklaraci na neexistující soubor, tak by pak mohlo fungovat něco jakoIf Len(Dir("cesta1")) > 0 Then
Rdol1
Else
Rdol2
End If
Ale asi by bylo lepší, kdybyste popsal, co chcete udělat. Protože je možné, že to vše lze udělat úplně jinak.citovat

Richard99(7.9.2015 9:37)#026717

Používám vlastní DLL knihovnu ve které mám napsané uživatelské funkce, které používám v sešitu. Knihovna je napsána ve freebasicu. Je možnost registrovat DLL knihovnu do systému. Jednak nemám administrátorská práva, jednak bych musel knihovnu registrovat na každém počítači, kde jichci použít. Chtěl bych v případě změny umístění knihovny provést změnu v kódu na jednom místě.citovat

lubo(7.9.2015 10:27)#026719

Jen netestované nápady.

Zkusil jste deklarovat bez uvedení cesty?
Předpokládal bych, že pokud bude knihovna na vhodném místě (např. ve stejném adresáři jako soubor), tak by mohla být nalezena.

Pokud to selže, je tu vždy možnost použít win api:

LoadLibrary
FreeLibrary
GetProcAddress
CallWindowProc

A dopsat rozhraní.citovat

eLCHa(7.9.2015 10:45)#026722

@lubo
Teď opravdu jen střílím, ale tipoval bych, že pokud to projde bez cesty, tak to bude hledat buď ve složce aplikace nebo v systémové (např. System32)

@Richard99
Máte to ve FreeBasic, takže Basic - není jednodušší doplněk? Klidně ve VBA?
Nebo nějaký objekt volaný pomocí CreateObject?citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse