DECLARE
req utl_http.req;
resp utl_http.resp;
l_value VARCHAR2(1024);
l_url_import VARCHAR2(500) := 'https://api.teamdynamix.com/TDWebApi/api/people';
l_url VARCHAR2(100) := 'https://api.teamdynamix.com/TDWebApi/api/auth/loginadmin';
l_content VARCHAR2(1000) := 'C:\SB\TeamDynamix\Files\xavier_to_teamdynamics.xlsx' ;
BEGIN
req := UTL_HTTP.begin_request( l_url, 'POST', UTL_HTTP.HTTP_VERSION_1_1 );
UTL_HTTP.SET_HEADER(req, 'User-Agent', 'Mozilla/4.0 (compatible)' );
UTL_HTTP.SET_HEADER(req, 'Content-Type', 'application/json');
UTL_HTTP.SET_HEADER(req, 'Accept', 'application/json');
UTL_HTTP.SET_HEADER(req, 'Authorization', 'Bearer BEID: XXXXXX-XXXX-XXX-XXXXXXXX, WebServicesKey: XXXXXX-XXX-XXX-XXXXXXXX' );
--- UTL_HTTP.SET_HEADER(req, 'Content-Length', 100000000);--LENGTH(l_Content));
UTL_HTTP.WRITE_text(req, l_content);
resp := utl_http.get_response(req);
dbms_output.put_line('Response');
LOOP
utl_http.read_line(resp, l_value, TRUE);
dbms_output.put_line('Value......'||l_value);
END LOOP;
utl_http.end_response(resp);
EXCEPTION
WHEN utl_http.end_of_body THEN
utl_http.end_response(resp);
WHEN OTHERS THEN
dbms_output.put_line('Error');
END;
/