XProfan

Georg
Teles

OK gerade ein wenig Debugging betrieben und Erklärungen eingefügt, alle Fehler sind weg von denen ich weiss

, tew_bsp.zip ist up to date...
CatchImage hinzugefügt

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

Grüße!

Wenn Du zur .PCU auch eine .DEF beilegst, dann kann man das Beispiel auch
mit xpse testen. Die DEF-Datei legt xpse automatisch an, wenn man damit eine
Unit kompiliert und sie beinhaltet die in der Unit enthaltenen Definitionen.
Ausserdem prüft xpse dabei, ob mit der Unit grundsätzlich erstmal alles IO ist
sodass sie problemloser in Anwendungen verwendet werden kann. Wenn er
dahingehend also etwas anmeckert, dann die Warnungen durchaus ernst nehmen.

Georg
Teles

Hi iF, hier die DEF
einige Procs werden mit without namespacesign! angekreidet...

aber diese Procs sollen ja intern bleiben und von aussen nicht nutzbar sein

XPSE PCU-Exports Fileversion 1
TEW_XPSE.PCU Exporte (20130423194822)
|
|   [+]-INIT
|   [^]-Params: hw_&
|
|   Warning: "proc GETBMP" without namespacesign!
|   [^]-Params: pointer&
|
|   Warning: "proc GETPIC" without namespacesign!
|   [^]-Params: pointer&,sz&,ext$
|
|   Warning: "proc GET_ADDR" without namespacesign!
|   [^]-Params: ber#,s&,pos&
|
|   [+]-OPEN
|   [^]-Params: tew$,h&,pos&
|
|   Warning: "proc INIT" without namespacesign!
|   [^]-Params: h&
|
|   Warning: "proc UNPK_" without namespacesign!
|   [^]-Params: file$,dir$,s&,pos&
|
|   [+]-UNPK
|   [^]-Params: file$,dir$
|
|   [+]-UNPK_ALL
|   [^]-Params: out$
|
|   Warning: "proc CRC" without namespacesign!
|   [^]-Params: file$
|
|   Warning: "proc VER_" without namespacesign!
|   [^]-Params: par&, v$, an%
|
|   Warning: "proc USE_WINMM" without namespacesign!
|   [^]-Params: play_$,clos_$
|
|   [+]-PLAY
|   [^]-Params: dat$,mod&,s&,pos&
|
|   [+]-BMP
|   [^]-Params: dat$,s&
|
|   [+]-PIC
|   [^]-Params: dat$,s&
|
|   [+]-TXT
|   [^]-Params: dat$,s&
|
|   [+]-DEINIT
|
|   [+]-ABOUT

Edit: ach und die anderen Procs wegen den Parametern, soll das bedeuten, dass die lieber Global definiert werden sollten oder Proc intern ?
Weiss nicht ob das schlechte Gewohnheit ist von mir, aber ich deklariere oft Variablen, solange sie innerhalb dieser Proc sind, mit Parameters sprich so:

Cls
Print Test "Text",4
Waitinput

Proc Test

    Parameters Text$, Zahl&
    Clear Text$,Zahl&
    Text$ = "A"
    Zahl& = 1+2
    Return Text$+Str$(Zahl&)

EndProc

Ist das schlimm ?

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

XProfan X2
WinXP, SP3, Core(TM) i7-3770 @ 3.40GHz

Die Def einfach dem Paket hinzufügen.

>einige Procs werden mit without namespacesign! angekreidet...

Das ist dann ein Problem, da das Namensraumzeichen ?_ fehlt und damit Bezeichner-
Namenkollisionen nicht ausgeschlossen werden können, etwa wenn in einer anderen
Unit, Incude oder einem anderen Quelltext gleiche Bezeichnernamen verwendet werden.

Besser das Namensraumzeichen verwenden und mit "noexport" kennzeichnen: [...]

Georg
Teles

ok ich verstehe, aber mal eine blöde Frage:

wenn ich bspw eine Proc so bezeichne Proc ?_getbmp, wie soll ich diese dann innerhalb der selbigen PCU dann aufrufen ?

EDIT: Ah ok meine Frage ist beantwortet: RTFM grad die Hilfedatei durchgeblättert. xD
EDIT2: aber jetzt hab ich eine Frage xd ... das Noexport dient nur, um DEFzu erzeugen oder ? d.H. wenn ich kompiliere, muss ich noexport rausnehmen ?

wenn ich das nicht tue, also mit noexport kompiliere, kommt bei der Benutzung der PCU ein Fehler:

EDIT: jez aber mit noexport über xpse DEF erzeugt und vor dem kompilieren noexport entfernt, hoffe geht alles wunderbar jetzt

error.jpg	9 kB

Hochgeladen:	23.04.2013

Ladeanzahl:
		Herunterladen

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

E.T.

Georg T. (23.04.13)

...
Weiss nicht ob das schlechte Gewohnheit ist von mir, aber ich deklariere oft Variablen, solange sie innerhalb dieser Proc sind, mit Parameters sprich so:

Find ich eher verwirrend, warum denn nicht so, wie es gedacht ist:

Proc Test

    Declare Text$, Zahl&
    Text$ = "A"
    Zahl& = 1+2
    Return Text$+Str$(Zahl&)

EndProc

oder

Proc Test

    var Text$ = "A"
    var Zahl& = 1+2
    Return Text$+Str$(Zahl&)

EndProc

XProfan X2
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

Georg
Teles

Jau das 2-te Beispiel ist einleuchtend, aber zum 1.: wenn die Proc ein zweites mal aufgerufen wird, dachte ich mir, würden die Variablen ein zweites mal deklariert oder etwa nicht ? bzw kommt es nicht zum fehler wegen doppel deklarierten variablen ? aah ich teste das mal ...

EDIT: gerade eben noch die letzten gravierenden Fehler behoben, ist mir bei meinem Programm aufgefallen, das ich grad auch fertig habe, sollte ab jetzt alles funktionieren...

Bezüglich Doppeldeklaration hab ich mich geirrt, denn alles was innerhalb der Proc deklariert wird, bleibt auch innerhalb, so kann man die Proc x-mal aufrufen, es wäre immer eine neue Variable die man da deklariert, die innerhalb dieser Proc ja auch logisch bleibt

Nachtedit

: ich komme mir gerade richtig dumm vor, als würde ich das ganze Forum hier nur zumüllen ...
auf jeden Fall ist ab jetzt nach MEZ +1:00 um 02:33 Uhr das komplett debuggte Paket up-to-date:
> tew.PCU, tew.DEF, test.TEW, tew_test.PRF mit Erkärungen
> an FileMode hab ich auch gedacht, sodass man schreibgeschützte Archive öffnen und entpacken kann

Grüße Georg

TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

E.T.

Georg T. (23.04.13)

...
Bezüglich Doppeldeklaration hab ich mich geirrt, denn alles was innerhalb der Proc deklariert wird, bleibt auch innerhalb, so kann man die Proc x-mal aufrufen, es wäre immer eine neue Variable die man da deklariert, die innerhalb dieser Proc ja auch logisch bleibt

...

Naja, Irre sind auch menschlich (oder wie das Sprichwort heißt

).
Mit verwirrend meinte ich halt, das wenn ich als "Außenstehender" in deinem Quelltext arbeiten müsste ich halt immer suchen würde, wo denn die Proc auch mit Parametern aufgerufen wird...

Georg T. (23.04.13)

...
Nachtedit

: ich komme mir gerade richtig dumm vor, als würde ich das ganze Forum hier nur zumüllen ...

Ach nö, immer her damit, können wir doch alle nur lernen.
Falls dem IF'schen Server der Platz ausgeht, wird er sich schon melden (oder eher, wie ich David kenne, einfach mal wieder was umbauen

)

XProfan X2
Grüße aus Sachsen... Mario
WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte...

24.04.2013 ▲

Georg
Teles

Ja es stimmt

E.T. (24.04.13)

Mit verwirrend meinte ich halt, das wenn ich als "Außenstehender" in deinem Quelltext arbeiten müsste ich halt immer suchen würde, wo denn die Proc auch mit Parametern aufgerufen wird...

ich bemühe mich alles so eindeutig wie möglich zu schreiben, sodass ich fast alles global deklariere, wegen der Meldung seit XProfan 10 "Fehler, Variable doppelt deklariert" hat mir echt verwirrt

du hast recht, und bei XProfan geht es sowieso meistens um kleine Sachen hehe ... na alles klar, dann lad ich gleich mal was großes

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

24.04.2013 ▲

Georg
Teles

Mir ist aufgefallen, dass das Programm beim Entpacken einiger Dateien CRC-Fehler ausgibt, der Grund: ReadOnly der Datei und FileMode 2 im Programm.
Das Problem ist jetzt behoben, sodass man auch schreibgeschützte Dateien packen kann.

Gruß Georg

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

02.05.2013 ▲

Georg
Teles

Hallo, hab mal eine neuere Version herausgebracht, etwas Debugging betrieben ansonsten nur eine Funktion hinzugefügt:
Drag & Drop, die PCU auch aktualisiert sodass sie auch diese Version annimmt.

Gruß

XProfan 10
TC-Programming [...]

XProfan 8.0 - 10.0 - X2 - X3 - X4

28.05.2013 ▲