Dynamischer Zugriff auf eine dll

hallo,

ein kompletter guidline für die erstellung und einbindung von dlls

http://bcb-tutorial.c-plusplus.net/DLL_Tutorial/artikel1.html

in cpp

mfg
murph

roN

[Fullquote gelöscht]

Danke Murphy, aber das hilft mir bei meinem Problem nicht wirklich weiter...

Edit:
Zitate bitte auf das Notwendigste beschränken. Danke!

roN

HINSTANCE hInstance;
hInstance = ::LoadLibrary("prof_dp.dll");
pDPInit = (DLLFUNCTION*)::GetProcAddress(hInstance, "DPInit()"); //BREAKPOINT
}

Wenn ich bei pDPInit = (DLLFUNCTION*)::GetProcAddress(hInstance, "DPInit()"); einen Breakpoint setze, hat pDPInit in diesem moment einen Wert, wenn ich dann aber eins weiter steppe heisst es bereits wieder:"NULL" warum das, die Var wird ja nicht verändert...
Und in der Variable hInstance steht nach hInstance = ::LoadLibrary("prof_dp.dll"); 10000000 drin, was ein sehr komischer Wert für eine Adresse ist. und ähm die dll liegt SICHER im selben Verzeichniss und ist SICHER richtig geschrieben und ich hab' die Datei auch noch ins c:\WINNT\System32 hinein kopiert, nützt auch nichts, selbes Ergebniss... Wo muss die Datei noch liegen

MFK

Liest du eigentlich die Antworten? Die Klammern müssen aus dem String raus.

Braunstein

Hallo,

Das wird wohl daran liegen, dass deine Funktion NULL zurück liefert weil ein Fehler aufgetreten ist. Werte doch mal den Fehler mit GetLastError aus.
Bloss so als Frage. Müsste der Funkionsname nicht so angegeben werden: "_DPInit" ?

Ciao

roN

Ah, okay, doch hab' ich gelesen aber habs nicht so ganz verstanden, okay, jetzt hab' ich die Klammern weg und es gibt immernoch 'ne Exception...

roN

__fastcall TProfibus::TProfibus()
{
	/*ConsoleOutput = GetStdHandle(STD_OUTPUT_HANDLE);
	if (!GetConsoleScreenBufferInfo(ConsoleOutput, &ConsoleInfo))
	{

	}*/
HINSTANCE hInstance;
hInstance = ::LoadLibrary("prof_dp.dll");
pDPInit = (DLLFUNCTION*)::GetProcAddress(hInstance, "_DPInit");
long x = GetLastError();
}
//---------------------------------------------------------------------------
__fastcall TProfibus::~TProfibus(void)
{
FreeLibrary(pDPInit);                 // allozierter Speicher für dll wieder freigeben
}
//---------------------------------------------------------------------------
void __fastcall TProfibus::Init(int SlaveID_int, unsigned int uPort)
{                                     // einstellen des COM-Ports und der Busgeschwinigkeit
char *pIni="COM1,SA1,01,00,60,09,C0,12,33,00,7D,7E,01,01,00,10,08,31,00,C8,00,90,01,00,02,6B,00,0B,00",
     *pDll= "fdlrs";
int Test_var;	                      // result configuration
if (pDPInit)                          // testen ob die Var noch gültig ist
 {
 if (pDPInit(pDll, pIni)==DP_NO_ERROR)// Initialisierung des Profiadapters
 ShowMessage("Juhuuuuuuuuuuuuuuuiiiiiiiiiiiiiii!!!!!!!!!!!!!");
 }
}
//---------------------------------------------------------------------------

Okay, jetzt hab' ichs so.
Und in x steht 127, d.h. "The specified procedure could not be found."
Auf was bezieht sich das genau?

Braunstein

Hallo,

Das heisst nur, dass die angegebene Funktion nicht gefunden wurde. Versuchs doch mal ohne "_".
Ich hab mir die dll mal kurz besorgt und die Definitionen extrahiert. Das sieht dann so aus:

LIBRARY PROF_DP.DLL

EXPORTS
DPChangeAddress @7 ; DPChangeAddress
DPCloseSlave @10 ; DPCloseSlave
DPDoCycleComm @14 ; DPDoCycleComm
DPDoSingleComm @13 ; DPDoSingleComm
DPEnableCommThread @15 ; DPEnableCommThread
DPExit @3 ; DPExit
DPGetAsyncResult @17 ; DPGetAsyncResult
DPGetCfg @8 ; DPGetCfg
DPIdentifySlave @6 ; DPIdentifySlave
DPInit @2 ; DPInit
DPOpenSlave @9 ; DPOpenSlave
DPReadSlaveData @11 ; DPReadSlaveData
DPSetDispatchMessage @4 ; DPSetDispatchMessage
DPSetUserMsg @16 ; DPSetUserMsg
DPSethWnd @5 ; DPSethWnd
DPWriteSlaveData @12 ; DPWriteSlaveData

roN

Okay, ohne "_" hab ich 0 in der Variable x, d.h. "The Operation completed successfully", ist schon mal gut aber hInstance hat immernoch einen Wert von 10000000 und die Exception kommt unten bei der if abfrage immernoch...

Braunstein

Das mit hinstance kann schon stimmen.
Mir scheint, dass vielleicht dein Cast auf DLLFUNCTION* daneben gegangen ist. Vielleicht ist deine Funktion nicht von diesem Typ.

Alexander Kempf

roN schrieb:

die Exception kommt unten bei der if abfrage immernoch...

Bei welcher der if-Abfragen?
Und, auch auf die Gefahr hin, daß ich mich (und andere) wiederhole:
Wie ist die Deklaration von pDPInit? (Oder ist das streng geheim?)

Gruß,

Alexander

roN

Bei folgender if abfrage:

if (pDPInit)
{
//code
}

Alexander Kempf schrieb:

Wie ist die Deklaration von pDPInit? (Oder ist das streng geheim?)

Nein, natürlich nicht, sorry... das header-file sieht so aus:

//---------------------------------------------------------------------------
#ifndef TProfibusH
#define TProfibusH

//---------------------------------------------------------------------------
class TProfibus
{
public:
       __fastcall TProfibus(void);
       __fastcall ~TProfibus(void);
       void __fastcall Init(int SlaveID_int, unsigned int uPort);
private:
       typedef int (TDPResult)(char*, char*);
       TDPResult   *pDPInit;
       TDPResult   *pOpenSlave;
protected:
};
//---------------------------------------------------------------------------
#endif

Ich hab den cast in der Funktion übrigens angepasst auf: pDPInit = (TDPResult*)::GetProcAddress(hInstance, "DPInit");

Alexander Kempf

Ich habe so eine Typdefinition auch mal verwendet (auch für eine dll),
aber die sah bei mir in etwa so aus (auf Dein Problem angewandt):

typedef int (__declspec(dllimport) TDPResult)(char*, char*);

Ich bin mir aber nicht sicher, ob's daran liegt, aber einen Versuch
ist es wert.

Gruß,

Alexander

hallo,

ron, das theater hättest du dir sparen können, steht nämlich alles im tutorial genaus beschrieben, das mit dem unterstrich, und das man die klammern weglässt, das näxte mal lieber gucken bevor du überheblich sagst, "das kann ich für mein problem nicht brauchen..."
sonst vergeht mir die lust dir ein näxtes mal bei einem potentiellen weiteren problem noch mal helfen zu wollen, und die antworten solltest du auch genau durchlesen, das mit den klammern und dem unterstrich kam schon da hast du immer noch mit diesem komischen Ding "DbInit()" rumgemacht...

mfg
murphy

roN

murphy schrieb:

hallo,

ron, das theater hättest du dir sparen können, steht nämlich alles im tutorial genaus beschrieben, das mit dem unterstrich, und das man die klammern weglässt, das näxte mal lieber gucken bevor du überheblich sagst, "das kann ich für mein problem nicht brauchen..."
sonst vergeht mir die lust dir ein näxtes mal bei einem potentiellen weiteren problem noch mal helfen zu wollen, und die antworten solltest du auch genau durchlesen, das mit den klammern und dem unterstrich kam schon da hast du immer noch mit diesem komischen Ding "DbInit()" rumgemacht...

mfg
murphy

Ja, im Nachhinein weiss ich, ich hab' einige Fehler begangen. Ich möchte mich für diese bei allen Betroffenen Entschuldigen und versuch natürlich mich aufjedenfall zu bessern!

hab' die Definition jetzt auf

typedef int (__declspec(dllimport) TDPResult)(char*, char*);

abgeändert, bringt aber keine Änderung... Exception immernoch genau gleich...

Alexander Kempf

Bist Du Dir eigentlich sicher, daß die Signatur

typedef int (__declspec(dllimport) TDPResult)(char*, char*);

korrekt ist? Hast Du für die Dll eine Header-Datei oder sonst irgendeine
Beschreibung?

Gruß,

Alexander

Alexander Kempf

[edit]Doppelpost Wie kann man einen Beitrag eigentlich wieder löschen?[/edit]

roN

Alexander Kempf schrieb:

Bist Du Dir eigentlich sicher, daß die Signatur
typedef int (__declspec(dllimport) TDPResult)(char*, char*);
korrekt ist? Hast Du für die Dll eine Header-Datei oder sonst irgendeine
Beschreibung?

Gruß,

Alexander

ja einen header hab' ich und dort ist die Funktion so deklariert:

EXPO1 DP_RESULT EXPO2 DPInit(LPSTR pDllName, LPSTR pInitSting);

aber was LPSTR ist, hab' ich nirgends gefunden... und ich hab ein Delphi-Beispielk das funktioniert und dort werden PChar-Variablen gesendet und dann dachte ich, char* sei schon das richtige...
Delaration in Delphi:

function DPInit(pDllName, pInitSting : pchar) : TDPResult; stdcall;
 external 'PROF_DP.DLL';

Braunstein

Hallo,

Aus der MSDN:

LPSTR A 32-bit pointer to a character string

roN

Braunstein schrieb:

Hallo,

Aus der MSDN:

LPSTR A 32-bit pointer to a character string

Oh, Vielen Dank, wusste ich nicht, die Borlandhilfe sagt nichts über LPSTR.
Jetzt hab' ich alles (Deklarationen) auf LPSTR umgebogen, die Exception kommt aber immernoch