SAP ABAP调用DeepSeek API大模型接口

搜索了一下DeepSeek，发现有人已经实现了SAP的对接，

不登录网页，SAP如何使用DeepSeek快速编程，ABAP起飞啦~

按照对应的注册流程和方法。总算做出了第一个能够直连DeepSeek的API abap程序。

效果不错。

report ZTOOL_ABAP_CALL_DS.

data:
LV_JSON_REQUEST type STRING .

data LV_CONT type STRING.

LV_CONT = 'SAP ewm是什么？请用中文回答我'.

* 构建JSON请求体
LV_JSON_REQUEST = '{"model":"deepseek-chat",'
&& '"messages":['
&& ' {"role":"system","content":"' && LV_CONT &&   '"},'
&& ' {"role":"user","content":"Hello!"}'
&& '],'
&& '"stream":false}'.

data GV_OK type C length 6.
data LV_STR type STRING.
data LV_RET type STRING.
perform FRM_TEST using LV_JSON_REQUEST changing LV_RET.

form FRM_TEST using UV_JSON_REQUEST changing CV_RET.

data: LV_STATUS   type I,
LV_ERROR_OCCURRED type FLAG,
LV_ERROR_MSG type STRING,
LV_RESPONSE_BODY type STRING.

clear CV_RET.
do 1 times.
perform SEND_JSON using
'https://api.deepseek.com/chat/completions' "
UV_JSON_REQUEST " JSON报文
changing LV_STATUS
LV_RESPONSE_BODY
LV_ERROR_OCCURRED
LV_ERROR_MSG.
enddo.

* Show result
format color col_heading.
write: / 'Response status:', LV_STATUS.
write: / '调用成功次数:', GV_OK.
if LV_ERROR_OCCURRED = 'X'.
format color col_negative.
write: / 'Error occurred:', LV_ERROR_MSG.
endif.
format color col_normal.
write: / 'Response:', LV_RESPONSE_BODY.

if LV_RESPONSE_BODY cs `"content":"`.
perform FRM_CUT using LV_RESPONSE_BODY
`"content":"`
`"},"logprobs":`
changing CV_RET.

endif.

endform. "start

form SEND_JSON using IV_URL type STRING
IV_JSON_DATA type STRING
changing CV_STATUS type I
CV_RESPONSE_BODY type STRING
CV_ERROR_OCCURRED type FLAG
CV_ERROR_MSG type STRING.

statics: LO_CLIENT type ref to IF_HTTP_CLIENT.

clear: CV_ERROR_MSG,
CV_STATUS,
CV_ERROR_OCCURRED,
CV_ERROR_MSG.

if IV_URL is initial.
message E349(SBDS) into CV_ERROR_MSG.
CV_ERROR_OCCURRED = 'X'.
return.
endif.
statics SV_BEGIN type C length 1.
if SV_BEGIN is initial.
call method CL_HTTP_CLIENT=>CREATE_BY_URL
exporting
URL = IV_URL
importing
CLIENT   = LO_CLIENT
exceptions
ARGUMENT_NOT_FOUND = 1
PLUGIN_NOT_ACTIVE = 2
INTERNAL_ERROR   = 3
others   = 4.
if SY-SUBRC ne 0.
message id SY-MSGID type SY-MSGTY number SY-MSGNO
with SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4
into CV_ERROR_MSG.
CV_ERROR_OCCURRED = 'X'.
return.
endif.
SV_BEGIN = 'X'.
LO_CLIENT->REQUEST->SET_CONTENT_TYPE( 'application/json' ).
LO_CLIENT->REQUEST->SET_METHOD( 'POST' ).
* 自定义参数
LO_CLIENT->REQUEST->SET_HEADER_FIELD( NAME = 'InterfaceName' VALUE = 'HTTP://WWW.HOT583.COM' ). "//保留。
LO_CLIENT->REQUEST->SET_HEADER_FIELD( NAME = 'Authorization' VALUE = 'Bearer sk-f28ade71f6748ae8adfa98ka8132' ). "换算成自己的DeepSeek网址申请密钥吧。

默认有10元赠送金额，相当于免费。过了之后支付宝或者微信采购即可。

endif.

LO_CLIENT->REQUEST->SET_CDATA( IV_JSON_DATA ).

call method LO_CLIENT->SEND
exceptions
HTTP_COMMUNICATION_FAILURE = 1
HTTP_INVALID_STATE   = 2
HTTP_PROCESSING_FAILED   = 3
others   = 4.
if SY-SUBRC ne 0.
LO_CLIENT->GET_LAST_ERROR( importing MESSAGE = CV_ERROR_MSG ).
CV_ERROR_OCCURRED = 'X'.
return.
endif.

LO_CLIENT->RECEIVE( exceptions others = 1 ).
if SY-SUBRC ne 0.
LO_CLIENT->GET_LAST_ERROR( importing MESSAGE = CV_ERROR_MSG ).
CV_ERROR_OCCURRED = 'X'.
return.
endif.

CV_RESPONSE_BODY = LO_CLIENT->RESPONSE->GET_CDATA( ).
LO_CLIENT->RESPONSE->GET_STATUS( importing CODE = CV_STATUS ).

* CALL METHOD LO_CLIENT->CLOSE( )."如果多开需要关闭。
GV_OK = GV_OK + 1.

endform.
*&---------------------------------------------------------------------*
*& Form FRM_CUT
*&---------------------------------------------------------------------*
*& 截取AB中间的保留到C。
*&---------------------------------------------------------------------*
form FRM_CUT using UV_INPUT
P_A
P_B
changing CV_RET.
data LV_TMP type STRING.
split UV_INPUT at P_A into LV_TMP CV_RET.
clear LV_TMP.
split CV_RET   at P_B into CV_RET LV_TMP.

endform.