-> Hier kostenlos registrieren
Hallo!
Ich habe gerade angefangen mich mit Libnodave auseinander zu setzen.
Die Dateien habe ich aus dem Internet heruntergeladen und installiert.
* Aus dem DOS-Fenster lassen sich die Anwendungen problemlos starten.
* das Excel VBA Beispiel klappt.
* Ich habe das Modul12 in ein VB6 Programm eingebunden. Auch hier klappt der Zugriff auf die SPS mit dem IBH NetlINK über ein GUI.
Jetzt möchte ich eigentlich meine Standard-Programmierumgebung nutzen, den Borland Builder Version 5.0.
Hat jemand ein BeispielProjekt, wie die Funktionen korrekt definiert werden müssen?
Die DLL habe ich wie folgt eingebunden:
//---------------------------------------------------------------------------
#define THEDLL "Libnodave.dll"
HINSTANCE hDLL;
loaddll(char *name)
{
char s[256];
hDLL=LoadLibrary(name);
if (hDLL == NULL)
{
wsprintf(s,"%s nicht gefunden!",name);
MessageBox(GetFocus(),s,"Error",MB_OK|MB_ICONSTOP);
return 0;
}
return 0;
}
Wird ohne Fehler kompiliert!
Beispiel für einen Funktionsaufruf in Borland: Ist das Richtig??
daveInternalStrerror(long en)
{typedef long (CALLBACK* LP2INT) (long ); LP2INT p;
p = (LP2INT) GetProcAddress(hDLL,"daveInternalStrerror"); return p(en);
}
so sieht es korrekt in VB aus:
private Function daveInternalStrerror Lib "libnodave.dll" Alias "daveStrerror" (ByVal en As Long) As Long
Mit freundlichem Gruß
V.Jähn
Ich habe gerade angefangen mich mit Libnodave auseinander zu setzen.
Die Dateien habe ich aus dem Internet heruntergeladen und installiert.
* Aus dem DOS-Fenster lassen sich die Anwendungen problemlos starten.
* das Excel VBA Beispiel klappt.
* Ich habe das Modul12 in ein VB6 Programm eingebunden. Auch hier klappt der Zugriff auf die SPS mit dem IBH NetlINK über ein GUI.
Jetzt möchte ich eigentlich meine Standard-Programmierumgebung nutzen, den Borland Builder Version 5.0.
Hat jemand ein BeispielProjekt, wie die Funktionen korrekt definiert werden müssen?
Die DLL habe ich wie folgt eingebunden:
//---------------------------------------------------------------------------
#define THEDLL "Libnodave.dll"
HINSTANCE hDLL;
loaddll(char *name)
{
char s[256];
hDLL=LoadLibrary(name);
if (hDLL == NULL)
{
wsprintf(s,"%s nicht gefunden!",name);
MessageBox(GetFocus(),s,"Error",MB_OK|MB_ICONSTOP);
return 0;
}
return 0;
}
Wird ohne Fehler kompiliert!
Beispiel für einen Funktionsaufruf in Borland: Ist das Richtig??
daveInternalStrerror(long en)
{typedef long (CALLBACK* LP2INT) (long ); LP2INT p;
p = (LP2INT) GetProcAddress(hDLL,"daveInternalStrerror"); return p(en);
}
so sieht es korrekt in VB aus:
private Function daveInternalStrerror Lib "libnodave.dll" Alias "daveStrerror" (ByVal en As Long) As Long
Mit freundlichem Gruß
V.Jähn