XProfan

Hier tritt él häufiger en:
Kompilieren Marca Separación

DEF @GetDlgCtrlID(1) !"USER32","GetDlgCtrlID"
DEF @ButtonClicked(1) @GetDlgCtrlID(@&(1))=-%MENUITEM
Testprogramm Timer
Profan Version 9
 $H Windows.ph
-Main----------------------------------------------------------------
Declare Timer_Busy%,Ende%
Declare TimerID&,Create%,T_Text&,Test#
WindowStyle 26
WindowTitle "Timertest PHU-60"
Window 100,100 - 370,200
cls
Let T_TEXT&=@CREATETEXT(%HWND,"",30,30,300,30)
-Menue---------------------------------------------------------------
PopUp "&Programm"
AppendMenu 108,"&Einstellungen"
AppendMenu 109,"&Ende"
Ende% = 0
Timer setzen (4x pro Sekunde, 250ms)
TimerID& = ~SetTimer(%HWND,333,25,@ProcAddr("Timer",4))

WhileNot Ende%

    WaitInput

    If @MenuItem(108)

        Einstellungen

    Endif

    If @MenuItem(109)

        ~KillTimer(%HWND,333)
        Ende% = 1

    Endif

Wend

End
-Proc Einstellungen

Proc Einstellungen

    Declare hD%, hA%, hB%, OK%, hTime%
    Declare hF1%, hT1%
    Clear OK%
    Dialogfenster erzeugen
    hD% = @Create("Dialog",%hWnd,"Einstellungen",%WinLeft+80,%WinTop+155,230,190)
    hF1% = @Create("Font","Arial",16,0,0,0,0)
    hT1% = @Create("Text",hD%,"Einstellungen...",10,10,220,20)
    SetFont hT1%,hF1%
    hTime% = @Create("TimeEdit", hD%, "00:00:00", 10, 35, 70, 24)
    hB% = @Create("Button",hD%,"&Nachstellen",10,120,100,28)
    hA% = @Create("Button",hD%,"&Abbrechen",120,120,100,28)

    WhileNot Ok%

        WaitInput

        If @ButtonClicked(hB%)  Nachstellen

            Ok% = 1
            Aktionen hier

        ElseIf @ButtonClicked(hA%) Abbrechen

            Ok% = 1

        ElseIf (%Key = 2) ALT+F4 bzw. schließen

            Ok% = 1

        EndIf

    EndWhile

    DeleteObject hF1%
    @DestroyWindow(hD%)

EndProc

-Prozedur die in bestimmten Zeitintervallen ausgefuehrt wird (4x pro Sekunde)

Proc Timer

    Parameters P1&,P2&,P3&,P4&
    Dim Test#,1000000
    Inc Timer_Busy%
    Locate 5,5
    Print "Timer:" + @str$(Timer_Busy%) + " Durchläufe"
    Settext T_Text&,"Timer:" + @str$(Timer_Busy%) + " Durchläufe"
    se Test#

ENDPROC

Sebastian
König

¡Hola Andreas,

seltsam - Yo podría el beschriebenen Fehler en me (WinXP Prof. SP2 en aktuellem Actualización-Stand) por desgracia, no reproduzieren... weder Zugriffsverletzung todavía Kuddelmuddel

treten en.

Hast Usted lo auch ya con el aktuellen Beta-Versión 1.5.9f getestet? Dort Yo nämlich u.a. una Detalle en Behandlung de CallBack-Características-Características geändert, el sonst evtl. a Problemen hätte führen puede...

MfG

Sebastian

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

Aktuelle Beta todavía no, mache Yo aber todavía. Der Fehler tritt en, si encima el Menü el Diálogo aufgerufen se - pero no siempre (Rechnerabhängig). Im Anhang es mi EXE.

Timerbug.zip	2 kB

Hochgeladen:	06.09.2006

Ladeanzahl:
		Descargar

Hast du veces el Downloadlink?

En Beta, el Yo eben heruntergeladen habe, tritt el Fehler siempre todavía en (Zugriffsverletzung), es bloß seltener...

Sebastian
König

Mit el zweiten Code podría Yo bajo XProfan incluso el Fehler ahora reproduzieren (Dialogfenster restos leer y reagiertt no en Schließen). Mit Profano2Cpp allerdings trotz zahlreicher Versuche allerdings todavía siempre no... liegt lo tal vez wirklich a mi sistema oder debería el Fehler, si él en una Rechner con XProfan auftritt auch con Profano2Cpp auftreten?

Was Yo ya sagen kann es, dass zumindest el Ursache con Profano2Cpp una otro ser debería. Hier nutzen nämliche sólo normale Prozeduren el gemeinsamen Parámetro-Stack - en CallBack-Características y eingebauten Befehlen y Características se el bastante normale Stack (como en ASM) a Übergabe benutzt, sodass se hier el Aufrufe no gegenseitig stören puede...

P.S.: Su EXE es desafortunadamente sólo el .cpp-Expediente...

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

Sebastian
König

[quote:f458ed4358]Hast du veces el Downloadlink?
En Beta, el Yo eben heruntergeladen habe, tritt el Fehler siempre todavía en (Zugriffsverletzung), es bloß seltener... [/quote:f458ed4358]
Hier el direkte Link: [...]

.

Welche Versión genau hast Usted porque ahora?

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

Espectáculos 1.5a a. El EXE Yo neu hochgeladen (hoffentlich ahora correcto, komme gerade de el Nachtschicht

)

Sebastian
König

[quote:bebe64f95b]Espectáculos 1.5a a.[/quote:bebe64f95b] Ok, el es ya otra vez relativ alt

. Bajo el Link oben findest Usted el aktuelle Beta-Versión 1.5.9f. Darin son neben algunos Bugfixes auch ya el neuen XProfan 10-Features enthalten.

[quote:bebe64f95b]El EXE Yo neu hochgeladen (hoffentlich ahora correcto, komme gerade de el Nachtschicht )[/quote:bebe64f95b] Ähmm... wo?

Bajo el Link oben befindet se siempre todavía el gleiche Expediente...

(EDIT: Yo sehe gerade: el doppelte Begriff Link oben es natürlich kontextabhängig a interpetieren

)

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

¡Hola Sebastian...

Yo voluntad una Ver código fuente ,bauen en el el problema häufiger auftritt, kann aber algo dauern....

Sebastian
König

[quote:5ea9f5dcc3]Yo voluntad una Ver código fuente ,bauen en el el problema häufiger auftritt, kann aber algo dauern.... [/quote:5ea9f5dcc3]
Super - danke!

Dann tritt el problema also auch con 1.5.9f todavía en? Wenn sí, Todavía una Concepto: Intento veces Por favor,, el SetTimer-Aufruf así a gestalten:

P2CPP: <USE_CALL_ST,USE_EXTERNAL_ST>
Timerid& = ~Settimer(%Hwnd,333,25,@Procaddr(Temporizador,4))
P2CPP: </USE_CALL_ST,/USE_EXTERNAL_ST>

(funktioniert allerdings todavía no con 1.5a) Tal vez liegt el Ursache sí en el Multithread-Konzept el übersetzten Programas...

Windows XP, XProfan/Profan² 4.5 bis 11
Profan2Cpp-Homepage: [...]

Alte Profan²-Seite: [...]

Ob el Fehler Auftritt oder no hängt u.a. de el Speicherauslastung de. Bajo el neuen Beta podría Yo, el Fehler todavía no nachvollziehen. Bajo Windows2000 Tuve auch con el älteren Profano2Cpp Versión bislang todavía no Fehlermeldung. Melde mich otra vez.