XProfan

Deutsch

Georg
Teles

Da FreeProfan (32) Neues bietet, habe ich mal direkt MenüIcons ausprobiert um mein Programm zu verschönern und bin gleich auf Folgendes gestoßen:

Hier der Code der dazugehört, ausgeführt mit unveränderten Profan.exe der Version 0.7.0.102:
Kompilieren Markieren Separieren

Declare icons&[16]

Proc micons

    WhileLoop 0,16

        icons&[&loop] = Create("hIcon",Par$(0),&loop)

    EndWhile

    'icons&[] = Create("hIcon",Par$(0),&Index)

EndProc

Proc menu

    micons()
    PopUp "&Datei"
    AppendMenu 100,"&Öffnen",icons&[16]

ENdProc

CLS
menu()
waitinput

WhileLoop 0,16

    DeleteObject icons&[&loop]

EndWhile

Bemerkung:
Sowohl mit WhileLoop als auch mit "direkt-Array" ( icons&[]=...&index) ) zugewiesenen Icon-Handles kommt es zum Fehler, sehr selten in diesem Code, umso sehr sehr öfter in meinem Programm (weiss nicht woran das liegt, vielleicht weil alle 17 Icons benutzt werden?)

Der Fehler tritt in meinem Programm sowohl im Interpreter als auch in der Runtime, ebenso im Beispielcode mit Imagelisten den man in der Hilfedatei finden kann ( 22.5 - Icons und Farben für Menüs )

_int_tstpng.png	128 kB

Hochgeladen:	14.05.2014

Ladeanzahl:
		Herunterladen

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

14.05.2014 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Hast du denn mal mit TraceOn gecheckt, an welcher Stelle das Programm aussteigt?

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

14.05.2014 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Georg
Teles

Möglicherweise an der Stelle wo die MenüItems erzeugt werden, gestern jedenfalls habe ich diese auskommentiert & der fehler kam nicht mehr, seltsamerweise tritt der Fehler heute nicht mehr auf, kann also mit Trace erst einmal nicht testen, ich bleib aber dran ... (kann vielleicht daran liegen, was ich nicht glaube, dass der PC 3 Tage durchlief & heute erst neu gestartet wurde) ... naja, Internet sagt auf jeden Fall, dass es eine Fehlermeldung in FreePascal ist, was genau sie angibt, habe ich keine Ahnung, hier [...]

jedenfalls hat es ebenfalls mit den MenuItems zutun.

Vielleicht aber hat es etwas mit der EXE und dem Speicher zutun ? FireFox (27.0 final) hat mir neulig(st) einen Bluescreen in Win 8 verursacht "MEMORY_MANAGEMENT" obwohl FF meiner Meinung nach stabil sein dürfte, will nur sagen, dass Programme vielleicht unabsichtigt auf Speicher zugreifen, auf den unter verschiedenen Umständen nicht zugegriffen werden kann oder welcher einfach nicht existiert. OK das geht am Thema vorbei, wollte aber nur erwähnt haben

... schaue auf jeden Fall weiterhin ob der Fehler erneut kommt

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

14.05.2014 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Georg
Teles

OK habe einen Tag PC durchlaufen lassen ...

Der Fehler tritt immer dann auf, wenn ein AppendMenu erzeugt wird, es ist immer unterschiedlich an welcher Stelle bzw an welchem AppendMenu.

Was mir noch aufgefallen ist, als ich durch alte Codesammlung auf dem PC durchgegangen bin hab ich den Interpreter von FreeProfan32 noch drin gehabt, der Fehler tritt ebenfalls bei folgendem Code:
Kompilieren Markieren Separieren

'Datei: Ausführbares Programm zu einer Datendatei finden (Verknüpfung)
Def @Findexecutable(3) !"SHELL32","FindExecutableA"
Declare File$,Exe#,Spfad$
Windowstyle 31
Windowtitle "EXE zu einem Dateinamen finden"
Window 0,0 - 640,440
Let File$ = @Input$( "Hier den Namen einer Datei eingeben", "Dokument?", @Findfirst$("*.TXT"))
Dim Exe#,261
Let Spfad$ = "C:\WINDOWS"
@Findexecutable(@Addr(File$), 0, Exe#)
Print @String$(Exe#,0)
Dispose Exe#

While 0 = 0

    Waitinput

Endwhile

und zwar an der Stelle @Findexecutable(@Addr(File$), 0, Exe#), allerdings ist der Fehler wieder ein Anderer, hier ist er der zu dem Code dazugehört:

_dmpv.png	52 kB

Hochgeladen:	15.05.2014

Ladeanzahl:
		Herunterladen

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

15.05.2014 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Bei mir gibt es bei dem Code mit normalem XProfan keinen Fehler.
Da scheint also was speziell bei Freeprofan noch zu haken.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

28.05.2014 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

Ja, ich vermute mal, dass es da im Code noch eine Stelle gibt, wo das strengere FreePascal ein Problem sieht, wo eigentlich keines ist.

Ich hoffe, am verlängerten Wochenende Zeit zu finden, nachzuschauen.

Gruß
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

28.05.2014 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

und?

XProfan X3
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

04.02.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

RGH

Dein Code erzeugt auch bei mir keinen Fehler.

Ein Programmabsturz erfolgt aber, wenn man bei der Inputbox auf Abbruch klickt, was nicht verwunderlich ist, dann File$ nicht gefüllt ist. Das verträgt auch XProfan nicht.

Gruß
Roland

XProfan X3
Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

04.02.2016 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren