[PureBASIC] Сохранение картинки в память Опции

[Guevara-chan]

Нашла сегодня на офф. форуме:

Код

UsePNGImageEncoder()
UsePNGImageDecoder()
UseJPEGImageEncoder()

ImageSize = ?image_end-?image
CatchImage(0,?image,ImageSize)
ImageDataPipe = CreateNamedPipe_("\\.\pipe\ImageDataPipe",#PIPE_ACCESS_INBOUND|#FILE_FLAG_OVERLAPPED,#PIPE_TYPE_BYTE|#PIPE_READMODE_B
YTE|#PIPE_NOWAIT,1,ImageSize,ImageSize,#NMPWAIT_USE_DEFAULT_WAIT,#Null)
PNGImageData = AllocateMemory(ImageSize);The Size of the png is smaller, but we dont know yet how much exactly
SaveImage(0,"\\.\pipe\ImageDataPipe",#PB_ImagePlugin_PNG)
ReadFile_(ImageDataPipe,PNGImageData,ImageSize,@PNGImageSize,#Null)
CloseHandle_(ImageDataPipe)

;Just to test the new image we save it as jpeg :D
If CatchImage(1,PNGImageData,PNGImageSize)
 SaveImage(1,"c:\test.jpeg",#PB_ImagePlugin_JPEG)
EndIf

DataSection
image:
IncludeBinary "C:\windows\Angler.bmp"
image_end:
EndDataSection