Fehler (?) in ClipboardDevice

[In_Go]

Ich habe Probleme ein ins Clipboard geladenes Image zu laden

Ein Beispiel ist besser als 1000 Worte

;Clipboardtest
UseJPEGImageDecoder()
UseJPEGImageEncoder()
ClearClipboard()
Pic$=OpenFileRequester("Select jpeg.file","","*.jpg",0)
If pic$="" : Debug "No Selection" :End :EndIf
LoadImage(1,pic$)
SetClipboardImage(1)
a.l=GetClipboardImage(2)
Debug a.l
If IsImage(2)
Debug "OK"
Else
Debug "Njet,nothing,nichts,nada,none,no"
EndIf
End

Hat jemand mehr Durchblick ?

[hardfalcon]

Entschuldige, wärs dir u.U. möglich, deinen Code
1.) in

Code: Alles auswählen

-Tags zu setzen?
2.) Deinen code zu fromatieren (einrücken z.B.)

[In_Go]

Vielen Dank für Deinen Tip

Code: Alles auswählen

;Clipboardtest 
UseJPEGImageDecoder() 
UseJPEGImageEncoder() 
ClearClipboard() 
Pic$=OpenFileRequester("Select jpeg.file","","*.jpg",0) 
If pic$="" : Debug "No Selection" :End :EndIf 
LoadImage(1,pic$) 
tiefe=ImageDepth(1) ;Der casus knacktus
SetClipboardImage(1) 
a.l=GetClipboardImage(2,tiefe)  ; Mit Tiefe funktionierts
Debug a.l 
If IsImage(2) 
  Debug "OK" 
Else 
  Debug "Njet,nothing,nichts,nada,none,no" 
EndIf 
End 

Bin inzwischen durch Experimentieren selbst auf die Lösung gekommen !
Es ist der geänderte Code oberhalb.
Trotzdem wäre es aber schön wenn die GetClipboardImage(img[,tiefe]) Routine die Tiefe selbst erkennt!