Das deutsche QBasic- und FreeBASIC-Forum

[aschaffenburger]

Hallo alle zusammen!

Ich habe ein altbekanntes Problem. Also Oberfläche möchte ich Visual-Basic nutzen und die Rechenpower in einer FB-DLL unterbringen. Da ich ein Programm mit neuronalen Netzen schreibe ist der Geschwindigkeitsvortteil wohl nicht unerheblich
Irgendwie bringe ich es aber mit der Datenübergabe nicht auf die Reihe. Ich habe bestimmt schon über 12 Stunden damit verbracht und unzähliege Varianten ausprobiert. Entweder hängt sich Visual-Basic auf, es gibt dubiose Fehlermeldungen oder das Ergebiss ist einfach Sch....

In FB selbst jedoch läuft das neurnale Netzwerk fehlerfrei nur in der DLL nicht.

Hier ist auszugsweise mein Code ohne Variablendeklaration usw:
================================================================
Auf FB-Seite:

Function Prognose Alias "PROGNOSE" ( Eingabe1() As Double, ErgebnissArray1() _
As Double)as double Export
.
.
Prognose=1
End Function


Auf VB-Seite:

Public Declare Function Prognose Lib "NNeigen2dll.dll" Alias "PROGNOSE@8" _
(ByRef Eingabe() As Double, ErgebnissArray() As Double) As Double

EingabeArray(0) = 0.1
Eingabe(Array1) = 0.3
Prognose EingabeArray(), ErgebnissArray()
A= ErgebnissArray(0)

================================================================

Bei dieser Variante meines Codes bekomme ich die Fehlermeldung das ein Schreibbehl auf Stpeicherstelle xxxx fehlgeschlagen ist.

Kann mir irgendjemand helfen? Ich zweifele langsam an meinem Verstand!!
Bei Interesse veröffentliche ich gerne den kompletten Code mit einer Beschreibung dazu.

[ebrady]

Mal versucht, die DLL unter FreeBasic einzubinden und zu testen ob sie einwandfrei läuft? Sind die verwendeten Variablentypen EXAKT dieselben?
Vielleicht auch mal versuchen, CDECL als Übergabekonvention zu verwenden. (siehe Stichwort EXPORT in FBRef)

[croco97]

Ich würde auf alle Fälle mal im Argument der Funktionendeklaration "ByRef" vor die Arrays stellen. Das muss sichergestellt sein, sonst sind die Arrays im Hauptprogramm nicht initialisiert.

Zweitens klappt das ev. immer noch nicht, da die ()-Arrays FB/QB-spezifische Speicherobjekte sind. Aus FB heraus gibt's hier die Möglichkeit, die C-like-Arrays mittels allocate und [] zu benutzen. Wenn das VB auch kann, dann ist diese Austauschmethode aussichtsreicher. Wenn alles nichts hilft: Einfach das Array in einen zstring übertragen. Den können VB und FB mit Sicherheit austauschen.

Zum Thema Libs, zstrings etc. kannst du im Oma-Tutorial, Teil 3, was nachlesen.

Viele Grüsse!

Croco

[terminate]

[Mao]

Zumindest bei Delphi so, dass man ANSI-Strings und Array's (bzw. Datenstrukturen) nur mit einer speziellen Sharing-DLL mit anderen Programmen teilen kann. Heißt, zusätzlich zu deiner eigenen DLL brauchst du bei Delphi auch noch die Borland Memory Managing-DLL. Evtl. hat FB einen ähnlichen Ansatz?
_________________
Eine handvoll Glück reicht nie für zwei.
--

[aschaffenburger]

Hallo,

vielen herzlichen dank für die prompte Hilfe
Alle Tips habe ich auch schon getestet - leider ohne Erfolg. Ich programmiere in VB6.
Nun bin ich soweit das ich wenigstens den Rückgabewert einer Funktion in der DLL bekomme. Es klappt aber einfach noch nicht ein komplettes Array an VB zurück zu geben
Als datentyp verwende ich hier auschließlich Double da er in beiden Sprachen klar mit der gleichen Größe und Wertebereich definiert ist. Hat da jemand noch eine Idee?
Ich werde auf jeden Fall weiter experimentieren und euch auf dem laufenden halten.

Beste Grüße
aschaffenburger

[croco97]

Wie ich schon oben geschrieben habe: Double allein sagt bei Arrays noch gar nichts. Also:

- ByRef ausprobiert?

- C-Arrays ausprobiert?

- Array in Zstring packen ausprobiert?

Letzteres klappt garantiert.

Viele Grüsse!

Croco

[terminate]

Ich hab hier mal ein paar Beispiele zusammengestellt, funktioniert so, lässt sich aber sicher auch noch anders realisieren:

(Weiterführende Informationen:
http://www.microsoft.com/germany/msdn/library/windows/api/UndokumentierteVariablenzeiger.mspx?mfr=true
http://www.freebasic.net/forum/viewtopic.php?p=21823#21823
http://www.microsoft.com/germany/msdn/library/visualtools/vb6/AuslesenEinesStringsAusEinerCStrukturInVB.mspx?mfr=true)


In FreeBASIC:
mydll.bas

[Michael712]

Ähm, die Alias namen kommen mir komisch vor.
Soweit ich weiß, gibt das "@" an, an welcher Stelle in der dll die Funktion steht.
Normalerweise macht man das unter windows anders, man erstellt eine dll.def datei, in der das alles steht. Da gibts auch irgendwo ein Prog zu, welches bei FreeBASIC dabei ist. Dann musst du bei den Alias namen einfach das @x weglassen.
_________________

[terminate]

[aschaffenburger]

Hallo terminate,

vielen herzlichen Dank und ein superdickes Lob für das ABSOLUT ausführliche Beispiel
Die Sache mit dem Pointer war der springende Punkt (hatte es zwar auch probiert aber wohl etwas falsch gemacht )
Jetzt klappt alles bestens und die Rechenpower gegenüber VB ist um mindestens das 10-fache gestiegen
Ich wünsche Dir und allen anderen noch einen schönen Abend

Beste Grüße
aschaffenburger

PS: das obrige Angebot steht natürlich noch. Ich beschäftige mich seit einiger Zeit mit neuronalen netzwerken und deren Möglichkeiten. Bei Interesse veröffentliche ich gerne meinen Code mit einer kleinen Beschreibung zur Anwendung

[ebrady]

Hi,

ich würde es mir auf jeden Fall mal angucken. Habe ein Projekt, bei dem sowas eine Überlegung wert wäre mit einzubauen, wenn dann aber wahrscheinlich erst in einer späteren Version.

Grüsse

[Mao]

Hallöschen!
Is' immer toll, wenn man sieht, was andere Programmierer so in ihrer Freizeit machen -> ab in das Projektvorstellungsforum damit.
_________________
Eine handvoll Glück reicht nie für zwei.
--