Visuell Basic DLL bei einer Delphi Anwendung verwenden

[gsh]

Wenn das so ist dann ist es eine ActiveX-DLL.
Nur noch die Frage wie ich die bei einer Win32-Anwendung einbinden kann

[Sprint]

Grundsätzlich kannst man mit Visual Basic nur ActiveX DLL's erstellen. Standard DLL's sind nur über Umwege möglich.
Über Delphi kannst du diese DLL nicht per "Komponente|ActiveX importieren..." nutzen. Dieser Weg ist für ActiveX Controls gedacht, die dann meistens auch die Endung OCX haben.
Ich gehe jetzt mal von meiner Delphi 5 Professional Version aus: Delphi starten. Menüpunkt "Datei|Datei öffnen..." wählen. Dateityp "Typbibliothek" wählen. ActiveX DLL auswählen und öffnen.
Nun siehst du das Delphi Fenster um visuell Typenbibliotheken zu erstellen. Gehe jetzt zum Menüpunkt "Datei|Speichern unter...". Delphi erstellt dann eine Unit (Pas TLB) mit den (D)COM Informationen. (Interface, GUID, usw.)
Diese Unit kannst du dann in deiner Anwendung nutzen. Dazu musst du dich aber in der Handhabung mit Interfaces unter Delphi auskennen.

Nehmen wir mal an, dein Freund hat die Klasse unter Visual Basic CDelphiTest benannt und steht auf GlobalMultiUse. Und die Funktion heißt MeineFunktion:

Code:

Public Function MeineFunktion(ByVal Value As Long) As Long
    MeineFunktion = Value + Value
End Function

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  X: CDelphiTest;
begin
  X := CoCDelphiTest.Create;
  ShowMessage(IntToStr(X.MeineFunktion(12)));
end;

[gsh]

Danke Sprint
Ich werds gleich probieren, wenn ich mich nicht mehr melde dann hats funktioniert