code:

---

;///////////////////////////////////////////////////////////////////////////////
;/                                                                             /
;/ Syntax:  succ.l = image_CutRP{image.l,*rp.RastPort,@x.l,@y.l,@xs.l,@ys.l:: /
;/ ,@trgb.l,@tolerance.l,@dithermode.l,@colorMap.l}                            /
;/                                                                             /
;/ Description:                                                                /
;/ Creates an image object out of (a part of) the given Rastport.              /
;/ NOTE:  ideal for screen-grabbing.                                           /
;/                                                                             /
;/ Inputs:                                                                     /
;/ - image.l        : image object ID                                              /
;/ - *rp.RastPort   : Rastport where to fetch the data from                    /
;/ - trgb.l         : rgbvalue for the desired transparent color, e.g. $ff0000 f:: /
;/ or red, set it to -1 for no transparency                                    /
;/ - x.l,y.l        : optional: position from where to fetch                       /
;/ - xs.l,ys.l      : optional: width and height of the area to fetch              /
;/ - tolerance.l    : ???                                                      /
;/ - dithermode.l   : ???                                                     /
;/ - colorMap.l     : ???                                                       /
;/                                                                             /
;/ Result:                                                                     /
;/ - succ.l     : True if everything went well, False if it failed             /
;/                                                                             /
;///////////////////////////////////////////////////////////////////////////////
Function.l image_CutRP{image.l,*rp.RastPort,@x.l,@y.l,@xs.l,@ys.l,@trgb.l,@tolerance.l,@dithermode.l,@colorMap.l}
SHARED imagedat(),imageengine:USEPATH imagedat(image)
succ.l = False
If *rp
  If x<0 Then x=0
  If y<0 Then y=0
  If *rpLayer
    If xs<=0 Then xs=*rpLayerWidth  -x
    If ys<=0 Then ys=*rpLayerHeight -y
  Else
    If *rpBitMap
      If xs<=0 Then xs=GetBitMapAttr_(*rpBitMap,#BMA_WIDTH)  -x
      If ys<=0 Then ys=GetBitMapAttr_(*rpBitMap,#BMA_HEIGHT) -y
    End If
  End If

  If image_Create{image,xs,ys}
    d.l=GetBitMapAttr_(*rpBitMap,#BMA_DEPTH)
    If d>8 OR d<=0
      ReadPixelArray_ raw_ptr,0,0,bpr,*rp,x,y,xs,ys,#RECTFMT_ARGB
    Else
      *scr.Screen = Peek.l(Addr Screen (Used Screen))
      If *scr
        scr_depth.l = d ;*scrBitMapDepth
        CopyMem_ *rp,temprp.RastPort,SizeOf.RastPort
        temprpLayer = 0
        xsw.l = (((xs+15) LSR 4) LSL 4)
        temprpBitMap = AllocBitMap_ (xsw,1,8,0,0)
        temprpBitMapBytesPerRow = xsw LSR 3
        penArray8.l = tempbuffer_Get{xsw*ys*1}
        ReadPixelArray8_ *rp,x,y,x+xs-1,y+ys-1,penArray8,temprp
        FreeBitMap_ temprpBitMap

        lut.l = AllocVec_(256*4,#MEMF_CLEAR)

        If colorMap=-1
          For n.l=0 To 1 LSL scr_depth-1
            GetRGB32_ *scrViewPortColorMap,n,1,col.cmapitem
            R.l = colR LSR 24
            G.l = colG LSR 24
            B.l = colB LSR 24
            ARGB.l = (R LSL 16) | (G LSL   | (B)
            Poke.l lut+n*4,ARGB
          Next
        Else
          For pen.l=0 To (1 LSL scr_depth)-1
            *CReg.ColorRegister = colorMap + 3*pen
            Poke.l lut + (pen LSL 2),((*CRegred&$00FF) LSL 16) | ((*CReggreen & $00FF) LSL   | (*CRegblue & $FF)
          Next
        End If
        For y.l = 0 To ys-1
          For x.l = 0 To xs-1
            pen.l = Peek.b(penArray8+y*xsw+x) & $FF
            Poke.l raw_ptr+y*bpr+(x LSL 2),Peek.l(lut+(pen LSL 2))
          Next
        Next
        FreeVec_ lut
      End If
    End If
    If trgb><-1
      image_InitMask{image,trgb,tolerance.l}
    Else
      mask_trgb = -1
    End If
    succ.l = True
  End If
Else
  error{"\__THIS_FUNCTION: Uninitialized rastport!"}
End If
If succ=False Then image_Free{image}
Function Return succ
USELASTPATH
End Function

---

code:

---

...
img = image_Load{"T:Attachment.jpg"}
image_Resize{img,800,600,IMG_KEEP_ASPECT|IMG_INTERPOLATION_BILINEAR}
image_Save{"T:Attachment_sized.jpg","JPEG",IMG_COMPRESSION_HIGH}
...

---

code:

---

;///////////////////////////////////////////////////////////////////////////////
;/                                                                             /
;/ Syntax:  result.l = image_WriteDT{fid.l,image.l}                           /
;/                                                                             /
;/ Description:                                                                /
;/ * private *                                                                 /
;/ Write a picture as 24Bit IFF-ILBM via datatypes.                            /
;/                                                                             /
;/ Inputs:                                                                     /
;/ - image.l     : image object ID                                             /
;/ - fid.l       : file object ID                                              /
;/                                                                             /
;/ Result:                                                                     /
;/ - result.l    : -1 if everything went well, 0 otherwise                     /
;/                                                                             /
;/ Bugs: does not work on AfA4.2 and lower                                     /
;/                                                                             /
;///////////////////////////////////////////////////////////////////////////////
Function.l image_WriteDT{fid.l,image.l}
SHARED imagedat()
DEFTYPE.dtWrite DTMW
DEFTYPE.pdtBlitPixelArray DTMB
succ.l=False
If ARGBbitmap_ptr
  *newbm.BitMap = AllocBitMap_(img_width,img_height,24,#BMF_MINPLANES|#BMF_SPECIALFMT|(#PIXFMT_RGB24 LSL #BMB_PIXFMT_SHIFTUP) ,0)
  If *newbm=0 Then error{"\__THIS_FUNCTION: Unable to allocate 24bit Bitmap!"} : Function Return False

  DEFTYPE.RastPort rp
  InitRastPort_ rp
  rpBitMap = *newbm
  ClipBlit_ rastport_ptr,0,0,rp,0,0,img_width,img_height,$c0


  basename.s = "iff"          ;          #DTA_BaseName    ,&basename,@@
  tag5.tag5ti_Tag  = #DTA_SourceType,#DTST_RAM,#DTA_GroupID,#GID_PICTURE,#PDTA_DestMode,#PMODE_V43,#PDTA_BitMap,*newbm,#TAG_DONE,0
  *DTPic._Object = NewDTObjectA_ (0,tag5)

  If *DTPic
    tag5.tag5ti_Tag = #PDTA_BitMapHeader,&*bmhd.BitMapHeader,#TAG_DONE,0
    GetDTAttrsA_ *DTPic,tag5
    If *bmhd
      *bmhdbmh_Width      = img_width
      *bmhdbmh_Height     = img_height
      *bmhdbmh_Depth      = 24
      *bmhdbmh_XAspect    = 22
      *bmhdbmh_YAspect    = 22
      *bmhdbmh_PageWidth  = 1600
      If (*bmhdbmh_Width<=1280) Then *bmhdbmh_PageWidth=1280
      If (*bmhdbmh_Width<=1024) Then *bmhdbmh_PageWidth=1024
      If (*bmhdbmh_Width<= 800) Then *bmhdbmh_PageWidth= 800
      If (*bmhdbmh_Width<= 640) Then *bmhdbmh_PageWidth= 640
      If (*bmhdbmh_Width<= 320) Then *bmhdbmh_PageWidth= 320
      *bmhdbmh_PageHeight = *bmhdbmh_PageWidth * 3 / 4
    Else
       error{"\__THIS_FUNCTION: Unable to get bitmap header!"}
    End If

    ;fh.l = Open_ (&filename.s,#MODE_NEWFILE)
    fh.l = file_GetFH{fid}
    If fh
      DTMWMethodID            = #DTM_WRITE
      DTMWdtw_GInfo           = 0
      DTMWdtw_FileHandle      = fh
      DTMWdtw_Mode            = #DTWM_IFF
      DTMWdtw_AttrList        = 0
      succ = DoDTMethodA_(*DTPic,0,0,DTMW)
      ;succ = DoMethodA(*DTPic,DTMW)
     ; Close_ fh
      If succ=False
        error{"\__THIS_FUNCTION: Unable to write image via "+basename+" datatype!"}
      EndIf
    EndIf

    DisposeDTObject_ *DTPic
  Else
    error{"\__THIS_FUNCTION: Unable to create datatype object out of the bitmap!"}
    FreeBitMap_ *newbm
  EndIf
Else
  error{"\__THIS_FUNCTION: No bitmap!"}
End If
Function Return succ
End Function

---

Zitat:

---

hm? Im Groben funktionierts via Datatype mit ziemlich genau so viel Code und mit ungefähr der gleichen Menge an Tags.

---

code:

---

Function.l image_LoadViaDT{image.l,filename.s,imgnum.l}
DEFTYPE.BitMapHeader *bmhdp
DEFTYPE.BitMap *bmap
DEFTYPE.pdtBlitPixelArray DTM
succ.l = False
If imgnum<0 Then imgnum=0
tag5.tag5ti_Tag = #PDTA_DestMode, #PMODE_V43, #DTA_SourceType, #DTST_FILE, #DTA_GroupID, #GID_PICTURE, #PDTA_Remap, False,#PDTA_WhichPicture,imgnum,#TAG_DONE,0
*DTPic._Object = NewDTObjectA_ (&filename.s,tag5)
If *DTPic
  tag5.tag5ti_Tag = #PDTA_BitMapHeader,&*bmhdp,#TAG_DONE,0
  GetDTAttrsA_ *DTPic,tag5
  If image_Create{image,*bmhdpbmh_Width,*bmhdpbmh_Height}
    If image_Lock{image}

      ; try to get as ARGB immediately, good datatpyes support this, but not all!
      ;If *bmhdpbmh_Depth>8 ; dont even try if depth <=8
        DTMMethodID            = #PDTM_READPIXELARRAY
        DTMpbpa_PixelData      = raw_ptr          ; /* The pixel data to transfer to/from */
        DTMpbpa_PixelFormat    = #PBPAFMT_ARGB     ; /* Format of the pixel data (see "Pixel Formats" below) */
        DTMpbpa_PixelArrayMod  = bpr              ; /* Number of bytes per row */
        DTMpbpa_Left           = 0                 ; /* Left edge of the rectangle to transfer pixels to/from */
        DTMpbpa_Top            = 0                 ; /* Top edge of the rectangle to transfer pixels to/from */
        DTMpbpa_Width          = *bmhdpbmh_Width  ; /* Width of the rectangle to transfer pixels to/from */
        DTMpbpa_Height         = *bmhdpbmh_Height
        If DoMethodA (*DTPic,&DTM) Then succ = True
      ;End If

      ; ok, try to read out the bitmap if ARGB failed...
      If succ=False
        tag5.tag5ti_Tag = #PDTA_ColorRegisters,&colorMap.l,#TAG_DONE,0
        If GetDTAttrsA_ (*DTPic,tag5)
          tag5.tag5ti_Tag = #PDTA_BitMap,&*bmap,#TAG_DONE,0
          If GetDTAttrsA_ (*DTPic,tag5)
            *layerinfo.Layer_Info = NewLayerInfo_
            If *layerinfo
              *layer.Layer = CreateUpfrontHookLayer_ (*layerinfo,*bmap,0,0,*bmhdpbmh_Width-1,*bmhdpbmh_Height-1,0,#LAYERS_NOBACKFILL,0)
              If *layer
                *rp.RastPort = *layerrp
                If *rp
                  image_Unlock{image}
                  succ = image_CutRP{image,*rp,0,0,*bmhdpbmh_Width,*bmhdpbmh_Height,-1,-1,-1,colorMap}
                  If succ Then image_Lock{image}
                End If
                DeleteLayer_ 0,*layer
              End If
              DisposeLayerInfo_ *layerinfo
            End If
          End If
        End If
      End If

      ; Try READPIXELARRAY LUT8, if we couldn't catch the bitmap (outch!)
      If succ=False
        penArray8.l = AllocVec_(*bmhdpbmh_Height * *bmhdpbmh_Width,#MEMF_ANY)
        lut.l       = AllocVec_(256*4,#MEMF_CLEAR)
        If penArray8><0 AND lut><0
          DTMMethodID            = #PDTM_READPIXELARRAY
          DTMpbpa_PixelData      = penArray8         ; /* The pixel data to transfer to/from */
          DTMpbpa_PixelFormat    = #PBPAFMT_LUT8     ; /* Format of the pixel data (see "Pixel Formats" below) */
          DTMpbpa_PixelArrayMod  = *bmhdpbmh_Width  ; /* Number of bytes per row */
          DTMpbpa_Left           = 0                 ; /* Left edge of the rectangle to transfer pixels to/from */
          DTMpbpa_Top            = 0                 ; /* Top edge of the rectangle to transfer pixels to/from */
          DTMpbpa_Width          = *bmhdpbmh_Width  ; /* Width of the rectangle to transfer pixels to/from */
          DTMpbpa_Height         = *bmhdpbmh_Height
          If DoMethodA (*DTPic,&DTM)
            tag5.tag5ti_Tag = #PDTA_ColorRegisters,&colMap.l,#TAG_DONE,0
            If GetDTAttrsA_ (*DTPic,tag5)
              For pen.l=0 To (1 LSL *bmhdpbmh_Depth)-1
                *CReg.ColorRegister = colMap + 3*pen
                Poke.l lut + (pen LSL 2),((*CRegred&$00FF) LSL 16) | ((*CReggreen & $00FF) LSL   | (*CRegblue & $FF)
              Next
              For y.l = 0 To *bmhdpbmh_Height -1
                For x.l = 0 To *bmhdpbmh_Width -1
                  pen.l = Peek.b(penArray8+y**bmhdpbmh_Width+x) & $FF
                  Poke.l raw_ptr+y*bpr+(x LSL 2),(Peek.l(lut+(pen LSL 2)) );& $FEFEFEFE) LSR 1
                Next
              Next
              succ.l = True
            End If
          End If
          If penArray8 Then FreeVec_ penArray8 : penArray8 = 0
          If lut       Then FreeVec_ lut       : lut       = 0
        End If
      End If
      image_Unlock{image}
    End If
    If succ=False Then image_Free{image}
  End If
  DisposeDTObject_ (*DTPic)
End If
Function Return succ
End Function

---

code:

---

Import Amiga.CImage

CImage img = new CImage("DH0:myImage.jpg")
img.Resize(800,600,CIMAGE_INTERPOLATION_CUBIC);
img.Save("DH0:myImage_in800x600.png","PNG");

---

code:

---

Import Amiga.CSound

CSound snd = new CSound("DH0:mySound.wav")
snd.Play();
snd.Save("DH0:mySound.mp3","MP3")

---

code:

---

Import Amiga.CAudioStream

CAudioStream music = new CAudioStream("DH0:myMusic.mod")
while (music.Available()>0) {
  music.PlayBuffer()
}

---

code:

---

/* free a string */
void str_free(str &string) {
  if (string) {
    free(strH(string));
    string=NULL;
  }
}

---