Visual Basic DLL in Delphi einbinden

[dtrace]

Hallo zusammen,
ich habe ein großes Problem und zwar möchte ich eine erstelle DLL die in Visual Basic 6 geschrieben worden ist (kein ActiveX DLL) in delphi nutzen.

Ich habe die Funktionen so implementiert:

...

function rechne(n: Integer): Integer; stdcall; external 'test.dll';

...

sobald ich aber auf diese Funktion zugreife bekomme ich folgenden Fehler:
Access Violation at adress 7363C26F in module "MSVBVM60.DLL' Write of address 000009c

hmmm...was kann ich tun?

[sirius]

Muss es nicht so sein
function rechne(n: Integer): Integer; stdcall; external 'test.dll' name 'rechne';

[dtrace]

hmm...funktioniert leider auch nicht, ich bekomme die selber Fehlermeldung

[sirius]

Die Imports sind Case-Sensitive! Hast du darauf geachtet?
Ist die Aufrufkonvention "stdcall" richtig?

Ansonsten probiers erstmal dynamisch mit der Einbindung:

Delphi-Quellcode:

var lib:hmodule;
    rechne:function(n:Integer):integer; stdcall;
begin
  lib:=loadlibrary('test.dll');
  rechne:=getprocaddress(lib,'rechne');
  ...  
  freelibrary(lib);
end;

Und gehe mal mit dem Debugger durch.

[AliDi]

Hallo Dennis,

seit wann kann man in VB6 andere DLL's als ActiveX Dll's erstellen?

Soweit ich weiß geht das doch garnicht?


Gruß
AliDi

[Elvis]

Zitat von AliDi:

seit wann kann man in VB6 andere DLL's als ActiveX Dll's erstellen?
Soweit ich weiß geht das doch garnicht?

Geht auch nicht.

Er wird sie als TypeLib importieren müssen. Und er kann nur hoffen, dass sie nicht von einem VB'ler geschrieben wurde, sondern von einem Programmierer, der mit Waffengewalt zu VB gezwungen wurde...

[sirius]

Zitat von Elvis:

Und er kann nur hoffen, dass sie nicht von einem VB'ler geschrieben wurde, sondern von einem Programmierer, der mit Waffengewalt zu VB gezwungen wurde...

Diese dezenten "Hinweise".....

[dtrace]

VB ist der letzte Scheiß *loL*

der Programmierer hat mir jetzt eine ActiveX DLL gemacht, klappt wunderbar.

Nur eine Frage: Wie kann ich erkennen ob die DLL bereits registriert ist?

[shmia]

Zitat von dtrace:

Nur eine Frage: Wie kann ich erkennen ob die DLL bereits registriert ist?

Das ist eigentlich nicht nötig.
Die letzte Registrierung bestimmt, welche DLL im System verankert ist (könnte ja sein, dass die DLL in versch. Pfaden liegt)
Ansonsten geht das mit folgender Funktion:

Delphi-Quellcode:

function ProgIDExists(const ProgID:WideString):Boolean;
var
   tmp : TGUID;
begin
   Result := Succeeded(CLSIDFromProgID(PWideChar(ProgID), tmp));
end;

Die ProgID ist z.B. "VBProjekt.Taschenrechner".