🚀 go-pugleaf

In article <310FD68B.208B@allaire.com>, jlund@allaire.com says...
;
;I have written a DLL in C++ that I am attempting to call from a Delphi EXE. I ca
;n call 
;DLL functions from my C++ apps, but not from my Delphi program. The Delphi app c
;alls the 
;DLL function, but most of the parameters passed are garbage. I tried the same te
;chniques 
;and syntax I found in the Delphi libraries, but to no avail. 
;
;For whatever reason it looks like the parameters are pushed and popped from the 
;stack 
;differently beween environments.  I've tried declaring the function in Delphi wi
;th 
;"stdcall" and "cdecl", and I've tried other data types in place of pchar. Any 
;suggestions?
;
;
;***************
;Delphi SNIPPETS
;***************
;
;{type, private}
;function GetFieldsForTable(
;   pcharDataSourceName, 
;   pcharUsername, 
;   pcharPassword, 
;   pcharTableName: pChar
;   ): integer;
;
;{implementation}
;function TODBCInformant.GetFieldsForTable; 
;   external 'patrik.dll' name 'GetFieldsForTable';
;
;{I call the function like this:}
;nIndex:= GetFieldsForTable(strpcopy(pcharBuiffer,'Test'),
;   strpcopy(pcharBuiffer,''),
;   strpcopy(pcharBuiffer,''),
;   strpcopy(pcharBuiffer,'Employees'));
;
;
;************
;C++ SNIPPETS
;************
;
;// My C++ header (.H) declares the prototype like this:
;extern "C" INT FAR PASCAL EXPORT GetFieldsForTable( 
;   LPSTR lpszDataSourceName, 
;   LPSTR lpszUsername, 
;   LPSTR lpszPassword, 
;   LPSTR lpszTableName 
;   );
;
;/* 
;My implementation uses the same format, and the function is named in the 
;exports section of the .DEF file.
;*/
;

Hi!

I think the problem is, that you use the same Buffer for each parameter. So you will get the same value 
(because it's the same pointer) in each parameter.

Hope it helps :-)

Bye

Andreas