Este exemplo de código pode ser usado para fazer upload de um objeto em um bucket do Cloud Storage.
Para uma coleção abrangente de amostras de código da edição SAP BTP do SDK do ABAP SDK for Google Cloud, consulte o repositório de amostras de código no GitHub.
Para uma coleção abrangente de amostras de código para edições no local ou em qualquer edição na nuvem do ABAP SDK for Google Cloud, consulte o repositório de exemplos de código no GitHub.
Exemplo de código
Edição do SAP BTP
" --------------------------------------------------------------------
" Copyright 2024 Google LLC -
" -
" Licensed under the Apache License, Version 2.0 (the "License"); -
" you may not use this file except in compliance with the License. -
" You may obtain a copy of the License at -
" https://www.apache.org/licenses/LICENSE-2.0 -
" Unless required by applicable law or agreed to in writing, -
" software distributed under the License is distributed on an -
" "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, -
" either express or implied. -
" See the License for the specific language governing permissions -
" and limitations under the License. -
" --------------------------------------------------------------------
CLASS zcl_cs_upload_file_to_bucket DEFINITION
PUBLIC FINAL
CREATE PUBLIC.
PUBLIC SECTION.
INTERFACES if_oo_adt_classrun.
ENDCLASS.
CLASS zcl_cs_upload_file_to_bucket IMPLEMENTATION.
METHOD if_oo_adt_classrun~main.
" Data Declarations
DATA lv_p_bucket TYPE string.
DATA lv_q_name TYPE string.
DATA ls_data TYPE xstring.
DATA lv_content_type TYPE string.
TRY.
" Open HTTP Connection
" Pass the configured client key
DATA(lo_client) = NEW /goog/cl_storage_v1( iv_key_name = 'CLIENT_KEY' ).
" Populate the data that needs to be passed to the API
" Name of the bucket
lv_p_bucket = 'sample-bucket'.
" Name of the object
lv_q_name = 'sample-object'.
" Read object data into ls_data
ls_data = '<Object data in XSTRING form>'.
" Content type of the object
lv_content_type = '<Content Type>'.
" Call API method
lo_client->insert_objects( EXPORTING iv_q_name = lv_q_name
iv_p_bucket = lv_p_bucket
is_data = ls_data
iv_content_type = lv_content_type
IMPORTING es_output = DATA(ls_output)
ev_ret_code = DATA(lv_ret_code)
ev_err_text = DATA(lv_err_text)
es_err_resp = DATA(ls_err_resp) ).
IF lo_client->is_success( lv_ret_code ).
out->write( 'Bucket created successfully!' ).
ELSE.
out->write( | Error occurred: { lv_err_text }| ).
ENDIF.
" Close HTTP connection
lo_client->close( ).
CATCH /goog/cx_sdk INTO DATA(lo_sdk_excp).
lv_err_text = lo_sdk_excp->get_text( ).
out->write( |Exception occurred: { lv_err_text } | ).
ENDTRY.
ENDMETHOD.
ENDCLASS.
No local ou qualquer edição na nuvem
**********************************************************************
* Copyright 2023 Google LLC *
* *
* Licensed under the Apache License, Version 2.0 (the "License"); *
* you may not use this file except in compliance with the License. *
* You may obtain a copy of the License at *
* https://www.apache.org/licenses/LICENSE-2.0 *
* Unless required by applicable law or agreed to in writing, *
* software distributed under the License is distributed on an *
* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, *
* either express or implied. *
* See the License for the specific language governing permissions *
* and limitations under the License. *
**********************************************************************
REPORT zr_upload_file_bucket.
* Data Declarations
DATA:
lv_p_bucket TYPE string,
lv_q_name TYPE string,
ls_data TYPE xstring,
lv_content_type TYPE string.
TRY.
* Open HTTP Connection
DATA(lo_client) = NEW /goog/cl_storage_v1( iv_key_name = 'CLIENT_KEY' ).
* Populate the data that needs to be passed to the api
"Name of the bucket
lv_p_bucket = 'sample-bucket'.
"Name of the object
lv_q_name = 'sample-object'.
"Read object data into ls_data
ls_data = '<Object data in XSTRING form>'.
"Content type of the object
lv_content_type = '<Content Type>'.
* Call API method
CALL METHOD lo_client->insert_objects
EXPORTING
iv_q_name = lv_q_name
iv_p_bucket = lv_p_bucket
is_data = ls_data
iv_content_type = lv_content_type
IMPORTING
es_output = DATA(ls_output)
ev_ret_code = DATA(lv_ret_code)
ev_err_text = DATA(lv_err_text)
es_err_resp = DATA(ls_err_resp).
IF lo_client->is_success( lv_ret_code ).
MESSAGE 'Bucket created successfully!' TYPE 'S'.
ELSE.
MESSAGE lv_err_text TYPE 'E'.
ENDIF.
* Close HTTP connection
lo_client->close( ).
CATCH /goog/cx_sdk INTO DATA(lo_exception).
MESSAGE lo_exception->get_text( ) TYPE 'E'.
ENDTRY.