Como converter um documento PDF para Base64Binary de forma simples e precisa

Olá,

Verifique meu código abaixo.

Que primeiro pega um arquivo pdf como entrada e o converte para o formato base64. Eu usei o FM GUI_UPLOAD para fazer isso.

Passos: Obter o caminho do arquivo usando a classe cl_gui_frontend_services => file_open_dialog.

Passo 2: Passar o caminho (nome do arquivo para o FM GUI_UPLOAD).

Passo 3: Converter o binário resultante para xstring.

Passo 4: Converter xstring para formato base64.

DADOS : file_table TIPO filetable ,
rc TIPO i .
DADOS : filesize TIPO i .
DADOS : xstr TIPO xstring .
DADOS : base64 TIPO string .

DADOS : lx_wa ( 1024 ) TIPO c .

TIPOS : INÍCIO DE ty_binary ,

binary_field TIPO texto , "(1000) TIPO c,

FIM DE ty_binary .

DADOS : hex_tab1 TIPO TABELA DE ty_binary COM CABEÇALHO LINHA .
PARÂMETROS : p_dest TIPO string .

NA TELA DE SELEÇÃO EM SOLICITAÇÃO DE VALOR

Olá,

Verifique o módulo de função SCMS_BASE64_ENCODE_STR...

Saudações,

Phil

Olá,

Confira o meu código abaixo.

O primeiro passo é pegar um arquivo PDF como entrada e convertê-lo para o formato base64. Eu usei o FM GUI_UPLOAD para fazer isso.

Passos: Obter o caminho do arquivo usando a classe cl_gui_frontend_services => file_open_dialog.

Passo 2: Passar o caminho (nome do arquivo para o FM GUI_UPLOAD).

Passo 3: Converter o binário resultante para xstring.

Passo 4: Converter xstring para o formato base64.

DADOS : file_table TIPO filetable ,
rc TIPO i .
DADOS : filesize TIPO i .
DADOS : xstr TIPO xstring .
DADOS : base64 TIPO string .

DADOS : lx_wa ( 1024 ) TIPO c .

TIPOS : INÍCIO DE ty_binary ,

binary_field TIPO texto , "(1000) TIPO c,

FIM DE ty_binary .

DADOS : hex_tab1 TIPO TABELA DE ty_binary COM CABEÇALHO LINHA .
PARÂMETROS : p_dest TIPO string .

EM TELA DE SELEÇÃO EM