PureBoard

Verfasst: **11.08.2015 12:17**

Ich möchte mit dem an der Stelle 'Adresse' gespeicherte Bild
zwei Dinge tun:
1. Es mit setDatabaseBlob() zum Speichern in einer DB vorbereiten
2. Eine auf die Maße W(Breite) und H(Höhe) reduzierte Kopie in einem
ImageGadget mit der Nummer ImGadNr anzuzeigen.

Code: Alles auswählen

#Orig=0
#Resized=1

;---- zu 1. ---------------------
LoadImage(#Orig,Adresse)
ReadFile(0,Adresse)
size_orig = Lof(0)
If size_orig
  *mem_orig = AllocateMemory(size_orig)
  If *mem
    ReadData(0, *mem_orig, size)
    SetDatabaseBlob(DBNr,0,*mem_orig,size_orig) 
  EndIf
EndIf
CloseFile(#Orig)

;---- zu 2.----------------
CopyImage(#Orig,#Resized)
ResizeImage(#Resized,W,H)
*mem_res=EncodeImage(#Resized) 
size_res=MemorySize(*mem_res)
CatchImage(#Resized,*mem_res,size_res)
SetGadgetState(ImGadNr,ImageID(#Resized))

;(Speicherfreigaben jeweils weggelassen)

Ich habe Sorge, mir bei einem Fehler durch einen Test den Speicher zu ruinieren. Daher:
a) Ist das Fragment so richtig?
b) Muss(!) man bei EncodeImage() auch noch das Bildformat bei den Parametern angeben, oder
reicht es, den passenden Decoder bzw. alle Decoder zu laden?

Verfasst: **11.08.2015 12:57**

Nach dem ResizeImage hast Du doch bereits deine ImageID, wozu spielst Du da noch mit dem Speicher rum?

Verfasst: **11.08.2015 14:46**

Hallo HeXOR, zunächst danke.

Code: Alles auswählen

CopyImage(#Orig,#Resized)
ResizeImage(#Resized,W,H)
;...Herumspielerei im Speicher weggelassen 
SetGadgetState(ImGadNr,ImageID(#Resized))

So müsste es dann richtig sein.

Verfasst: **11.08.2015 19:04**

Noch eine Frage dazu. Wie gehe ich vor, wenn ich ein Bild als BLOB geladen habe und im Imagegadget anzeigen will, wobei die Bildabmessungen auf die Größe W(Breite) und H(Höhe) resized sein soll?

Code: Alles auswählen

size = DatabaseColumnSize(DBNr,1)
If size
  *mem = AllocateMemory(size)
  If *mem
    If GetDatabaseBlob(DBNr,1, *mem, size)
      ImID=CatchImage(#PB_Any, *mem,size)
      SetGadgetState(ImGadNr,ImageID(ImID))
    EndIf 
  EndIf
EndIf

Wie baut man darin resizeImage() ein?

Verfasst: **11.08.2015 20:37**

Ganz einfach, du führst ResizeImage auf die ImID aus, die du von CatchImage erhalten hast:

Code: Alles auswählen

size = DatabaseColumnSize(DBNr,1)
If size
  *mem = AllocateMemory(size)
  If *mem
    If GetDatabaseBlob(DBNr,1, *mem, size)
      ImID=CatchImage(#PB_Any, *mem,size)

      ResizeImage(ImID, W, H)

      SetGadgetState(ImGadNr,ImageID(ImID))
    EndIf 
  EndIf
EndIf

Verfasst: **11.08.2015 21:19**

Danke, auf die einfachsten Dinge kommt man oft nicht.

PureBoard

Bild in Speicher laden

Bild in Speicher laden

Re: Bild in Speicher laden

Re: Bild in Speicher laden

Re: Bild in Speicher laden

Re: Bild in Speicher laden

Re: Bild in Speicher laden