Announcement

**Bernhard Geyer** · 23.01.2003, 12:06

Grunds�tzlich d�rft es gehen, jedoch mu�t du einige Klippen umschiffen:

- Beim Import von Funktionen aus DLL's wird Gro�/Kleinschreibung unterschieden

- Bei Verwendung von Strings als Parameter/R�ckgabeparameter mu� die richtige definition in Delphi erfolgen (evtl. PWideChar statt PChar/String)

- Die Aufrufkonvention mu� passen. Delphi verwendet im Normalfall die Aufrufkonvention Pascal. In VB kommt evtl. cdecl oder safecall oder �hnliches zur Anwendun

**Muammer Oda** · 23.01.2003, 15:26

Nur Leider Funktioniert es nicht!

Den dritten Punkt habe ich nicht so ganz verstanden,sorry?

Ich stelle am besten den Code zur Verf�gung:

Die CODE von Delphi:

 
unit Unit1;
 
interface
 
uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls; 
 
type 
TForm1 = class(TForm) 
Button1: TButton; 
procedure Button1Click(Sender: TObject); 
private 
{ Private-Deklarationen } 
public 
{ Public-Deklarationen } 
end; 

var 
Form1: TForm1; 

type 
TSummenFunktion = function(Z1,Z2: integer): integer; 
function addiere(zahl1, zahl2: integer): integer; 
 
implementation 
 
{$R *.DFM} 
 
function addiere(zahl1, zahl2: integer): integer; 
var SummenFunktion: TSummenFunktion; 
Handle: THandle; 
begin 
Handle:=LoadLibrary('ODA_test.dll'); 
if Handle <> 0 then begin 
@SummenFunktion := GetProcAddress(Handle,'addieren'); 
if @SummenFunktion <> nil then begin 
result:=SummenFunktion(zahl1, zahl2); 
ShowMessage(Inttostr(result)); 
end; 
FreeLibrary(Handle); 
end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
addiere(5,3); 
end; 
 
end. 


und die im VB-DLL befindlicher CODE ist :


Public Function addieren(Z1, Z2 As Integer) As Integer 
addieren = Z1 + Z2 
End Function 


Was kann man hier falsch machen ????????????

Gru� + Dank

**Robert Marquardt** · 23.01.2003, 16:33

TSummenFunktion = function(Z1,Z2: integer): integer; stdcall; 
 Was ist stdcall? 
Irgendwie muessen die Parameter an die Funktion uebergeben werden. Es gibt dazu drei Methoden 
1. stdcall Der Aufrufer legt die Parameter auf den Stack und der Aufgerufenen raeumt sie am Ende ab. Das ist effizient, aber die Anzahl der Parameter ist festgelegt. 
2. cdecl Der Aufrufer legt die Parameter auf den Stack ruft die Funktion und raeumt selbst auch wieder ab. Damit kann man variabel viele Parameter an eine Funktion uebergeben, aber das Abraeumen muss bei jedem Aufruf im Code stehen, waehrend es bei stdcall nur einmal beim Aufgerufenen steht. 
3. register Ein Teil der Parameter wird in freien CPU-Registern uebergeben. Das ist sehr effizient, aber die Belegung ist von Programmiersprache zu Programmierspache unterschiedlich

**Andreas Kosch** · 24.01.2003, 09:45

Hallo,

>..Ich habe unter VB eine einfache DLL geschrieben

das geht meines Wissens nach gar nicht :-)

Visual Basic konnte am Anfang �berhaupt keine DLLs generieren. Ab der Version 3 (oder 4) hat Microsoft die F�higkeit nachger�stet, dass VB ein COM-Objekt als DLL verpacken kann. Das ist aber keine DLL im Sinne des API (daher schl�gt der LoadLibrary/GetProcAddress-Weg auch fehl), sondern ein In-Process-Server, der nur auf dem Automation-Weg (COM-Weg) genutzt werden kann. Das eigene Delphi-Programm muss daher auf dem COM-Weg auf diesen in Form einer DLL vorliegenden In-Process-Server zugreifen.

>..und die im VB-DLL befindlicher CODE ist : 
>Public Function addieren(Z1, Z2 As Integer) As Integer

Das ist keine exportierte Schnittstellenroutine der DLL, sondern "nur" eine Interface-Methode der COM-Schnittstelle des In-Process-Servers.

Erst mit VB.NET entf�llt diese Beschr�nkung, da VB.NET gegen�ber C#, C++ und Delphi for .NET technisch gleichwertig ist

**Muammer Oda** · 27.01.2003, 12:04

Hallo Herr Kosch,
man lernt jeden Tag etwas dazu!

Das hei�t doch, dass ich die VB-DLL nach Client Server Prinzip einbinden muss. Nat�rlich stellt sich f�r einen Leihen wie ich eins bin die Frage "Wie�?

Ich habe �ber "Typbibliothek importieren" die VB-DLL eingebunden. Nur leider wei� ich nicht weiter und ich bin mir auch nicht 100% sicher, ob dies der richtige Weg ist.

Ich w�rde mich auf den einen oder anderen Tipp freuen!

Gru� + Danke
M. Od

**Muammer Oda** · 28.01.2003, 11:49

Hallo, 
danke f�r alle Antworten. Ich habe das R�tsels L�sung, puhhh. 
 
�ber �Typbibliothek importieren� habe ich die DLL eingef�gt. Mein Problem danach war die DLL-Unit in mein Programm einzubinden. Ich hatte folgendes versucht: 
 

Unit MyProg; 
 
Uses �,ODA_test_TLB; 
 
type 
TForm1 = class(TForm) 
Button1: TButton; 
Edit1: TEdit; 
procedure Button1Click(Sender: TObject); 
private 
MyClass : Class1; 
{ Private-Deklarationen } 
public 
{ Public-Deklarationen } 
end; 
 
. 
. 
. 
procedure TForm1.Button1Click(Sender: TObject); 
var i,a,e:smallint; 
begin 
e:= MyClass.addieren(i,a); 
Edit1.Text := inttostr(e); 
end; 
 

Und als den Programm ausgef�hrt habe, trat �Exception� aus. 
 
Die L�sung ist: 
 

Unit MyProg; 
 
Uses �,ODA_test_TLB; 
 
type 
TForm1 = class(TForm) 
Button1: TButton; 
Edit1: TEdit; 
procedure Button1Click(Sender: TObject); 
private 
{ Private-Deklarationen } 
public 
{ Public-Deklarationen } 
end; 
 
. 
. 
. 
procedure TForm1.Button1Click(Sender: TObject); 
var x : class1; 
i,a,e:smallint; 
begin 
x:=coclass1.create; 
i:= 4; 
a := 6; 
e:= x.addieren(i,a); 
Edit1.Text := inttostr(e); 
 
end; 

 
 
Was dabei so lernen kann ;-) 
Die Frage steht noch, ob die Variante mit "Typenbibliothek importieren" die bessere L�sung ist? 
Anders gefragt, wie kann man es anders L�sen ? 
 
Gru� 
M.Oda<BR&gt

Announcement

Zweifel an DLL Wissen. VB-DLL in Delphi einbinden.

Zweifel an DLL Wissen. VB-DLL in Delphi einbinden.

Comment

Comment

Comment

Comment

Comment

Comment