| 1 |
|
|---|
| 2 | ;
|
|---|
| 3 | ;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|---|
| 4 | ; AS IN 3.3.12.0 .... note the ? marks in the iWparam statements ... BUT MAINLY the "If $hFile - 1 Then ..." statement
|
|---|
| 5 | ;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
|
|---|
| 6 |
|
|---|
| 7 | ; #FUNCTION# ====================================================================================================================
|
|---|
| 8 | ; Authors........: Chris Haslam (c.haslam)
|
|---|
| 9 | ; Modified ......:
|
|---|
| 10 | ; ===============================================================================================================================
|
|---|
| 11 | Func _GUICtrlRichEdit_StreamToFile($hWnd, $sFilespec, $bIncludeCOM = True, $iOpts = 0, $iCodePage = 0)
|
|---|
| 12 | If Not _WinAPI_IsClassName($hWnd, $__g_sRTFClassName) Then Return SetError(101, 0, False)
|
|---|
| 13 |
|
|---|
| 14 | Local $iWparam
|
|---|
| 15 | If StringRight($sFilespec, 4) = ".rtf" Then
|
|---|
| 16 | $iWparam = ($bIncludeCOM ? $SF_RTF : $SF_RTFNOOBJS)
|
|---|
| 17 | Else
|
|---|
| 18 | $iWparam = ($bIncludeCOM ? $SF_TEXTIZED : $SF_TEXT)
|
|---|
| 19 | If BitAND($iOpts, $SFF_PLAINRTF) Then Return SetError(1041, 0, False)
|
|---|
| 20 | EndIf
|
|---|
| 21 | ; only opts are $SFF_PLAINRTF and $SF_UNICODE
|
|---|
| 22 | If BitAND($iOpts, BitNOT(BitOR($SFF_PLAINRTF, $SF_UNICODE))) Then Return SetError(1042, 0, False)
|
|---|
| 23 | If BitAND($iOpts, $SF_UNICODE) Then
|
|---|
| 24 | If Not BitAND($iWparam, $SF_TEXT) Then Return SetError(1043, 0, False)
|
|---|
| 25 | EndIf
|
|---|
| 26 |
|
|---|
| 27 | If _GUICtrlRichEdit_IsTextSelected($hWnd) Then $iWparam = BitOR($iWparam, $SFF_SELECTION)
|
|---|
| 28 |
|
|---|
| 29 | $iWparam = BitOR($iWparam, $iOpts)
|
|---|
| 30 | If $iCodePage <> 0 Then
|
|---|
| 31 | $iWparam = BitOR($iWparam, $SF_USECODEPAGE, BitShift($iCodePage, -16))
|
|---|
| 32 | EndIf
|
|---|
| 33 | Local $tEditStream = DllStructCreate($tagEDITSTREAM)
|
|---|
| 34 | DllStructSetData($tEditStream, "pfnCallback", DllCallbackGetPtr($__g_pGRC_StreamToFileCallback))
|
|---|
| 35 | Local $hFile = FileOpen($sFilespec, $FO_OVERWRITE)
|
|---|
| 36 | If $hFile - 1 Then Return SetError(102, 0, False) ;<<<<<<<<<<<<<<<<<<<<<<<<<<< problem
|
|---|
| 37 |
|
|---|
| 38 | DllStructSetData($tEditStream, "dwCookie", $hFile) ; -> Send handle to CallbackFunc
|
|---|
| 39 | _SendMessage($hWnd, $EM_STREAMOUT, $iWparam, $tEditStream, 0, "wparam", "struct*")
|
|---|
| 40 | FileClose($hFile)
|
|---|
| 41 | Local $iError = DllStructGetData($tEditStream, "dwError")
|
|---|
| 42 | If $iError <> 0 Then SetError(700, $iError, False)
|
|---|
| 43 | Return True
|
|---|
| 44 | EndFunc ;==>_GUICtrlRichEdit_StreamToFile
|
|---|
| 45 |
|
|---|
| 46 |
|
|---|
| 47 | ;
|
|---|
| 48 | ; AS IT WAS IN 3.3.8.1 ... for reference <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
|
|---|
| 49 | ;
|
|---|
| 50 | ; #FUNCTION# ====================================================================================================================
|
|---|
| 51 | ; Name ..........: _GUICtrlRichEdit_StreamToFile
|
|---|
| 52 | ; Description....: Writes contens of a control to a file
|
|---|
| 53 | ; Syntax ........: _GUICtrlRichEdit_StreamToFile($hWnd, $sFilespec[, $fIncludeCOM=True[, $iOpts=0[, $iCodePage = 0]]])
|
|---|
| 54 | ; Parameters.....: $hWnd - Handle to the control
|
|---|
| 55 | ; $sFileSpec - file specification
|
|---|
| 56 | ; $fIncludeCOM - (Optional)
|
|---|
| 57 | ; |True (default):
|
|---|
| 58 | ; | If writing to a .rtf file, includes any COM objects (space consuming)
|
|---|
| 59 | ; | If writing to any other file, writes a text represntation of COM objects
|
|---|
| 60 | ; |False: Writes spaces instead of COM objects
|
|---|
| 61 | ; $iOpts - additional options: (Optional) (default: 0)
|
|---|
| 62 | ; |$SFF_PLAINTRTF - write only rich text keywords common to all languages
|
|---|
| 63 | ; |$SF_UNICODE - write Unicode
|
|---|
| 64 | ; $iCodePage - Generate UTF-8 and text using this code page (Optional)
|
|---|
| 65 | ; |Default: do not
|
|---|
| 66 | ; Return values..: Success - True
|
|---|
| 67 | ; Failure - False and sets @error:
|
|---|
| 68 | ; |101 - $hWnd is not a handle
|
|---|
| 69 | ; |102 - Can't create $sFilespec
|
|---|
| 70 | ; |1041 - $SFF_PLAINRTF is invalid for a text file
|
|---|
| 71 | ; |1042 - $opts: invalid option
|
|---|
| 72 | ; |1043 - $SF_UNICODE is only valid for a text file
|
|---|
| 73 | ; |700 - internal error
|
|---|
| 74 | ; Authors........: Chris Haslam (c.haslam)
|
|---|
| 75 | ; Modified ......:
|
|---|
| 76 | ; Remarks .......: If text is selected, writes only the selection, else writes all text in the control
|
|---|
| 77 | ;+
|
|---|
| 78 | ; If the extension in $sFileSpec is .rtf, RTF is written, else text
|
|---|
| 79 | ; Related .......: _GUICtrlRichEdit_SetLimitOnText, _GUICtrlRichEdit_StreamFromVar, _GUICtrlRichEdit_StreamToFile
|
|---|
| 80 | ; Link ..........: @@MsdnLink@@ EM_STREAMIN
|
|---|
| 81 | ; Example .......: Yes
|
|---|
| 82 | ; ===============================================================================================================================
|
|---|
| 83 | Func _GUICtrlRichEdit_StreamToFile($hWnd, $sFilespec, $fIncludeCOM = True, $iOpts = 0, $iCodePage = 0)
|
|---|
| 84 | If Not _WinAPI_IsClassName($hWnd, $_GRE_sRTFClassName) Then Return SetError(101, 0, False)
|
|---|
| 85 |
|
|---|
| 86 | Local $iWparam
|
|---|
| 87 | If StringRight($sFilespec, 4) = ".rtf" Then
|
|---|
| 88 | $iWparam = _Iif($fIncludeCOM, $SF_RTF, $SF_RTFNOOBJS)
|
|---|
| 89 | Else
|
|---|
| 90 | $iWparam = _Iif($fIncludeCOM, $SF_TEXTIZED, $SF_TEXT)
|
|---|
| 91 | If BitAND($iOpts, $SFF_PLAINRTF) Then Return SetError(1041, 0, False)
|
|---|
| 92 | EndIf
|
|---|
| 93 | ; only opts are $SFF_PLAINRTF and $SF_UNICODE
|
|---|
| 94 | If BitAND($iOpts, BitNOT(BitOR($SFF_PLAINRTF, $SF_UNICODE))) Then Return SetError(1042, 0, False)
|
|---|
| 95 | If BitAND($iOpts, $SF_UNICODE) Then
|
|---|
| 96 | If Not BitAND($iWparam, $SF_TEXT) Then Return SetError(1043, 0, False)
|
|---|
| 97 | EndIf
|
|---|
| 98 |
|
|---|
| 99 | If _GUICtrlRichEdit_IsTextSelected($hWnd) Then $iWparam = BitOR($iWparam, $SFF_SELECTION)
|
|---|
| 100 |
|
|---|
| 101 | $iWparam = BitOR($iWparam, $iOpts)
|
|---|
| 102 | If $iCodePage <> 0 Then
|
|---|
| 103 | $iWparam = BitOR($iWparam, $SF_USECODEPAGE, BitShift($iCodePage, -16))
|
|---|
| 104 | EndIf
|
|---|
| 105 | Local $tEditStream = DllStructCreate($tagEDITSTREAM)
|
|---|
| 106 | DllStructSetData($tEditStream, "pfnCallback", DllCallbackGetPtr($_GRC_StreamToFileCallback))
|
|---|
| 107 | Local $hFile = FileOpen($sFilespec, 2) ; overwrite
|
|---|
| 108 | If $hFile - 1 Then Return SetError(102, 0, False)
|
|---|
| 109 |
|
|---|
| 110 | DllStructSetData($tEditStream, "dwCookie", $hFile) ; -> Send handle to CallbackFunc
|
|---|
| 111 | _SendMessage($hWnd, $EM_STREAMOUT, $iWparam, $tEditStream, 0, "wparam", "struct*")
|
|---|
| 112 | FileClose($hFile)
|
|---|
| 113 | Local $iError = DllStructGetData($tEditStream, "dwError")
|
|---|
| 114 | If $iError <> 0 Then SetError(700, $iError, False)
|
|---|
| 115 | Return True
|
|---|
| 116 | EndFunc ;==>_GUICtrlRichEdit_StreamToFile
|
|---|
| 117 |
|
|---|
