Code-Beispiel

Hauptprogrammfunktionen in Bibliothek aufrufen

Lizenz:	Erster Autor:	Letzte Bearbeitung:
k. A.	PMedia	03.11.2007

Dieses Beispiel realisiert eine Callbackmöglichkeit.
Die DLL ruft hierbei eine Funktion aus dem Hauptprogramm auf.

main.bas:

type external

    testnode as sub

end type



sub testnode()

    print "CALLBACK RUNS!!!!"

end sub



dim extfuncs as external



dim mylib as any ptr

dim init as sub cdecl (as external ptr)



Print "Loading testlib.dll  ";

mylib = dylibload("testlib.dll")

Print "[ok]"

Print "Loading Symbol 'init' from testlib.dll  ";

init = dylibsymbol(mylib, "init")

print "[ok]"

print "calling symbol 'init' from testlib.dll  ";

extfuncs.testnode = @testnode

init(@extfuncs)

print "[ok]"

print "freeing library  ";

dylibfree(mylib)

print "[ok]"



Sleep



End

testlib.bas: (mit option -dylib kompilieren)

type external

    testnode as sub

end type



sub init cdecl alias "init" (extfuncs as external ptr) export



    extfuncs->testnode()



end sub

Zusätzliche Informationen und Funktionen

Das Code-Beispiel wurde am 03.11.2007 von PMedia angelegt.
Die aktuellste Version wurde am 03.11.2007 von PMedia gespeichert.

Bearbeiten

Versionen

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.