abap 调用 dll

ABAP可以通过RFC函数调用外部DLL。RFC函数可以通过远程函数调用（RFC）协议在SAP系统和外部系统之间进行通信。以下是使用RFC函数调用DLL的一般步骤：

1. 在SAP系统中创建RFC函数模块，该函数模块将调用DLL中的函数。
2. 将DLL文件复制到SAP系统中，并在SAP系统中注册该DLL。
3. 在SAP系统中创建一个外部定义（EXTDEF），该定义指向DLL中的函数。
4. 在RFC函数模块中调用外部定义。

下面是一个简单的例子：

1. 在SAP系统中创建RFC函数模块

FUNCTION ZRFC_CALL_DLL.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(DLL_PATH) TYPE  STRING
*"     VALUE(FUNCTION_NAME) TYPE  STRING
*"  EXPORTING
*"     VALUE(RETURN_CODE) TYPE  I
*"----------------------------------------------------------------------
  DATA: l_return_code TYPE i.

  CALL 'ZRFC_CALL_DLL' ID 'DLL_PATH' FIELD DLL_PATH
                       ID 'FUNCTION_NAME' FIELD FUNCTION_NAME
                  DESTINATION 'NONE'
                  EXCEPTIONS OTHERS = 1.

  RETURN_CODE = l_return_code.
ENDFUNCTION.

2. 将DLL文件复制到SAP系统中，并在SAP系统中注册该DLL。

使用tcode SM59在SAP系统中创建RFC目标，使用tcode SMGW在SAP系统中配置RFC目标。

3. 在SAP系统中创建一个外部定义（EXTDEF），该定义指向DLL中的函数。

FUNCTION Z_MY_EXTERNAL_DEF.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(P1) TYPE  I
*"  EXPORTING
*"     VALUE(P2) TYPE  I
*"----------------------------------------------------------------------
  EXTERNAL DLL 'MY_DLL' NAME 'MY_FUNCTION'
          LANGUAGE C
          PARAMETER STYLE C
          USING p1 TYPE i
    CHANGING p2 TYPE i.
ENDFUNCTION.

4. 在RFC函数模块中调用外部定义。

FUNCTION ZRFC_CALL_DLL.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  IMPORTING
*"     VALUE(DLL_PATH) TYPE  STRING
*"     VALUE(FUNCTION_NAME) TYPE  STRING
*"  EXPORTING
*"     VALUE(RETURN_CODE) TYPE  I
*"----------------------------------------------------------------------
  DATA: l_return_code TYPE i.

  CALL FUNCTION 'Z_MY_EXTERNAL_DEF' DESTINATION 'NONE'
                  EXPORTING
                      p1 = 1
                  IMPORTING
                      p2 = l_return_code.

  RETURN_CODE = l_return_code.
ENDFUNCTION.