Gut, das klappt jetzt so, hier mal der Code, falls das jemand mal braucht: Im DropObject des ImageWell oder Canvas dim pic,pic1 as Picture dim r as RecordSet dim faktorx as Double // Accept Image from File or a Picture Drop if obj.FolderItemAvailable then pic = Picture.Open(obj.FolderItem) elseIf obj.PictureAvailable then pic = obj.Picture else return end if
if pic <> nil then Dim block As MemoryBlock = pic.GetData(Picture.FormatPNG,100) Dim s As String = block.StringValue(0, block.size) autorenbild_sichern(s,obj.FolderItem.Name) End if Allerdings tut sich jetzt der Wunsch auf, das Bild im Originalformat zu sichern, d.h. ich müsste das vorher herausfinden, wie mache ich das? LG Stefan > > Am 10.04.2013 um 11:47 schrieb Stefan Sicurella <[email protected]>: > >> Hi, >> >> Meine Frage ist, was passiert mit der Art des Bildes, bleibt ein png ein png >> oder wird das alles intern umgewandelt? bleiben transparenzen erhalten? >> oder kann ich es schob beim speichern in ein spezifisches Format wandeln? > > Mach es selbst mit einem BLOB und deiner Wahl an Kompression. > > Bei allem anderen bekommst du das Default Behavior. Vermutlich JPEG mit 70% > oder so. > > Greetings > Christian > > -- > Read our blog about news on our plugins: > > http://www.mbsplugins.de/ > >
