Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

DLL nur über absolute Pfadangabe erreichbar

Frage Entwicklung VB for Applications

Mitglied: miniversum

miniversum (Level 3) - Jetzt verbinden

14.03.2008, aktualisiert 18.03.2008, 13918 Aufrufe, 7 Kommentare

Hallo
Ich programmiere grade ein Makro in VBA in Excel 2003.
Darin greife ich auf eine Hardware zu, die über eine DLL ansprechbar ist.
Mein Problem ist, dass ein Ansprechen der DLL Funktion über
Private Declare Function Funktionsname Lib "namederdll.DLL" (ByRef Version As Long) As Integer
nicht funktioniert. Hier bekomme ich immer die Fehlermeldung das er die Datei namederdll.DLL nicht finden kann. Benutze ich hingegen eine Absolute Pfadangabe funktioniert es:
Private Declare Function Funktionsname Lib "C:\Pfadzurdll\namederdll.DLL" (ByRef Version As Long) As Integer
Ich würde es aber lieber relativ lassen.
Ein versuch mit einem
Private Declare Function Funktionsname Lib ActiveWorkbook.Path & "namederdll.DLL" (ByRef Version As Long) As Integer
Schlug auch fehl. Hier bekomme ich die Fehlermeldung das nach dem Lib eine Zeichenfolge erwartet.

Mit andern dlls funktioniert es relativ, nur mit dieser nicht.

Registrieren kann ich die dll mit regsvr32 auch nicht. Hier bekomme ich nach der Eingabe von
regsvr32 namederdll.dll
immer die Meldung "namederdll.dll wurde geladen, aber der DllRegisterServer-Eingangspunkt wurde nicht gefunden. Diese Datei kann nicht registriert werden.

Gibt es also eine Möglichkeit um eine absolute Pfadangabe herumzukommen?

miniversum
Mitglied: misterdemeanor
14.03.2008 um 18:01 Uhr
Hallo miniversum,

wenn Du legiglich den Namen der dll angibst, sprich ohne Pfadangabe, wird an folgenden Orten nach der dll gesucht:

  1. Verzeichnis deiner XLS-File
  2. In dem Systemverzeichnis [Windowsverzeichnis]\System32
  3. Im [Windowsverzeichnis] (z.B. C:\Windows)
  4. An den in der PATH Umgebungsvariablen angegebenen Verzeichnissen.

Ansonsten kannst Du auch mittels der LoadLibrary Function Deine dll mit absoluter Pfadangabe selbst laden. Also "normal" deklarieren:

01.
Private Declare Function Funktionsname1 Lib "namederdll.DLL" (ByRef Version As Long) As Integer 
02.
Private Declare Function Funktionsname2 Lib "namederdll.DLL" (ByRef Version As Long) As Integer 
03.
 
04.
Private Declare Function LoadLibrary Lib "kernel32"  Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long 
05.
Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
und bevor Du das erste mal eine Funktion Deiner dll aufrufst die LoadLibrary Funktion aufrufen:
01.
Dim hndModule As Long 
02.
hndModule=LoadLibrary("C:\Pfadzurdll\namederdll.DLL")
Wenn Du dann keine dll-Aufrufe mehr tätigst, den aus der LoadLibrary Funktion zurückgebenden ModulHandle wieder freigeben:
01.
FreeLibrary(hndModule)
BG, Felix -misterdemeanor-
Bitte warten ..
Mitglied: miniversum
15.03.2008 um 08:55 Uhr
Danke für die Antwort.
Das mit dem .dll weglassen hat nicht funktioniert. Keine Ahnung warum.
Aber die zweite Möglichkeit mit dem LoadLibrary geht.

miniversum
Bitte warten ..
Mitglied: miniversum
15.03.2008 um 10:50 Uhr
Zu früh gefreut.
Mit der zweiten Dll (von gleichen hersteller) funktioniert beides nicht. Nichtmal mit absolutem pfad. Ich bekomme immer die fehlermeldung das die dll nicht gefunden werden kann. dabei liegt sie im richtigen Verzeichnis.
Woran könnte das liegen?
Bitte warten ..
Mitglied: misterdemeanor
17.03.2008 um 17:59 Uhr
Hallo miniversum,

Das mit dem .dll weglassen hat nicht funktioniert.

Solltest Du auch gar nicht versuchen...es wird zwar nach bestimmten Dateiendungen gesucht...war aber auch blöd von mir bei obigen Beispiel diese wegzulassen

Zu früh gefreut. Mit der zweiten Dll (von gleichen hersteller) funktioniert beides nicht.

Also bei Verwendung von LoadLibrary sollte dann zumindest ein Fehler geworfen werden! Wenn Du LoadLibrary(".dll") verwendest musst Du dies vor dem ersten aufrufen einer gewünschten Funktion machen. Da keine Fehlermeldung kam (bis auf "kann Datei nicht finden") die wahrscheinlich bei dem Aufruf einer Funktion aus gewünschter dll kommt. Verbessere mich wenn die Fehlermeldung beim Aufruf von LoadLibrary kommt.

Nichtmal mit absolutem pfad. Ich bekomme immer die fehlermeldung das die dll nicht
gefunden werden kann. dabei liegt sie im richtigen Verzeichnis.

Den Tipp mit LoadLibrary gab ich Dir nur damit Du einen relativen Pfad verwenden kannst. Bsp:

01.
Private Sub Workbook_Open() 
02.
  Dim sPathToDll2 As String 
03.
    sPathToDll2 = Application.ActiveWorkbook.Path & "\Ressources\namederdll2.DLL" 
04.
       'unbedingt aufrufen BEVOR Nutzung von "FunktionsnameAusDLL2" 
05.
    LoadLibrary(sPathToDll2) 
06.
End Sub
Woran könnte das liegen?

s.o.
Am besten Du kopierst Deine dll´s einfach nach [Windowsverzeichnis]\System32

BG, Felix -misterdemeanor-
Bitte warten ..
Mitglied: miniversum
17.03.2008 um 18:42 Uhr
Also:
Ich habe das LoadLibrary schon vorher benutzt. Funktioniert hatte es trotzdem nicht.

Diese meldung kommt eher vom Excel, bze vom Windows denke ich mal. Sie heist wirklich "Kann namederlibrary nicht finden".

Inzwischen hab ich es jetzt hinbekommen das es geht.
Nachdem ich die Hardware per USB angesteckt habe hat sich zusätzlich ein "USB-Verbundgerät" erkannt und mit Treibern installiert die vom Windows kommen. Danach ging es. Die Dll wird mit LoadLibrary gefunden und ich kann sie verwenden.

miniversum
Bitte warten ..
Mitglied: misterdemeanor
17.03.2008 um 21:57 Uhr
Hi miniversum,

Ich habe das LoadLibrary schon vorher benutzt.
Funktioniert hatte es trotzdem nicht.

...
Irgendetwas mit es wird ein USB Hardteil verwendet und nun kam was neues; Treiber wurden installiert

Die Dll wird mit LoadLibrary gefunden und ich kann sie verwenden.

Super________YIppIE!!!!!

Mein "Gedankengang" beim Lösungspost lässt sich vielleicht so ausdrücken: ?? 0

BG, Felix -misterdemeanor-
Bitte warten ..
Mitglied: miniversum
18.03.2008 um 09:22 Uhr
Der Ablauf war folgender:
Ich hatte die DLLs als Treiber von der Entsprechenden internetseite runtergeladen. Die Hardware würde ich erst später bekommen, aber ich ging davon aus das das einbinden der DLLs auch ohne die Hardware ginge. Und das war ebennicht so. Ich bekamm immer die Meldung das die Datei auf die ich bei der Deklaration der Funktionen verweise nicht gefunden werden könne.
Ich hatte also nun alle Möglichkeiten, auch mit loadlibrary und so, durch und es ging nicht. Inzwischen hab ich die Hardware bekommen, diese per USB mit dem PC verbunden und beim ersten einstecken wurde diese als ein "USB-Verbundgerät" erkannt. Windows hat daraufhin einen eigenen Treiber dafür installiert und seither kann ich die DLL ansprechen, ohne was am Programm geändert zu haben.

Mein Gedankengang nach dem Einstecken der Hardware war übrigens ein ähnlicher wie deiner
Bitte warten ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
DNS
gelöst Sophos UTM9 - FTP nur über IP erreichbar (4)

Frage von PronMaster zum Thema DNS ...

Netzwerke
gelöst Manche Websites nicht erreichbar (9)

Frage von cyber40014 zum Thema Netzwerke ...

Netzwerkgrundlagen
gelöst Heimnetzwerk über Server im Internet und OpenVPN erreichbar machen (16)

Frage von byt0xm zum Thema Netzwerkgrundlagen ...

Internet Domänen
Weiterleitung wenn Domain nicht erreichbar (8)

Frage von BAMA1971 zum Thema Internet Domänen ...

Heiß diskutierte Inhalte
Windows Server
DHCP Server switchen (22)

Frage von M.Marz zum Thema Windows Server ...

Hardware
gelöst Negative Erfahrungen LAN-Karten (19)

Frage von MegaGiga zum Thema Hardware ...

SAN, NAS, DAS
gelöst HP-Proliant Microserver Betriebssystem (14)

Frage von Yannosch zum Thema SAN, NAS, DAS ...

Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...