Nicht ladbares Bild abfangen

[Jac de Lad]

Ich hab eine Weile nach einer möglichst einfachen Methode gesucht, um in einem XProfan-Programm ein nicht ladbares Bild abzufangen. Rausgekommen ist dabei folgendes (an das jeweilige Programm anzupassen):

'Vorbereitung
declare errproc%
subproc Create.SavehPic
Parameters n$
declare h&,e%,o%
if FileExists(n$)
e%=Set("Errorlevel",-1)
o%=Set("OnError",1)
errproc%=0
h&=Create("hPic",-1,n$)
Set("Errorlevel",e%)
Set("OnError",o%)
if errproc%=0
Return h&
else
Return 0
endif
else
Return 0
endif
endproc

subproc Create.SavehSizedPic
Parameters n$,b&,h&,m%
declare h&,e%,o%
if FileExists(n$)
e%=Set("Errorlevel",-1)
o%=Set("OnError",1)
errproc%=0
h&=Create("hSizedPic",-1,n$,b&,h&,m%)
Set("Errorlevel",e%)
Set("OnError",o%)
if errproc%=0
Return h&
else
Return 0
endif
else
Return 0
endif
endproc

errorproc
Select %ErrNumber
CaseOf 280,309
Inc errproc%
EndSelect
endproc

'Hauptprogramm
declare h&,p$
cls
p$=LoadFile$("Datei auswählen","*.*")
h&=Create("SavehPic",p$)
Print "Handle: "+Str$(h&)
Print "Gültig: "+If(h&=0,"nein","ja")
case h&:DeleteObject h&
while 1
waitinput
endwhile

Die Errorproc muss eventuell noch angepasst werden, wenn das Programm schon damit bestückt ist.

Die Proc für hSizedPic steckt auch schon drin.

[p. specht]

Klappt gut! Für welche Versionen alle?

[Jac de Lad]

Sollte ab XProfan 10 gehen, glaube ich. Muss halt ErrorProc unterstützen.

Mir ist gerade noch eingefallen: Es gab in einem Forum einen Thread, wo jemand angefragt hatte, ob Roland XProfan dahingehend anpassen könnte, dass man die Errorproc auf eine beliebige Proc umbiegen könne. Ich weiß leider nicht mehr wo der Thread ist.
Aber wenn das möglich wäre könnte man daraus eine INC machen, die noch die Errorproc umbiegt und dann problemlos in jedes Programm eingebunden werden könnte, auch wenn es die ErrorProc-Funktionalitäten benutzt.