XProfan

Deutsch

H.Brill

Hallo,
Ich möchte gerne wissen, ob mein Programm im Interpreter oder als fertiges
Programm läuft. Kann man sowas rausfinden ? In den Systemvariablen hab
ich mal nichts gefunden.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

12.08.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

ReinerKlaas

Hi,
versuchs mal mit der Bedingten Compilierung im Kapitel 5.7 der Hilfe zu finen.....

Gruß
Reiner

XProfan 10.0a , Windows XP/Vista32

12.08.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Rolf
Koch

Ich gehe davon aus, daß Dein Interpreter immer PROFAN.EXE lautet, dann dürfte dieses hier auf einfache profane Weise helfen:
Kompilieren Markieren Separieren

cls
declare modus$,mod%
modus$=upper$(@Par$(0))

proc checkmodus

    if instr(PROFAN.EXE,modus$)

        mod%=0

    else

        mod%=1

    endif

endproc

checkmodus

if mod%=0

    print Ich laufe im Interpreter

else

    print Ich laufe als Exe

endif

waitinput

12.08.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dieter
Zornow

Du kannst auch einfach $progdir abfragen, ist $Progdir dein Profanverzeichnis dann läufts im Interpreter

Viele Grüße aus Bangkok

Dieter

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

12.08.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

H.Brill

Danke,
hilft mir schon etwas weiter.
Hintergrund ist der :
Ich spiele z. Z. etwas mit der XDATA.inc von Ts-Soft. Ich habe die Ressource
(in meinem Fall eine DLL) mittels ResHacker als .res in die Profan.exe und in die Profrun32.exe eingebunden. Hatte schon einen ersten Erfolg, wenn mein Programm
als fertige Exe vorhanden ist. Das sollte aber auch im Interpreter funktionieren, was
mir nicht gelingt. %HInstance und DEF @GetPID(0) ~GetCurrentProcessID() halfen
mir auch nicht weiter, bzw. bekomme ich Speicherzugriffsfehler.

Ist es möglich, daß es im Interpreter überhaupt nicht geht ?

12.08.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dieter
Zornow

Ich kenne das Teil zwar nicht, aber wenn du ein Handle zum Interpreter brauchst sollte das helfen.
Kompilieren Markieren Separieren

Def Getmodulehandle(1) !KERNEL32,GetModuleHandleA

Viele Grüße aus Bangkok

Dieter

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

12.08.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

H.Brill

Ja, hab ich auch schon probiert (GetModuleHandle(0) und GetModuleHandle(%HInstance). Wobei GetModuleHandle(0) das gleiche Ergebnis wie %HInstance hat.

Was setzt man denn als Parameter ein ?

12.08.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dieter
Zornow

Als Parameter must du den Pfad zum Interpreter angeben, so müsste es gehen
Kompilieren Markieren Separieren

Declare hdl&,profan$

if $progdir = Mein profanverzeichnis

    profan$ = $progdir+Profan.exe
    hdl& = Getmodulehandle(@Addr(profan$))

else

    profan$ = $progdir+meineexe.exe
    hdl& = Getmodulehandle(@Addr(profan$))

endif

Viele Grüße aus Bangkok

Dieter

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

12.08.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

H.Brill

Läuft auch nicht.
Als fertige .Exe ja, im Interpreter wieder Speicherfehler.
Naja, ich warte mal. Vielleicht weiß ja Roland noch was.
Wäre ja auch interessant, wenn man noch 2 Systemvariablen
hätte : %Interpreter und %Programm. Kann man sonst vielleicht
auch gut gebrauchen.

12.08.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Michael
Wodrich

Ab XProfan 10 gibt es hierfür vordefinierte Bedingungsnamen.

Also mittels
Kompilieren Markieren Separieren

 $IFDEF INTERPRETER
hier sind wir im Interpreter
 $ENDIF
 $IFDEF COMPILER
hier sind wir in der EXE
 $ENDIF

läßt sich zumindest das laufe ich jetzt im Interpreter? eindeutig beantworten.

Das mit den Modulhandles ist aber damit immer noch nicht vom Tisch.
Es gibt einfach Dinge, die im Interpreter nicht so einfach möglich sind.

Schöne Grüße
Michael wodrich

Programmieren, das spannendste Detektivspiel der Welt.

12.08.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Dieter
Zornow

Ich habe mir mal dieses Paket von ts-soft heruntergeladen und ausprobiert, Habe eine Profan.exe und eine Prfrun32.exe mal nur mit den Testprogrammen bearbeitet. läuft bei mir auch im Interpreter einwandfrei, ohne jede Angabe ob das Programm im Interpreter oder als Exe läuft. Du hast wahrscheinlich irgendwas anderes falsch gemacht. Probiere einfach mal die Testprogramme aus, die funktionieren in jedem Modus, denn es wird automatisch aus der richtigen Datei die Resource gezeigt oder abgespielt.
Auszug aus der Beschreibung
XDATA_Get(ResNr&, hModule&) hModule& ist Optional. Bei fehlen wird die Resource in der Exe gesucht

Viele Grüße aus Bangkok

Dieter

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

12.08.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

H.Brill

Jo,
werde ich auch mal zuerst machen. Ich hatte mir die Testprogramme nur
kurz angesehen, dann die Befehle ausgedruckt und direkt in meinem
Programm umgesetzt.
Wenns es funzt, melde ich mich wieder.

13.08.2007 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

►