Ich habe eine Frage im bezug auf Prototype
In der Referez ist ein Beispiel zu Prototype in der Form:
Code: Alles auswählen
Prototype fr(x.a)
OpenLibrary(0, "D:\PureBasic\OlafNet\fr.dll")
dllFunction.fr = GetFunction(0, "test")
dllFunction(2)
CloseLibrary(0)
Da die Function mit <dllFunction()> aufgerufen wird,dachte ich dass das eine gute Möglichkeit wäre,
die Function wie eine normale Anweisung zu nutzen:
Code: Alles auswählen
Prototype de()
OpenLibrary(0, "D:\PureBasic\OlafNet\dtschlib.dll")
Deut.de = GetFunction(0, "Deutsch")
Prototype en()
OpenLibrary(1, "D:\PureBasic\OlafNet\englishlib.dll")
Engl.en = GetFunction(1, "English")
Prototype fr()
OpenLibrary(2, "D:\PureBasic\OlafNet\frenchlib.dll")
Fran.fr = GetFunction(2, "France")
Procedure prozde()
Deut()
Debug "de"
EndProcedure
Procedure prozen()
Engl()
Debug "en"
EndProcedure
Procedure prozfr()
Fran()
Debug"fr"
EndProcedure
OpenWindow(0,0,0,400,400,"dilltest",#PB_Window_SystemMenu)
ButtonGadget(1, 5, 5, 50,22, "Deutsch")
ButtonGadget(2, 60,5,50,22,"Englisch" )
ButtonGadget(3,115,5,50,22,"Franz.")
BindGadgetEvent(1, @prozde())
BindGadgetEvent(2, @prozen())
BindGadgetEvent(3, @prozfr())
Repeat
Event=WaitWindowEvent()
Until Event=#PB_Event_CloseWindow
CloseLibrary(0)
CloseLibrary(1)
CloseLibrary(2)
Wenn ich nun den Code ausführen möchte,habe ic sofort die Fehlermeldung:
Zeile 12 : Deut() ist keine Function,Array,Makro oder LinkedList.
Da das Ganze aber mit dem ersten Code oben läuft,stehe ich etwas dumm da.
Kann mir Jemand sagen,wo der Fehler ist?
Danke im vorraus