Delphi Dll in VB6 nutzen

[EWeiss]

Na egal..

Hier mal das kleinste Beispiel was ich auf die schnelle zurecht geflickt habe.

Delphi

Delphi-Quellcode:

library DWithVB;


uses
  SysUtils,
  Classes,
  Dialogs;

{$R *.RES}

FUNCTION DllTest():Integer;StdCall;
var Hobby: string;
 begin
  Hobby := InputBox('Hallo VBler du befindest dich nun in Delphi','Was ist dein Hobby?','');
  If Length(Hobby) = 0 then
  Begin
    Result := 0;
    Exit;
    End
  Else
   Begin
    Result := 1;
    ShowMessage('Hallo dein Hobby ist ' + Hobby);
   End;
end;

  EXPORTS
  DllTest;
  
begin

end.

Visual Basik

Code:

Private Declare Function DllTest Lib "DWithVB.dll" () As Integer

Private Sub Command1_Click()

Dim TResult As Long
    
    TResult = DllTest
    
End Sub

Private Sub Command2_Click()
    
    Unload Form1
    End
    
End Sub