В архиве код и пример.
- Код: Выделить всё
....
FUNCTION PBJPEG_SampleHDC(BYVAL lHDC AS LONG, BYVAL lWidth AS LONG, BYVAL lHeight AS LONG, BYVAL lSrcLeft AS LONG, BYVAL lSrcTop AS LONG) AS LONG
' Given a valid hDC and dimensions, generate component samplings of an Image.
' A DIBSection is created to hold Sample(s) of the Image, from which the Image is
' decomposed into YCbCr components.
' Returns: 0 = Success
' 1 = API error while generating a DIBSection
