XProfan

Deutsch

Dieter
Zornow

ich habe gerade wieder sehr ärgerliche Unterschiede in Interpreter und Runtime gefunden. ich habe eine Combobox und schreibe mit addstring(..... hinein. den dazu gehörenden Referenzwert speichere ich in einem Array

Um keine Variable zu verwenden weise ich dem Array einen Wert zu mit
Kompilieren Markieren Separieren

user$[getcount(comb&)] = b$

ich halte dies für korrekt und zulässig, Läuft auch im Interpreter einwandfrei. Die Exe stürzt sogar ab.
Hier muss ich schreiben
Kompilieren Markieren Separieren

count& = getcount(comb&)
user$[count&] = b$

damit es zu keinem Absturz kommt. Die übergebene Zahl ist ja wohl die gleiche.

Zweites Beispiel:

Hier ein Minimalcode um zu erkennen wenn ein USB - Stick eingesteckt wird
Funktioniert im Interpreter ob ich Waitinput oder Getmessage verwende. In der Exe funktioniert es nur
mit Waitinput. Bei Getmessage kommt die Message nicht mehr durch. Aber nur die Message für den USB-Stick, die anderen z.B 16 scheinen durchzukommen
Kompilieren Markieren Separieren

Declare ende&
cls
usermessages 537,16,$0044

whilenot ende&

    Getmessage waitinput
    case %UMessage = 16:break

    If %UMessage = 537

        If &UWParam = 32768

            Print "Device eingetroffen"
            Sendmessage(%Hwnd,$0044,0,0) %umessage zurücksetzten

        elseif  &UWParam = 32772

            Print "Device ist gone"
            Sendmessage(%Hwnd,$0044,0,0) %umessage zurücksetzten

        Endif

    Endif

Endwhile

end

Profan fixiert sich ja immer mehr auf Waitinput und ohne Waitinput funktionieren viele neue Funktionen nicht mehr. Aber warum läuft es im Interpreter. Ich halte die beiden Beispiele für Bugs in der Runtime.

Hat jemand eine Idee wie ich trotz Getmessage noch an die Message komme, denn ich will aus mehren Gründen kein Waitinput verwenden

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

02.09.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Christian
Schneider

Falls es nur darum geht das dein Programm permanent durchläuft könntest du es über einen Timer lösen:
Kompilieren Markieren Separieren

SetTimer 0.0001
Waitinput

Wenn du generell ohne WaitInput auskommen willst bin ich auch überfragt.

XProfan 11| Vista(64) SP2

02.09.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dieter
Zornow

Ja danke, das mit dem Timer weiß ich.
Ich lasse mein Programm nicht durchlaufen, ich verwende Getmessage anstatt Waitinput, das ist für vieles flexibler und viele Dinge die man bei Waitinput über Timer und Subclassing lösen muß gehen hier ohne, Leider wird der Gebrauch in den neuen Profanversionen total vernachlässigt oder sogar unmöglich gemacht wie man sieht..

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

02.09.2008 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

@Christian: Dein Timerintervall von 0.0001 nützt Dir nichts. Die kleinste Einheit ist eine Millisekunde und SetTimer versteht nur Longs und keine Floats:

Hilfe zu XPRofan

SetTimer N
N : LongInt - Timer-Intervall in Millisekunden

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