topic CALLDVF and ALIASing in Software Archive

CALLDVF and ALIASing

bdrichards — Sun, 04 Mar 2001 03:51:09 GMT

I have been using CVF-created dll's from Delphi-created apps for about a year and everything seems to be operating OK. However, in the new CALLDVF (from Delphi) example it states that Dephi prepends an underscore and so the Fortran function (or procedure) needs to be appropriately ALIASed. None of my functions are so ALIASed and there has never been a problem. I'm confused...
Bill D. Richards
North Idaho College

Re: CALLDVF and ALIASing

Steven_L_Intel1 — Sun, 04 Mar 2001 11:58:31 GMT

I'm not familiar with Delphi - I see that the CALLDVF example expects Delphi to use the C naming conventions (downcased name and prepended underscore) but the STDCALL calling conventions. Strange. Perhaps it depends on what your Delphi code looks like?

Steve

Re: CALLDVF and ALIASing

bdrichards — Mon, 05 Mar 2001 06:29:02 GMT

Here is a sample of the Delphi function declaration (after reading the Delphi reference, which has a great section on parameter passing conventions, I declared all function calls as STDCALL):

  
Function FDSCANSHEET(sheet : pchar;  
 lsheet : integer;  
 id : pchar;  
 lid : integer;  
 pform : pchar;  
 lform : integer;  
 Var iside : integer;  
 Var iessay : integer) : integer; stdcall; external 'par.dll';

and the fuinction in CVF is as:

  
  
INTEGER function fdScanSheet(s1,id,form,side,essaypts)  
 use scanstuffmodule  
 use dflib  
 character(LEN=*),intent(INOUT) :: s1,id,form  
 integer(4),intent(INOUT) :: side,essaypts  
 !DEC$ ATTRIBUTES DLLEXPORT :: FDSCANSHEET  
 !DEC$ ATTRIBUTES ALIAS:'FDSCANSHEET' :: FDSCANSHEET

I guess the STDCALL convention seems to be the best for me, you still have to make sure of the case of the function name, though.

Bill