如何在PL/SQL SOAP WSDL web服务调用中指定基本身份验证

DECLARE
  client UTL_DBWS.CLIENT;
  service UTL_DBWS.SERVICE;
  req UTL_DBWS.REQUEST;
  res UTL_DBWS.RESPONSE;
BEGIN
  -- 创建SOAP客户端
  client := UTL_DBWS.CREATE_CLIENT('http://example.com/service?wsdl');

  -- 创建服务对象
  service := client.CREATE_SERVICE('http://example.com/service?wsdl');

  -- 配置基本身份验证
  UTL_DBWS.SET_HTTP_HEADER(service, 'Authorization', 'Basic ' || UTL_RAW.CAST_TO_VARCHAR2(UTL_ENCODE.BASE64_ENCODE(UTL_RAW.CAST_TO_RAW('username:password'))));

  -- 创建请求对象
  req := service.CREATE_REQUEST('MethodName');

  -- 设置请求参数
  req.SET_STRING('param1', 'value1');
  req.SET_STRING('param2', 'value2');

  -- 调用Web服务方法
  res := service.CALL(req);

  -- 处理响应结果
  IF res.IS_SUCCESS THEN
    -- 获取响应参数
    DBMS_OUTPUT.PUT_LINE('Result: ' || res.GET_STRING('result'));
  ELSE
    -- 处理错误
    DBMS_OUTPUT.PUT_LINE('Error: ' || res.GET_ERROR());
  END IF;

  -- 释放资源
  service.FREE_REQUEST(req);
  client.FREE_SERVICE(service);
  UTL_DBWS.FREE_CLIENT(client);
END;