Convert PDF to Base64

Question

I would like to send a PDF file to a external Web service, but I could not do it, so I know there is a possibility to send PDF as base64 to WS, so the webservice decode this base64 in a PDF file. 
 I know how to decode a clob record in base64, but not how I do that with a PDF file, so my question is that, how I convert a PDF file in Base64 on X3? 
 If someone knows any alternative to that, please feel free to tell me

RobertoMSNascimento · Answer

Hello Chris, You can use b64Decode to convert clbfile variable into blbfile and then you can create a file with that blbfile variable. For example: 
 Local Blbfile YPDFDEST(13)
Local Clbfile YPDFCLB(8)
Local Integer YLENGTH
YPDFCLB = "..." : # Your base64 string

#--- Decode base 64 (Convert base 64 string to binary data)
[L]YLENGTH=b64Decode([L]YPDFCLB, [L]YPDFDEST)
Infbox "Length decode base 64 = "+num$([L]YLENGTH)

#--- Write into PDF file
Local char YFILEPATH_DEST(250) : YFILEPATH_DEST=filpath("TMP","","")+"	est_"+num$(time)+".pdf" : # Your final PDF file path
Openo [L]YFILEPATH_DEST Using [WRT] : # Open file
Putseq 1,[L]YPDFDEST Using [WRT] : # Inject binary data into file
Openo Using [WRT] : # Close file

If filinfo(YFILEPATH_DEST,7)>0
 Infbox "PDF created @ "+ctrans(YFILEPATH_DEST,"\","/")
endif

RobertoMSNascimento · Answer

Local Integer LENGTH Local Blbfile PDF_BLB(10) Local Clbfile PDF_CLB(8) Local Char PDF_PATH(GDIMFIC) : PDF_PATH="C:\pdf_file.pdf" Openi [L] PDF_PATH Using [PDF] Getseq 10,[L]PDF_BLB Using [PDF] Openi Using [PDF] 
 [L]LENGTH=b64Encode([L]PDF_BLB, [L]PDF_CLB) If [L]LENGTH>0 Infbox "Encoded in base64" Else Call ERREUR("Error encoding file.") From GESECRAN Endif

Sage X3

Convert PDF to Base64

Top Replies

COMMUNITY

COMPANY

PARTNERS

SUPPORT & TRAINING