FiveTech Software tech support forums

Excellent

Dear friends, thank you so much for your help. Now I also added a MEMOWRIT() to see the return value of hb_base64encode() before anything is processed through microsoft cdo object. I get perfectly fine base64 output. When I insert it to https://base64.guru/converter/decode/image it successfu...

Like @cmsoft said, try something like:

Code: Select all  Expand view

cImgBase64 := strtran( strtran( cImgBase64 ), CRLF ), "=" )

I tested it with an old version xhb and worked

if it still not working for you, can you tell us which version xhb are you using?

Ruth
Prueba con

Code: Select all  Expand view

cImgBase64 := STRTRAN(cImgBase64,CRLF,'')

Esto le quita todos los saltos de linea

Dear Lailton, thank you very much for helping me. I tried with alltrim now - but it seems to make no difference. I think microsoft refuses the long string here maybe... :?: If I put the code I post below it adds an unwanted ! after about 2 1/2 lines of characters for the   "<p>" + al...

Great!

%20 is related to some "space" in your string.

try to replace this line:

Code: Select all  Expand view

+ '<img src=\"data:image/jpeg;base64,' + cImgBase64 + '\" > ';

with

Code: Select all  Expand view

+ '<img src="data:image/jpeg;base64,'+alltrim(cImgBase64)+'">';

then try it again.

Dear Lailton, this is so wonderful!!! Thank you very much :) Now with the 2 parameters in the function I get a value back also in xharbour. But what happens now when I send an email with the base64-encoded content using cdo I suppose is that Microsoft adds unwanted characters and linebreaks and does...

Hi Ruth,

for xHarbour you should send 2 parameters, the first one is the string and second one is the lenght.

Code: Select all  Expand view

cRaw := memoReady( "yourFile" )
cBase64 := hb_base64encode( cRaw, len( cRaw ) )

this way you will have a string as return.

Let me know if it worked.

Dear Mr. Gomez, dear friends, thank you a lot for helping me. I appreciate it very much. Please can you help me understand further. I combined now that modharbour returns a string for hb_base64encode() whereas in xharbour it returns an array. Is this a correct assumption? Thank you for your help. Or...

Ruth: Has esta prueba // C:\FWH\SAMPLES\RUTHBASE64.PRG#include "FiveWin.ch"#Include "Outlook.ch"#Include "Mail.ch"FUNCTION Main()  LOCAL cImgPath, cImgBase64 := {}, cImgMemo   cImgPath     := "c:\fwh\samples\img\start_slid...

Dear friends, please could you be so kind as to help me out. Here is a small piece of code that on my systems does not produce output for hb_base64encode() https://mybergland.com/ruth/screenshot3.png // C:\FWH\SAMPLES\RUTHBASE64.PRG#include "FiveWin.ch"#Include "Outlook.ch...

Que libereias tengo que enlazar con XHARBOUR y FiveWin for xHarbour 64 parar incluir estos funciones? Error: Unresolved external '_HB_FUN_HB_BASE64ENCODE' referenced from C:\FIVEWIN21\FWH\SAMPLES\APP1API.OBJ Error: Unresolved external '_HB_FUN_HB_JSONENCODE' referenced from C:\FIVEWIN21\FWH\SAMPLES\...

Que libereias tengo que enlazar con XHARBOUR y FiveWin for xHarbour 64 parar incluir estos funciones? Error: Unresolved external '_HB_FUN_HB_BASE64ENCODE' referenced from C:\FIVEWIN21\FWH\SAMPLES\APP1API.OBJ Error: Unresolved external '_HB_FUN_HB_JSONENCODE' referenced from C:\FIVEWIN21\FWH\SAMPLES\...

Dear Darrell, Please try this: oHttp:Open( 'POST', cURL, .F. ) oHttp:SetRequestHeader( "Content-Type","application/xml") oHttp:SetRequestHeader( "Accept","*/*") oHttp:SetRequestHeader( "Authorization", "Basic "+hb_base64Encode(cCred)) oHttp...

Hello, It is possible to set a timeout request for a web service request? I added to IF oHttp:status=200 to check status but sometimes request hangs. TRY oHttp := CreateObject( 'MSXML2.XMLHTTP' ) CATCH oHttp := CreateObject( 'Microsoft.XMLHTTP' ) END cHttpSend := [<?xml version="1.0"?&g...