Promised file drop (Bild aud Photos) übernehmen

Bilder, die von Photos auf ein Canvas oder ImageWell gezogen werden übernehmen.
Ich habe das nun so gelöst, für alle, die das mal brauchen…
Es mag nicht elegant sein, klappt aber prima!

benötigt Promised Files Redux von Sam Rowlands :
link text

eine weitere super Lösung gibt es hier, NSMediaLibraryBrowser, ebenfalls von Sam Rowlands
link text

im DropObject Event:
dim name as String
dim pic as Picture
dim erstes_bild as Boolean=true

	if obj.FolderItemAvailable then
			pic = Picture.Open(obj.FolderItem)
			name=obj.FolderItem.Name
	elseIf obj.PictureAvailable then
			pic = obj.Picture
			name=obj.Text
	elseIf obj.promisedFilesAvailable then
			Dim destination as folderitem = specialFolder.Temporary
			Dim files() as folderitem = obj.promisedFilesAtDestination(destination)
			For each file as folderitem in files
					if erstes_bild then photofolder =file
					erstes_bild=false
			next
			timer_photos.mode=1 // timer auf 500, muss halt wartem bis das Bild auch geschrieben ist
	else
			return
	end if
	if pic<>nil then
			label_dateiname.text=name
			zusatzbild_neu(pic,name)
	end if

Dann im Timer:
dim pic as Picture

	pic=picture.Open(photofolder)
	photoname=photofolder.name
	
	if pic<>nil then
			label_dateiname.text=photoname
			zusatzbild_neu(pic,photoname) // hier wird das bild dann in der Datenbank gesichert und im ImgaeWell angezeigt
	else
			//
	end if

wenn Du ‘Code’ anklickst und dann Deinen Code einfügst sieht das besser aus.

[code]Dim DropObject Event:
dim name as String
dim pic as Picture
dim erstes_bild as Boolean=true

if obj.FolderItemAvailable then
pic = Picture.Open(obj.FolderItem)
name=obj.FolderItem.Name
elseIf obj.PictureAvailable then
pic = obj.Picture
name=obj.Text
elseIf obj.promisedFilesAvailable then
Dim destination as folderitem = specialFolder.Temporary
Dim files() as folderitem = obj.promisedFilesAtDestination(destination)
For each file as folderitem in files
if erstes_bild then photofolder =file
erstes_bild=false
next
timer_photos.mode=1 // timer auf 500, muss halt wartem bis das Bild auch geschrieben ist
else
return
end if
if pic<>nil then
label_dateiname.text=name
zusatzbild_neu(pic,name)
end if

Dann im Timer:
dim pic as Picture

pic=picture.Open(photofolder)
photoname=photofolder.name

if pic<>nil then
label_dateiname.text=photoname
zusatzbild_neu(pic,photoname) // hier wird das bild dann in der Datenbank gesichert und im ImgaeWell angezeigt
else
//
end if[/code]

Stimmt, danke für den Hinweis