Libnodave / daveGetProgramBlock

Zuviel Werbung?
-> Hier kostenlos registrieren
Wie muss denn diese Funktion aufgebaut sein?

Laut Vorlage für ExcelVBA soll es wie folgt aussehen:
Code:
[COLOR=#0000FF]Private[/COLOR] [COLOR=#0000FF]Declare[/COLOR] [COLOR=#0000FF]Function[/COLOR] daveGetProgramBlock [COLOR=#0000FF]Lib[/COLOR] [COLOR=#800000]"libnodave.dll"[/COLOR] ([COLOR=#0000FF]ByVal[/COLOR] dc [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]Long[/COLOR], [COLOR=#0000FF]ByVal[/COLOR] blockType [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]Long[/COLOR], [COLOR=#0000FF]ByVal[/COLOR] number [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]Long[/COLOR], [COLOR=#0000FF]ByRef[/COLOR] buffer [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]Byte[/COLOR], [COLOR=#0000FF]ByRef[/COLOR] length [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]Long[/COLOR]) [COLOR=#0000FF]As[/COLOR] [COLOR=#0000FF]Long[/COLOR]

Die DB Länge lese ich vorher schon mit "internalDaveGetBlockInfo" aus, was soweit auch funktioniert (zumindest nach Änderungen in der Deklaration).

Beim Aufruf von "daveGetProgramBlock" schmiert mir dann aber Excel komplett ab.
Mein Aufruf dieser Funktion sieht aktuell wie folgt aus:

Code:
Dim Buffer_1() As Byte
ReDim Preserve Buffer_1(DBSizeIntern)


res2 = daveGetProgramBlock(PublicVar.dc, daveBlockType_DB, CLng(dbnum), Buffer_1(DBSizeIntern), CLng(DBSizeIntern))

Ich vermute mal es könnte etwas mit dem Buffer zu tun haben?!
 
Zurück
Oben