RichEditSave with RICHEDIT50W class control

[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