code:

---

*MyIntuitionBase.IntuitionBase = IntuitionBase; "IntuitionBase" ist leider schon eine Funktion,
                                              ; die den Pointer zur IntuitionBase zurückgibt
                                              ; deshalb können wir die Variable nicht so nennen
*nextscreen.Screen = *MyIntuitionBaseFirstScreen

---

code:

---

Function.l scan {path.s}
DEFTYPE.FileInfoBlock fib
lock.l = Lock_(&path.s,#ACCESS_READ)
If lock
  If Examine_ (lock,&fib)
    While ExNext_(lock,&fib)
      filename.s = path.s+"/"+Peek.s(&fibfib_FileName)
      If fibfib_DirEntryType<0
        ; Datei!
      Else
        ; Verzeichnis!
        scan{filename.s}
      End If
    Wend
  End If
  UnLock_ lock
End If
End Function

scan{"DH0:ScanFromHere"}

---

code:

---

*fib.FileInfoBlock = AllocDosObject_ (#DOS_FIB,#TAG_DONE)
...
FreeDosObject_ #DOS_FIB,*fib

---

code:

---

fid.l = file_Open{"DH0:MyFile.dat",#file_read}
If fid>=0
  file_WriteLine{fid,"In die Datei will ich einen Text speichern!"}
  file_WriteMem{fid,memptr.l,lenght.l} ; binäre Daten Speichern
  file_Close{fid}
End If

---

Das wäre der Include weg. Jede Include hat ein integriertes Demo, wenn man sie direkt kompiliert.
Es gibt auch ziemliche Low-Level Includes, z.B. prefixtree.include oder so. Wenn wir noch weiter runter gehen sind wir bei + und -, aber dafür muss man ja nicht extra ein Demo schreiben, oder?

> Also von Amiblitz muss ich nun weg, hilft ja alles nichts.
Doch. Es würde helfen, wenn du einen richtigen Bugreport ablieferst, dann wird dir sicher schnell geholfen. Aber mehr als "es geht ned!" muss es schon sein, wir können ja nicht auf deinen Bildschirm gucken.

> Ich glaube, ich werde doch wieder alles in ASM schreiben müssen,
> das hält mich zwar leider länger an stellen auf, die ich eigentlich
> vermeiden wollte, da es aber einfach keine vernünftige Alternative
> zu geben scheint, werde ich mir da schon was zusammenbasteln.
Sorry, das ist eine ziemlich dämliche Lösung des Problems. Dein Problem ist vermutlich mit dem Kopieren einer Library oder dem deaktivieren eines Patches behoben. Auf einem cleanen System läuft Amiblitz3 definitiv. Zur Not installiere dir Amikit oder ein nacktes OS3.9+Picasso+AHI, da läuft es auf jeden Fall.
So kommst du viel schneller zum Ziel als mit ASM bit-popeln. Auf http://www.amiforce.de gibts es eine Community die dir bei allen Coding Problemen helfen wird.

P.S.: Mehr als dir die Hand reichen kann ich nicht. Zugreifen musst du schon selbst.

--
Thilo Köhler, Author von:
HD-Rec, Sweeper, Samplemanager, ArTKanoid, Monkeyscript, Toadies, AsteroidsTR, TuiTED, PosTED, TKPlayer, AudioConverter, ScreenCam, PerlinFX, MapEdit, TK AB3 Includes und viele mehr...
Homepage: http://www.hd-rec.de



[ Dieser Beitrag wurde von Der_Wanderer am 24.09.2008 um 23:57 Uhr geändert. ]

code:

---

NPrint "Hello World"
End

---

code:

---

XInclude "ahi.include.bb2"
ahi_LoadSound{0,"DH0:Samples/MySound.wav"}
ahi_PlaySound{0}
ahi_SaveSound{0,"DH0:Samples/MySound.mp3",@"MP3"}
End

---

code:

---

XInclude "image.include.bb2"
image_Load{0,"DH0:Pictures/MyFoto.jpg"}
image_Resize{0,800,600,1}
image_Save{1,"DH0:Pictures/MyFoto_in_800x600.jpg",@"JPEG"}
End

---

code:

---

...
  *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!"}

  *DTPic._Object = NewDTObjectA_ (0,Tags(#DTA_SourceType  ,#DTST_RAM,@@
                                         #PDTA_DestMode   ,#PMODE_V43,@@
                                         #PDTA_SourceMode ,#PMODE_V43,@@
                                         #PDTA_BitMap     ,*newbm,@@
                                         #DTA_GroupID     ,#GID_PICTURE))
  If *DTPic
    GetDTAttrsA_ *DTPic,Tags(#PDTA_BitMapHeader,&*bmhd.BitMapHeader)
    If *bmhd
      *bmhdbmh_Width  = img_width
      *bmhdbmh_Height = img_height
      *bmhdbmh_Depth  = 24
    End If

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

    DisposeDTObject_ *DTPic

---

Zitat:

---

Original von thomas:
@Der_Wanderer:

Welches Pixelformat hat die Bitmap denn ? Wie gesagt, das muß PIXFMT_RGB24 sein, sonst geht es nicht. Kann auch sein, daß die ModeID dazu passen muß, das weiß ich aber nicht sicher.

---

Zitat:

---

Mein Code setzt auch noch XAspect, YAspect, PageWidth und PageHeight im BitMapHeader, aber das ist glaube ich nur, damit Programme wie PPaint das Bild korrekt laden.

---

Zitat:

---

Zitat:

---

Als Fehlermeldung bekomme ich

---

Das ist doch kein Crash !

---

Zitat:

---

Zitat:

---

kann man verhindern dass die Bitmap bei DisposeDTObject freigegeben wird?

---

Es gibt ein PDTA_FreeSourceBitMap. Ich habe aber noch nicht

---

Zitat:

---

ausprobiert, ob das was bewirkt. Da man die Bitmap in den meisten Fällen eh nach 24bit konvertieren muß, habe ich immer eine temporäre angelegt.

---

code:

---

Function.l image_SaveDT{image.l,filename.s}
SHARED imagedat()
DEFTYPE.dtWrite DTMW

succ.l=False
If ARGBbitmap_ptr
  *DTPic._Object = NewDTObjectA_ (0,Tags(#DTA_SourceType,#DTST_RAM,@@
                                         #PDTA_DestMode,#PMODE_V43,@@
                                         #DTA_GroupID,#GID_PICTURE,@@
                                         #PDTA_Remap,0,@@
                                         #PDTA_ModeID,0,@@
                                         #PDTA_NumColors,0,@@
                                         #PDTA_BitMap,ARGBbitmap_ptr))
  If *DTPic
    GetDTAttrsA_ *DTPic,Tags(#PDTA_BitMapHeader,&*bmhd.BitMapHeader)

    If *bmhd
      *bmhdbmh_Width  = img_width
      *bmhdbmh_Height = img_height
      *bmhdbmh_Depth  = 24
    End If

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

    DisposeDTObject_ *DTPic
    ARGBbitmap_ptr = 0; we must NULL the bitmap
  Else
    error{"\__THIS_FUNCTION: Unable to create Datatype Object out of the bitmap!"}
  EndIf
Else
  error{"\__THIS_FUNCTION: No bitmap!"}
End If
Function Return succ
End Function

---

Zitat:

---

Original von MaikG:
24 Bitplanes, für 24 Bit noch Planar speichern?

---

Zitat:

---

Ich dachte an sowas wie

0xFFFFFF 0xFF0000 0x00FF00 0x0000FF

für ein weiss, rot, grün und blauen Punkt.

---

Zitat:

---

bb2 Dateien, wo immer die auch her ist kann man meistens nicht
lesen(kein ASCII).

---

Zitat:

---

Wie siehts mit Speichern via Datatype aus?
Ich habe ein Beispiel dafür gefunden aber nicht so richtig
durchgesehen. Weil da würde nie die Datatype selectiert mit
dem man Speichern will.

---

code:

---

;Bitplanes bit masks
#PF_A1 = $01000000 ;Alpha
#PF_A2 = $02000000
#PF_A3 = $04000000
#PF_A4 = $08000000
#PF_A5 = $10000000
#PF_A6 = $20000000
#PF_A7 = $40000000
#PF_A8 = $80000000

#PF_R1 = $00010000 ;Red
#PF_R2 = $00020000
#PF_R3 = $00040000
#PF_R4 = $00080000
#PF_R5 = $00100000
#PF_R6 = $00200000
#PF_R7 = $00400000
#PF_R8 = $00800000

#PF_G1 = $00000100 ;Green
#PF_G2 = $00000200
#PF_G3 = $00000400
#PF_G4 = $00000800
#PF_G5 = $00001000
#PF_G6 = $00002000
#PF_G7 = $00004000
#PF_G8 = $00008000

#PF_B1 = $00000001 ;Blue
#PF_B2 = $00000002
#PF_B3 = $00000004
#PF_B4 = $00000008
#PF_B5 = $00000010
#PF_B6 = $00000020
#PF_B7 = $00000040
#PF_B8 = $00000080

...

    ; write BODY chunk
    file_WriteChunk{dos,@"BODY",-1,False}
    blen.l = (img_width + 15) / 16 * 2 ; byte length for one bitplane line
    tmp01.l = tmp +  0 * blen
    tmp02.l = tmp +  1 * blen
    tmp03.l = tmp +  2 * blen
    tmp04.l = tmp +  3 * blen
    tmp05.l = tmp +  4 * blen
    tmp06.l = tmp +  5 * blen
    tmp07.l = tmp +  6 * blen
    tmp08.l = tmp +  7 * blen
    tmp09.l = tmp +  8 * blen
    tmp10.l = tmp +  9 * blen
    tmp11.l = tmp + 10 * blen
    tmp12.l = tmp + 11 * blen
    tmp13.l = tmp + 12 * blen
    tmp14.l = tmp + 13 * blen
    tmp15.l = tmp + 14 * blen
    tmp16.l = tmp + 15 * blen
    tmp17.l = tmp + 16 * blen
    tmp18.l = tmp + 17 * blen
    tmp19.l = tmp + 18 * blen
    tmp20.l = tmp + 19 * blen
    tmp21.l = tmp + 20 * blen
    tmp22.l = tmp + 21 * blen
    tmp23.l = tmp + 22 * blen
    tmp24.l = tmp + 23 * blen
    tmp25.l = tmp + 24 * blen
    tmp26.l = tmp + 25 * blen
    tmp27.l = tmp + 26 * blen
    tmp28.l = tmp + 27 * blen
    tmp29.l = tmp + 28 * blen
    tmp30.l = tmp + 29 * blen
    tmp31.l = tmp + 30 * blen
    tmp32.l = tmp + 31 * blen

    omax.l = (img_width-1) LSR 4

    For y.l = 0 To img_height-1  ; for each line
      For o.l = 0 To omax ; go for all 16 pixel
        flag.l = 1 LSL 15
        plane01.l = 0
        plane02.l = 0
        plane03.l = 0
        plane04.l = 0
        plane05.l = 0
        plane06.l = 0
        plane07.l = 0
        plane08.l = 0
        plane09.l = 0
        plane10.l = 0
        plane11.l = 0
        plane12.l = 0
        plane13.l = 0
        plane14.l = 0
        plane15.l = 0
        plane16.l = 0
        plane17.l = 0
        plane18.l = 0
        plane19.l = 0
        plane20.l = 0
        plane21.l = 0
        plane22.l = 0
        plane23.l = 0
        plane24.l = 0
        plane25.l = 0
        plane26.l = 0
        plane27.l = 0
        plane28.l = 0
        plane29.l = 0
        plane30.l = 0
        plane31.l = 0
        plane32.l = 0

        o4.l = o LSL 4
        oend.l = Min(o4+15,img_width-1)
        For x.l = o4 To oend
          dat.l = Peek.l( ARGBptr + (x*bpp+y*bpr) )
          ; red
          If dat&#PF_R1 Then plane01 | flag
          If dat&#PF_R2 Then plane02 | flag
          If dat&#PF_R3 Then plane03 | flag
          If dat&#PF_R4 Then plane04 | flag
          If dat&#PF_R5 Then plane05 | flag
          If dat&#PF_R6 Then plane06 | flag
          If dat&#PF_R7 Then plane07 | flag
          If dat&#PF_R8 Then plane08 | flag

          ; green
          If dat&#PF_G1 Then plane09 | flag
          If dat&#PF_G2 Then plane10 | flag
          If dat&#PF_G3 Then plane11 | flag
          If dat&#PF_G4 Then plane12 | flag
          If dat&#PF_G5 Then plane13 | flag
          If dat&#PF_G6 Then plane14 | flag
          If dat&#PF_G7 Then plane15 | flag
          If dat&#PF_G8 Then plane16 | flag

          ; blue
          If dat&#PF_B1 Then plane17 | flag
          If dat&#PF_B2 Then plane18 | flag
          If dat&#PF_B3 Then plane19 | flag
          If dat&#PF_B4 Then plane20 | flag
          If dat&#PF_B5 Then plane21 | flag
          If dat&#PF_B6 Then plane22 | flag
          If dat&#PF_B7 Then plane23 | flag
          If dat&#PF_B8 Then plane24 | flag

          ; alpha
          If dat&#PF_A1 Then plane25 | flag
          If dat&#PF_A2 Then plane26 | flag
          If dat&#PF_A3 Then plane27 | flag
          If dat&#PF_A4 Then plane28 | flag
          If dat&#PF_A5 Then plane29 | flag
          If dat&#PF_A6 Then plane30 | flag
          If dat&#PF_A7 Then plane31 | flag
          If dat&#PF_A8 Then plane32 | flag

          flag LSR 1
        Next
        o2.l=o LSL 1
        Poke.w tmp01+o2,plane01
        Poke.w tmp02+o2,plane02
        Poke.w tmp03+o2,plane03
        Poke.w tmp04+o2,plane04
        Poke.w tmp05+o2,plane05
        Poke.w tmp06+o2,plane06
        Poke.w tmp07+o2,plane07
        Poke.w tmp08+o2,plane08
        Poke.w tmp09+o2,plane09
        Poke.w tmp10+o2,plane10
        Poke.w tmp11+o2,plane11
        Poke.w tmp12+o2,plane12
        Poke.w tmp13+o2,plane13
        Poke.w tmp14+o2,plane14
        Poke.w tmp15+o2,plane15
        Poke.w tmp16+o2,plane16
        Poke.w tmp17+o2,plane17
        Poke.w tmp18+o2,plane18
        Poke.w tmp19+o2,plane19
        Poke.w tmp20+o2,plane20
        Poke.w tmp21+o2,plane21
        Poke.w tmp22+o2,plane22
        Poke.w tmp23+o2,plane23
        Poke.w tmp24+o2,plane24
        Poke.w tmp25+o2,plane25
        Poke.w tmp26+o2,plane26
        Poke.w tmp27+o2,plane27
        Poke.w tmp28+o2,plane28
        Poke.w tmp29+o2,plane29
        Poke.w tmp30+o2,plane30
        Poke.w tmp31+o2,plane31
        Poke.w tmp32+o2,plane32
      Next

      If compress
        For o.l = 0 To bitdepth-1
          blenC.l = ilbm_RLEncode{tmp+blen*o,tmpC,blen}
          If blenC>0
            file_WriteMem {dos,tmpC,blenC}
          End If
        Next
      Else
        file_WriteMem {dos,tmp,blen*bitdepth}
      End If
    Next
    file_CloseChunk{dos,@"BODY"}

---

code:

---

char[4] tagID
int tagValue
char[4] tagID
int tagValue
...

---

code:

---

#define int4(A,B,C,D) (int)(A|B<<8|C<<16|D<<24)

...
switch(tagID) {
  case int4('T','Y','P','E') : type   = tagValue; break;
  case int4('W','D','T','H') : width  = tagValue; break;
  case int4('H','I','G','H') : height = tagValue; break;
  ...
}

---

code:

---

Select(tagID)
  case @"TYPE" : type   = tagValue
  case @"WDTH" : width  = tagValue
  case @"HIGH" : height = tagValue
  ...
End Select

---