PureBoard

Vielen herzlichen Dank.
Ja, das würde funktionieren, aber irgendwie gefällt mir das mit Variant nicht wirklich.
Mal schauen.. wie ich das anstelle.

Hallo mk-soft,

hast du evtl. noch eine Idee / Lösung für mich?
Diesmal handelt es sich um die String-Übergabe von VB6/VBA nach PureBasic.

ProcedureDLL.l Test(*Value.integer)
Protected pbString.s = GetString(*Value)
...
EndProcedure

; Stringübergabe von VB6/VBA nach PureBasic
Procedure.s ...

Hallo mk-soft,

vielen herzlichen Dank!
Du hast mir sehr geholfen.

Stop!! Kommando zurück!
Es funktioniert doch; hatte aus Versehen "Dim Result As String" statt " ... As Variant" in VBA stehen.

Gibt es auch die Möglichkeit, dass die Zeichenkette als Funktionswert zurückgegeben wird?
Also bspw. so:

Danke für deine Hilfe, aber das funktioniert auch nicht.
Es wird zwar die korrekte Länge zurückgegeben, aber der Übergabeparameter bleibt leer (Leerstring).

Ok.. wir kommen der Sache schon näher.
Die Rückgabe eines Strings aus PB nach 64-Bit VBA funktioniert noch nicht so ganz korrekt.

Beispiel:
ProcedureDLL.i HoleString()
Protected Zeichenkette.s
Static r1

Zeichenkette = "Test-Zeichenkette"
r1 = SysAllocString_(Zeichenkette)
ProecureReturn r1 ...

@mk-soft
Ich verstehe deinen Code-Ausschnitt nicht zu recht.

Du musst die DLL mit dem 64-Bit Compiler von PB compilieren und dann die 64-Bit Version von Access/VBA starten.

Funktioniert ebenso wenig und wäre auch falsch, da die Stringübergabe von VB6/VBA an die PB-DLL dann auch nicht mehr korrekt funktioniert.

Nein, daran sollte es nicht liegen.
Hatte es auch schon mit #PB_Unicode probiert.
Gleiches Problem - Absturz.