Codebase

[BetMaster]

Hi,

ich bekomme bei folgendem Programmcode immer ne Fehlermeldung. Ich vermute es liegt an dem Aufruf von CallFunction(). Vielleicht weiß jemand rat.

Code: Alles auswählen

if openlibrary(255, "c:\c4mdx.dll")
   Debug CountLibraryFunctions(255) ; ergibt nen Wert um 800 rum
   ExmineLibraryFunctions(255)
   x=#TRUE
   While x=#TRUE
      nextfunc=NextLibraryFunction()
      funcname$=LibraryFunctionName()
      Debug funcname$
      if NectFunc=0
         x=#FALSE
      endif
   wend
; BIS HIERHIN LÄUFT ALLES WUNDERBAR

cb=Callfunction(255, "code4initVB", @cb)
Bedug cb ; gibt auch nen Wert >0

db=CallFunction(255, "d4open", cb, "c:\testdb.dbf", @db)
is=IsFunction(255, "code4initUndo"); GIBT AUCH NEN WERT >0

; Hier kommt der Fehler  (vermutlich Codebase):
result=CallFunction(255, "code4initUndo", cb)
debug result ; GIBT DEN WERT 0 ZURÜCK

Ich hoffe jemand kennt sich mit Codebase unter Purebasic aus. Danke

[Deeem2031]

Try CallCFuntion()

[BetMaster]

CallCFunction() macht keinen Unterschied.

[nicolaus]

hast du es mal mit einem "@" vor dem cb versucht?
also so:

Code: Alles auswählen

result=CallFunction(255, "code4initUndo", @cb)

[wichtel]

oder mal "c:\testdb.dbf" vorher in eine Variable packen.

Hatte ich auch schonmal, dass eine Funktion nur variablen geschluckt hat.
(es gab/gibt ja auch ein paar PB Kommandos die da unterschiedlich reagieren)