RichEditSave with RICHEDIT50W class control

[ssimop]

I failed to use RichEditSave with Wordpad RICHEDIT50W control using the following function :

Function temp07

Code:

Copy      Help

int w=win("Document - WordPad" "WordPadClass")
int c=id(59648 w) ;;editable text
outw c
_i=RichEditSave(c "C:\tmp\ried.rtf")
out _i

I understand that QM help advises that "Rich edit control's class usually is RichEdit20A or RichEdit20W". I would welcome any advice on this issue. Many thanks in advance.

[Gintaras]

QM cannot do it. Need to create a C++ dll and inject into wordpad process.

[ssimop]

Thank you, it is very clear to me.

Let me please ask one more relevant question :

Is it possible to use :
#RichEditSave hwndRE $_file ;;Returns 1 if successful.

with a string instead of a file ?

Best regards.

[Gintaras]

Function GetRTF

Code:

Copy      Help

;/
function# hre str&s

s.all
EDITSTREAM es
es.pfnCallback=&sub.Proc
es.dwCookie=&s
SendMessage(hre EM_STREAMOUT SF_RTF &es)
ret !es.dwError


#sub Proc
function str&s !*pbBuff cb *pcb
s.fromn(s s.len pbBuff cb)
*pcb=cb