Catch_ImageA

Синтаксис

Function Catch_ImageA(byval array As Ubyte ptr) As Any ptr

Описание

Позволяет из массива с байтами , получить битмап (в Windows GDI+ Bitmap, в Linux PixBuf Bitmap). Функция используется в связке с IncludeBinary. Функция IncludeBinary бинарно вкладывает изображение в текущий модуль, а функция CatchImageA извлекает из него и преобразует в битмап (в Windows GDI+ Bitmap, в Linux PixBuf Bitmap). Поддерживаемые форматы: Jpg, Png, Gif, Bmp, Tiff

Параметры

array - указатель на массив с байтами

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer event
Dim As HWND hwnd
Dim As Any ptr gdiBitmap,bmp,font
Includebinary("1.png",hgMem)
font=CreateFontDrawA("Courier",24,3,2)
hwnd=OpenWindow("",10,10,200,200) : CenterWindow(hwnd)
gdiBitmap=Catch_ImageA(hgmem)
ImageStartDrawA(gdiBitmap)
TextDrawA("Gdi+",1,60,font,&hFFFF0000,,4)
StopDrawA
bmp=CreateHBitmapFromGpBitmap(gdiBitmap)
ImageGadget(1,50,30,170,170,bmp)
Do
  event=WaitEvent()
  If Event=EventClose Then End
Loop
FreeGpBitmap(gdiBitmap): Free_Image(bmp)

Результат

Created with the Personal Edition of HelpNDoc: Single source CHM, PDF, DOC and HTML Help creation