And this is the other one, IMAGE_BGR_to_BGRA:
Function IMAGE_BGR_to_BGRA(ByVal sBGRData As String) As String
Local lPos As Long
Local pByteIn As DWord
Local pByteOut As DWord
Local sImageData As String
'---Create a new buffer of 4 bytes for each color in BGR string
sImageData = String$(Len(sBGRData)/3 * 4, Chr$(255))
'---
pByteIn = StrPtr(sBGRData)
pByteOut = StrPtr(sImageData)
For lPos = 0 To Len(sBGRData) - 1 Step 3
Memory_Copy(pByteIn + lPos, pByteOut, 3)
pByteOut += 4
Next
Function = sImageData
End Function
Please check results because I didn't make any test.
Bookmarks