How to pass strings from Excel VBA to a Delphi DLL

[F_Sadr]

Hi everyone. I'm trying to use some of my Delphi functions in Excel VBA, among which, many have "String" parameters. I'm compiling my functions into a Delphi DLL and to avoid using "BORLNDMM.DLL", I'm defining the string types as PChar in Delphi. Now I can't seem to find a way to call any of my functions (passing strings to them) from within VBA without getting the "Bad DLL Calling Convention" error message from Excel. An example of my code is:

-------------

In Delphi:

Please Login or Register  to view this content.

exports Test;

-------------

In VBA:

Please Login or Register  to view this content.

-------------

I have tried PChar and PWideChar in Delphi, Variant and String and also ByVal and ByRef in VBA but so far, I've been out of luck. Any ideas?

[snb]

Did you add the reference to this library in the VBEditor ? (menubar/Extra/references)

[romperstomper]

I remember almost nothing about the little Delphi I ever learned, but don't you need:

Please Login or Register  to view this content.

on the end of your procedure line? I also think you should pass the strings ByVal. (and probably post your question in a Delphi forum!)

[F_Sadr]

Thanks romperstomper, I hadn't used stdcall model, it's OK now.

[krucefiks]

I made the same and also work. PWideChar is correct type for transfer string from Excel VBA to Delpfi. My test function:

Function BB(L: PWideChar; Filter: PWideChar): Double; stdcall;
begin
Result := Length(L);
end;