, I almost missed it...but the example was soooo Excellent!!!! )
but I think I missed a few key points
, but I can't seem to find docs that straight out tell me....1 do this...2 do that, and 3 here is WHY you did 1 and 2) That is always the way I see docs so I should NOT be suprised.
' ===========================================================================
' ADDED BY MCM:
' Functions for don dickinson's RTF printer.
' This is a version of SetRTFText and the associated callback which allows
' passing a text string instead of an external file to the "setRTF" routine
' MCM 8/18/03
' TESTED, WORKS GOOD.
' ============================================================================
TYPE SetRtfBufferParmType
dwAddr AS LONG 'pointer to data
cch AS LONG ' total length of data
offset AS LONG 'current offset in data
END TYPE
FUNCTION SetRTFTextBuffer ( rtfEdit AS LONG, szBUffer AS ASCIIZ , iAttrib AS LONG ) AS LONG
'
' Purpose:
' Loads an RTF control with the contents of a string buffer
' given control handle and an NTS buffer
'
' Parameters:
' rtfEdit = Handle of a rich edit control
' szBuffer = Address of NTS containing text
' iAttrib = Either %SF_TEXT or %SF_RTF - specifies the
' type of text pointed to by szBuffer.
'
' Returns:
' %True on success
' %False if failure
'
DIM eStream AS EDITSTREAM
DIM Parm AS SetRTFBufferParmType
Parm.dwAddr = VARPTR(szBuffer) ' address of NTS
parm.cch = lStrlen(szBuffer) ' Total LEN of data to be sent to control
Parm.Offset = 0 ' how much as been sent so far from callback
eStream.dwCookie = VARPTR (Parm) ' address so we can update in callback
eStream.pfnCallback = CODEPTR(ReadStreamBufferCallback)
eStream.dwError = 0
SendMessage rtfEdit, %EM_STREAMIN, iAttrib, VARPTR(eStream)
'- The text box is dirty now ...
SendMessage rtfEdit, %EM_SETMODIFY, 1, 0
FUNCTION = %True
END FUNCTION
' PARAMS PASSED TO EM_STREAMIN CALLBACK PROC
' parm1, dwcookie In this case, address of a SetRTFBufferParmType structure
' parm2, pbBuffer Address of buffer to which to write the data
' parm3, cb Max number of bytes the control wants to accept on this call
' parm4, pCb LONG to tell control how many bytes actually written to pbBuffer
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
FUNCTION ReadStreamBufferCallback ( Parm AS SetRTFBufferParmType, _
BYVAL pbBuffer AS DWORD, _
BYVAL cb AS LONG, _
pcb AS LONG) AS DWORD
LOCAL dwSource AS DWORD, BytesLeft AS LONG
BytesLeft = parm.cch - parm.offset ' how much have we NOT sent yet?
' we can send cb or bytesleft, whichever is less
pcb = MIN(BytesLeft, cb)
IF PCB THEN ' this will be zero if we have already sent EXACTLY the length of the file!
dwSource = parm.dwAddr + Parm.offset ' start of data + what's already sent
'Copy the memory to the directed buffer
copyMemory BYVAL pbBuffer, BYVAL dwSource, pcb ' use BYVALs on source, dest to avoid
' problems with conflicting Win32api.INC
' increment the offset for next trip
parm.offset = parm.offset + pcb
END IF
FUNCTION = 0
' DON'S NOTES RE RETURN
'- I always return 0. This if non-zero is returned,
' it indicates an error occured. For a "real-application"
' you probably want to check err for a read error
' during the Get operation.
' [MCM note: original code was reading a disk file for text]
'
' The edit control itself will stop calling this call-back
' if one of the following occurs ...
'
' 1. Non-zero is returned
' 2. zero returned in pcb
' 3. pcb is less than cb upon return
' 4. an error occurs transferring data into buffer (out
' of memory, etc.)
' 5. rtf data is invalid.
' 6. If the edit control is single line and a
' crlf pair is copied into the buffer.
'
END FUNCTION
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
FUNCTION SetRTFText ( rtfEdit AS LONG, sFileName AS STRING, iAttrib AS INTEGER ) AS INTEGER
'
' Purpose:
' Loads an RTF control with the contents of an RTF file given
' the control's window handle and the name of the file.
'
' Parameters:
' rtfEdit = Handle of a rich edit control
' sFileName = File name to read
' iAttrib = Either %SF_TEXT or %SF_RTF - specifies the
' type of file to be read.
'
' Returns:
' %True on success
' %False if failure
'
DIM hFile AS LONG
DIM eStream AS EDITSTREAM
DIM ofS AS OFSTRUCT
ON ERROR RESUME NEXT
hFile = FREEFILE
OPEN sFileName FOR BINARY AS #hFile
IF ERR THEN
'- unable to open file
FUNCTION = %False
ELSE
eStream.dwCookie = hFile
eStream.pfnCallback = CODEPTR(ReadStreamCallback)
eStream.dwError = 0
SendMessage rtfEdit, %EM_STREAMIN, iAttrib, VARPTR(eStream)
'- The text box is dirty now ...
SendMessage rtfEdit, %EM_SETMODIFY, 1, 0
CLOSE #hFile
FUNCTION = %True
END IF
END FUNCTION
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
FUNCTION ReadStreamCallback ( BYVAL dwCookie AS DWORD, _
BYVAL pbBuffer AS BYTE PTR, _
BYVAL cb AS LONG, _
pcb AS LONG) AS DWORD
DIM rOver AS OVERLAPPED
DIM sInput AS STRING
DIM iBuf AS LONG
DIM iCopyLen AS LONG
'- Find out if the amount requested is
' beyond the end of the file.
'
IF LOF(dwCookie) - LOC(dwCookie) < 0 THEN
iCopyLen = LOF(dwCookie) - LOC(dwCookie)
ELSE
iCopyLen = cb
END IF
sInput = SPACE$(iCopyLen)
'- Incoming data
GET #dwCookie, , sInput
pcb = iCopyLen
'- Yes, this is sort of slow, but
' I just whipped this together. You
' could use rtlCopyMemory to transfer
' the memory more quickly, but I can't
' remember it's syntax, so I'll use pointers.
'
FOR iBuf = 0 TO iCopyLen - 1
@pbBuffer = ASC(MID$(sInput, iBuf + 1, 1))
pbBuffer = pbBuffer + 1
NEXT iBuf
'- I always return 0. This if non-zero is returned,
' it indicates an error occured. For a "real-application"
' you probably want to check err for a read error
' during the Get operation.
'
' The edit control itself will stop calling this call-back
' if one of the following occurs ...
'
' 1. Non-zero is returned
' 2. zero returned in pcb
' 3. pcb is less than cb upon return
' 4. an error occurs transferring data into buffer (out
' of memory, etc.)
' 5. rtf data is invalid.
' 6. If the edit control is single line and a
' crlf pair is copied into the buffer.
'
FUNCTION = 0
END FUNCTION
Leave a comment: