vielen Dank für Deine Ausführung, genau das, was Du in Deinem Post mitteilst versuche ich schon die ganze Zeit klarzustellen. Das Einzige was ich nicht verstehe ist, dass es bei Dir auch nicht unter einem x86 Compilat im 64Bit OS läuft. Siehe weiter oben in der Darstellung meiner Tests;-)
Wie angekündigt habe ich jetzt die wpcap.lib eingebunden und getestet.
Hier stellt sich das gleiche Ergebenis, wie in der oben erwähnten Testreihe dar.
Absolut nur unter der Bedingung OS-64-Bit/PB-x64 bekomme ich einen POLINK-Error zur LIB.
Bei allen anderen Varianten kann ich auf die LIB zugreifen und sehe die Daten der Interfaces..
Nachfolgend der PB-Code
Code: Alles auswählen
IncludePath "z:\pfad\Include"
XIncludeFile "pcap.pb"
Procedure getAllAdapters( List adpt.myAdapters() )
errorBuffer.s = Space(256)
*pcap_if_t_ptr.pcap_if_t
If pcap_findalldevs(@*pcap_if_t_ptr, @errorBuffer) = -1
MessageBox_(0, errorBuffer, "Error finding adapters...", #MB_OK|#MB_ICONERROR)
ProcedureReturn 0
EndIf
ClearList(adpt())
ResetList(adpt())
Repeat
AddElement(adpt())
adpt()\deviceName = PeekS(*pcap_if_t_ptr\szDevName)
adpt()\deviceDescription = PeekS(*pcap_if_t_ptr\szDescription)
adpt()\addresses = PeekL(*pcap_if_t_ptr\addressesptr)
*pcap_if_t_ptr.pcap_if_t = *pcap_if_t_ptr\nextStruct
Until *pcap_if_t_ptr = 0
ProcedureReturn ListSize(adpt())
EndProcedure
NewList NICAdapters.myAdapters()
numAdapters = getAllAdapters(NICAdapters())
If numAdapters > 0
ResetList(NICAdapters())
While NextElement(NICAdapters())
Debug NICAdapters()\deviceName
Debug NICAdapters()\deviceDescription
Debug Hex(NICAdapters()\addresses)
Debug "======================"
;AddGadgetItem(myDevSelect, -1, NICAdapters()\deviceDescription)
Wend
EndIf
Bitte den Pfad für die Includes beachten.
Nachfolgend die LIB und die entsprechenden PB-Includes sowie einige Beispiele Deeem2031.
Er hat in der Vergangenheit die original LIB ins PB eingebunden.
http://www.deeem2031.de/PB/PB-WinPcap.zip
Gruß
deichi1