Delphi-DLL in VB einbinden - Funktion tuts nicht

[Mr_G]

Folgendes:
Ich habe eine DLL in Delphi geschrieben mit einer Funktion namens CheckIt:

Delphi-Quellcode:

function CheckIt(Str: String; Muster: String): Boolean; stdcall;

Nun habe ich versucht diese Funktion in VB zu nutzen. Ich habe ein neues Modul erstellt und die DLL dort so eingebunden:

Code:

Declare Function CheckIt Lib "C:\CheckIt.dll" (ByVal Str As String, ByVal Muster As String) As Boolean

VB meckert zwar nicht aber wenn ich die Funktion aufrufe bekomme ich immer False zurück! :wall:
Ich habe die DLL daraufhin mal in ein Delphi-Projekt eingebunden um Fehler in der DLL auszuschließen und siehe da es hat alles Funktioniert.

Meine Frage wie bekomme ich das nun auch unter VB zum laufen?

Danke im Vorraus Mr_G

[Chewie]

Nimm PChars anstelle von Strings.

[Mr_G]

Ich hab die Parameter mal geändert aber intern mit Strings weitergearbeitet...
Das hats aber nicht gebracht :cry: .

Muss ich nochwas an dem VB-Kram ändern?

[Sprint]

Zitat:

Zitat von Mr_G

Meine Frage wie bekomme ich das nun auch unter VB zum laufen?

Delphi-Quellcode:

function CheckIt(Str: String; Muster: String): Boolean; stdcall;

Delphi-Quellcode:

function CheckIt(Str, Muster: PChar): BOOL; stdcall;

Zitat:

Code:

Declare Function CheckIt Lib "C:\CheckIt.dll" (ByVal Str As String, ByVal Muster As String) As Boolean

Delphi-Quellcode:

Private/Public Declare Function CheckIt Lib "CheckIt.dll" (ByVal Str As String, ByVal Muster As String) As Long

[Mr_G]

Super, Danke! Es hat Funktioniert :hello:

Mich würde aber doch interessieren warum das mit Boolean nicht funktioniert hat.

Wie dem auch sei: Big Thx! :dp: