CallFunction und PB 4.50

[Angelo]

Hallo zusammen,

ich benutze eine Funktion aus einer DLL, wobei ich CallFunction() einsetze. Das hat unter PB 4.41 gut geklappt. Aber PB 4.50 steigt in der Zeile mit CallFunction() aus und ich bekomme die Error-Meldung "Ungültiger Speicherzugriff (Schreibfehler an der Adresse 2)". Außerdem erscheint, wenn ich mit dem Mauszeiger über CallFunction() gehe, ein Tag mit folgendem Text:
Debugger: Variable nicht gefunden: 'CallFunction'.
Woran kann das liegen, ist PB 4.50 weniger "tolerant" in bezug auf Variablendeklaration?

[Kiffi]

Hallo Angelo,

CallFunction() ist zwar noch Bestandteil des PB-Befehlsumfanges, sollte aber nach
Möglichkeit durch Prototype() ersetzt werden.

Debugger: Variable nicht gefunden: 'CallFunction'.

Seltsame Fehlermeldung. Kannst Du den Code mal posten?

Grüße ... Kiffi

[Angelo]

Hallo kiffi,

ich habe praktisch aus einem C-Programm abgeschrieben:

Code: Alles auswählen

[DLLImport("xcontrol.dll", EntryPoint="GetDeviceInfo")]
unsafe public static extern uint GetDeviceInfo(uint* SNum);
.
.
uint inf = 0;
uint res = GetDeviceInfo(&inf);

Und das habe ich daraus in PB 4.41 gemacht:

Code: Alles auswählen

OpenLibrary(0, "xcontrol.dll")
.
.
inf = 0
erg = CallFunction(0, "GetDeviceInfo", @inf) 

[Rings]

nix

[Angelo]

Nachdem der vorherige Beitrag in "nix" geändert wurde, macht meine ursprüngliche Antwort keinen Sinn mehr. Also ändere ich sie ebenfalls in "nix" ab.

[hörmi]

Also eine Prototypelösung könnte so ausschauen:
Leider kenn ich die Parameter und den Rückgabewert der Funktion nicht

Code: Alles auswählen

Prototype.l GetDeviceInfo(*inf.l)

If OpenLibrary(0, "xcontrol.dll")
  GetDeviceInfo.GetDeviceInfo = GetFunction(0, "GetDeviceInfo")
Else
  MessageRequester("Fehler","Programm wird beendet!")
  End
EndIf

inf=0
erg=GetDeviceInfo(@inf)

[ts-soft]

fast:

Code: Alles auswählen

Prototype.i GetDeviceInfo(*inf)
Define GetDeviceInfo.GetDeviceInfo
If OpenLibrary(0, "xcontrol.dll")
  GetDeviceInfo = GetFunction(0, "GetDeviceInfo")
Else
  MessageRequester("Fehler","Programm wird beendet!")
  End
EndIf

inf=0
erg=GetDeviceInfo(@inf)