XProfan

English

Manfred
Barei

Hi,

come simply not further, have already etliches probiert, but I get simply because auftretenden Error not abgefangen.

Folgender Error exit imDemoproc on, see Image:
Compile Mark Separation

Declare Bild&
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"

ErrorProc

    Set("ErrorLevel", 1)
    Print "<----ErrorProc---->"
    Print %Error, %ErrNumber, %ErrLine, $ErrStr, $ErrFile
    Print "<----------------->"
    Set("ErrorLevel", 0)

EndProc

WINDOWSTYLE 31
windowtitle "Bildauswahl-Test"
WINDOW (%maxx/2 - 640/2),(%maxy/2 - 500/2) - 640,500
CLS
Set("ErrorLevel", 0)
Set("OnError", 1)
------- Hier ist der Fehler, die Bilddatei ist 0 Byte groß
Bild& = @Create("hPic",-1,"C:\WINDOWS\WELLEN.BMP")
----------------------------------------------------------
DrawPic Bild&,0,0;0
DeleteObject Bild&
waitinput
end

fehlermeldung2.png	17 kB

Hochgeladen:	08/14/08

Downloadcounter:
		Download

Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |

08/14/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

@Manfred
"wellen.bmp" Have I do not.
with another Image the windows-directory (zapotek.bmp) works everything correct.
even if I The Fehlerproc "remme", functions everything.

spin time again Windoof ?

08/14/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Peter
Max
Müller

Hi,

white not obs helps:
Compile Mark Separation

IfNot @FileSize("C:\WINNT\WELLEN.BMP") = 0

    .....

EndI

Greeting

P.M.M.

XProfan X3, X4ß, Win 10.1

08/14/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

I see...
the CLS can You streichen!
You erstellst still with Window X,Y-X1,Y1 already one Window

so goes it too
Compile Mark Separation

Declare bild&
WINDOWSTYLE 31
windowtitle "Bildauswahl-Test"
WINDOW (%maxx/2 - 640/2),(%maxy/2 - 500/2) - 640,500
CLS
Set("ErrorLevel", 0)
Set("OnError", 1)
------- Hier ist der Fehler, die Bilddatei ist 0 Byte groß

If FILEEXISTS("C:\WINDOWS\zapotek.BMP")

    Bild& = @Create("hPic",-1,"C:\WINDOWS\zapotek.BMP")
    ----------------------------------------------------------
    DrawPic Bild&,0,0;0
    DeleteObject Bild&

ENDIF

waitinput
end

08/14/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Peter
Max
Müller

Tja,
so GEHTS even not.
your code ,Horst,checks whether a File existing.
Manfred would like but a existing 0 byte File intercepting.
or täusche I now vast?

Ciao

XProfan X3, X4ß, Win 10.1

08/14/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Manfred
Barei

Hello Peter,

with the the @FileSize I had already probiert but not yet in this shape.
will be it another time try so How You it posted have, i hope so working.

Greeting
Manfred

Zu wenig Wissen ist gefärlich, zu viel auch.(XProfan X4) | Win 10 Pro 64 | Win7 Ultimate 32/64 | AMD FX-8320, 16GB, GeForce GT 630 |

08/14/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Manfred
Barei

Hello Peter,

thanks,so working it