Passing a string from a D3 exe to a BCB dll

I am trying to pass a string as an argument from a D3 exe to a BCB dll. The BCB docs indicate that if one uses a char pointer, it is not required to use bcbmm.dll. A doc at the Borland website, "Extending Delphi with DLLs" provides snippets illustrating how this is done. Unfortunately I can not get this to work.

BCB code:

extern "C" __pascal __declspec(dllexport) int AddVals(int nA, int nB, int nC, int nD)
{
      return (nA+nB+nC+nD);
}

/*
This is from "Extending Delphi with DLLs" found at the Borland website
*/

int far _export pascal PassCharPtr(char far* strA)
{
      MessageBox(NULL, strA, "GPC_TPL", MB_OK);
      return (strlen(strA));
}

D3 code:
  function ADDVALS(nA,nB,nC,nD: integer):integer; stdcall; far external 'GPC_TPL.DLL' index 2;
  function PASSCHARPTR(strParam: PChar):integer; external 'GPC_TPL' index 1;


var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
const
  StringLength = 255;
var
  nRetVal: integer;
  strA: array[0..StringLength] of char;
begin
  nRetVal := ADDVALS(1,2,3,4);
  ShowMessage(IntToStr(nRetVal));

  StrPCopy(strA, 'Hello World!');
  nRetVal := PASSCHARPTR(strA);
  ShowMessage(IntToStr(nRetVal));
end;

The PassCharPtr method in the dll does not receive the string as a argument and returns the length of the string as 3 no matter what the string length really is.

BCB suggests adding bcbmm.lib to both the dll and exe. I cannot seem to add bcbmm.lib to the D3 exe.

When I add ShareMem.pas to the dll project and put ShareMem at the head of my uses list, I get the same results plus when I close the exe an InvalidPointer exception is thrown.

Suggestions on how to successfully pass a string (<255 char) as an argument from a D3 exe to a BCB dll method will be greatly appreciated.

thanks
A.G.
AG112297Asked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

altenaCommented:
I remember having had a small fight with D2 just like you have
here.

Try this (and reject the answer if it does not work, I do not
remember exactly whenand why I had to pull this stunt)

replace:
nRetVal := PASSCHARPTR(strA);

with
nRetVal := PASSCHARPTR(&strA[0]);

and if it does work, well an "A" would be nice ;-)
0
AG112297Author Commented:
Unfortunately Delphi 3 informs me that the ampersand is an "illegal character in input file" and as such will not compile. Thank you for the effort.
0
altenaCommented:
Ok, so i use C++ now...

try again with the "@" character.

// If that also does not compile, I will actually fire up
// delphi and re-invent the "address off" operator :-)
0
Bootstrap 4: Exploring New Features

Learn how to use and navigate the new features included in Bootstrap 4, the most popular HTML, CSS, and JavaScript framework for developing responsive, mobile-first websites.

AG112297Author Commented:
The D3 compiles but when it executes and invokes the dll's PassCharPtr method, the results are unchanged. I have been trying to find more information on the calling convention as I think that is where the problem might lie. FWIW both methods work fine when invoked from a BCB exe.

Thanks again.
0
altenaCommented:
hmmm, I'll give this one last (this will be my last "answer") try:

Take another look at the Delphi declarations:
--
D3 code:
function ADDVALS(nA,nB,nC,nD: integer):integer; stdcall; far external 'GPC_TPL.DLL' index 2;
function PASSCHARPTR(strParam: PChar):integer; external 'GPC_TPL' index 1;
--
The second function, the one with the pchar, does NOT have a
"stdcall" keyword.

 Happy new year. (even if this also does not help)
0
altenaCommented:
hmmm, I'll give this one last (this will be my last "answer") try:

Take another look at the Delphi declarations:
--
D3 code:
function ADDVALS(nA,nB,nC,nD: integer):integer; stdcall; far external 'GPC_TPL.DLL' index 2;
function PASSCHARPTR(strParam: PChar):integer; external 'GPC_TPL' index 1;
--
The second function, the one with the pchar, does NOT have a
"stdcall" keyword.

 Happy new year. (even if this also does not help)
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
AG112297Author Commented:
I figured that out this afternoon. I next ran into a problem when I 'combined' the two methods into one, DoItAll(char*,int,int,int,int). Using the calling conventions above, the method wouldn't work. I finally tried the basic convention,
int __export DoItAll(LPTSTR strA, int nA, int nB, int nC, int nD)
and it worked. The name is mangled but since I will call the method ordinally from D3 it doesn't matter to me. Thanks for the help.


0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.