Help masters who are proficient in VFP and DELPHI

xiang140

Questions about using VFP to call the DLL developed by DELPHI;

The call in DELPHI is as follows:
  function GetICCardInfo (ICNo: PChar; SickerCode: Integer; SickerName: PChar): Integer; stdcall;
  far; external 'MyDelphi.dll' name 'GetICCardInfo';

How do I call it in VFP? Thank you.

170385215

There are two kinds of DLL files. One is to use Declare to explain and call. This kind of file can be used after copying, but you cannot use smart prompts. You can only use special tools to check what is inside. This Dll is generally written in C. of.
The other is COM Dll, which is called with Createobject (object name).

xiang140

Thank you upstairs, can you say more in detail, at present it is the DLL developed by our DELPHI. When doing interface with other developers, he will not call our DLL. I am not familiar with VFP. Can you give a detailed answer to the above example? Thank you.

kriesscoen

function GetICCardInfo (ICNo: PChar; SickerCode: Integer; SickerName: PChar): Integer; stdcall;

// According to your definition of Delphi, make the following call in VFP.

Declare Integer GetICCardInfo In MyDelphi.dll String @, integer, String @

// The PChar type is both a pointer type. In VFP, the address pointer is passed through @. The above Dll passes three parameters. Return
// Integer. Calling Dll in Vfp is no different from calling Winapi.

kriesscoen

After the above statement is completed, it can be called as follows:

  local lcICNo As String, lcSickerName As String
  Local lnSickerCode As Integer, lnResult As Integer

  Store Space (255) To lcICNo, lcSickerName&&&
 
  lnSickerCode = 125452
  lnResult = GetICCardInfo (@ lcICNo, lnSickerCode, @ lcSickerName)

  If lnResult> 0
     &&OK
  Else
     &&Error
  EndIf

  ///////////////////////////////////////////////////////// ///////////////////////
  In Delphi, this function accepts parameters, populates them and returns them to the caller

kriesscoen

supplement:

The Function in this Dll must return an integer, and the above judgment of the returned value is determined based on the return value in Delphi.

xiang140

Thank you for your enthusiastic help. Since I do not have a VFP environment here, there is no way to debug.