XProfan

Deutsch

KHR

Hallo David

.

hab mal ein bißchen mit der Pipe-pcu experimentiert.

Kann eigentlich fast alles was ich will. Wie immer:
es bleiben Wünsche offen. Das Ding ist zwar als Stack angelegt aber ich würde doch so gerne wahlfrei zugreifen und auch mal ne message dazwischen löschen dürfen.

und zweitens: Leider geht sie unter P2CPP nicht.

Wäre die irgendwie portierbar?

Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan

26.04.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

KHR

Das Ding ist zwar als Stack angelegt aber ich würde doch so gerne wahlfrei zugreifen und auch mal ne message dazwischen löschen dürfen.

Und zwar sollte Dein Programm wenn es Zeit hat den Stapel immer komplett abbauen z.B. in eine eigene Liste. Danach ist der Stapel leer und in der eigenen Liste kann man ja soviel löschen bzw. anstellen wie man möchte.

KHR

Leider geht sie unter P2CPP nicht. Wäre die irgendwie portierbar?

Leider nein, der Code läuft nur in einer XProfan-Runtime. Wenn Du mit Profan2Cpp kompilierst dann wären vielleicht einfache Messages eine gute Wahl:
Kompilieren Markieren Separieren

var zielHandle&=val(par$(1))
var s$=meinString
var c&=len(s$)

whileLoop c&

    sendMessage(zielHandle&,~wm_user+5555,ord(mid$(s$,&loop,1)),0)

wend

Das funktioniert weil Windows die Nachrichten stackt und man somit auch nicht das Problem des global-angelegten Speichers hat. So müsstest Du nur das Control zielHandle& in der Empfängeranwendung subclassen und die Nachricht ~wm_user+5555 abfangen - in &swParam steht die Charnummer die als Char zu einem String addiert werden kann. Obwohl, besser noch das Control ist das hWnd der Zielanwendung und die Message ~wm_user+5555 ist als userMessage &uwParam deklariert.

Lustige Idee eigentlich, vielleicht hierfür mal eine Include herstellen.

Das Zielhandle könnte im einfachsten Fall als Kommandozeilenparameter übergeben werden. ^^

26.04.2009 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Nun hats mich grad gepackt und ich wollte hierzu eine auf XProfan 11 angepasste pipe.inc beginnen, aber es gibt einen kleinen Rückschlag. [...]

Ein Workaround gibt es nicht weil kein Flag verrät ob mehr als 1 UserMessage auf dem Stack liegt, sodass wenn mehr als 1 auf dem Stapel liegt diese erst _alle erhoben werden und in der Reihenfolge umgekehrt vor der Verarbeitung.

Hmpf!

Ich werd mal schauen ob mein Schalter {$CPP} noch funktioniert.