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...

... (with a message that a program need to be closed) It even works if you are working in a other program. Nice and thanks if the screensaver stays active for xxx time, you could even force a close all and close dialog and terminate the program. Interesting idea

... function eanfotoselect is called onces and stay on the screen. select a picture from it and return to the first browse while this lookup dialog stays on screen. Go to a other field in the first browse and select direct from the onscreen dialog and keep doing this until I close the dialog. static ...

... on a scrollpanel https://i.postimg.cc/h4zG0Jp9/ff.jpg I created the buttons with the Btnbmp class I want that when I press one it stays selected I made lActive:= .f. For n=1 to Len(aElements) cDesc := aElements[n][2] cImage := aElements[n][5] nProduct:= aElements[n][1] @ nRow,ncol ...

... also at home. I put the exe in defender and also the folder no good Defender offline : no good Strange that the filename is uploaded, but the size stays 0 Other topic mentionend a SetTimeout function, but that I can't get working https://forums.fivetechsupport.com/viewtopic.php?f=3&t=40321 ...