[*]Profan

- Page 4 -

Nico
Madysa

there falls me one, I have to some Time time probiert, a EM_SETSEL-Message a Edit one me strangers Program To send - without success.

is it possible, that Controls / programs against such grabbed from the outside abgeschirmt go can?

Nico Madysa

10/12/07 ▲

Frank
Abbing

Listboxes and Editcontrols are spare usable. probably have you got one Editcontrol erwischt, the quite keins was, separate one with eigener Classe and own Messages.

10/12/07 ▲

Nico
Madysa

the Better get going his - the sähe namely too the Program similar, that To to check on I attempts have. I werd the well with ClassOf() and ChildWindowFromPoint() review. thanks!

Nico Madysa

10/12/07 ▲

RGH

to that Topic XProfan without border:

even if The border really always so high were, that they hardly of/ one bemängelte, empfand I these always as unschön.

to recollection: with whom integrally early Profan²-versions is one yet with 200 variables apiece type ausgekommen and bescheidete itself with 16384 Program lines.

it given but always too single Programmierprojekte, The on these border punched, so I these with zunehmendem Speicherausbau the computer kontinuierlich erweiterte. with whom Program lines was the plunge over The 64k-boundary though with a aufwändigen paraphrase joined, since the Kodierung the Sprungadressen of 2 byte on 4 byte increased go had to. (in this Context over again one herzliches THANK YOU on Dietmar for its ausführlichen Tests. If his ProfanManager with of/ one euen Version runs, can none longer so many Error drin his.

)

I had already early attempts, The Speicherverwaltung dynamischer To style, but the nagte oftmals on the strength and particularly on the speed. and a further raise the border in the recent static Speicherverwaltung, had whom Speicherverbrauch each Profan-Program over fee increased, because To XProfan 10 becomes the memory for all possible Variables and some More To Beginn provided. (OK, with whom Strings naturally only The Zeiger on The Strings.)

new Delphiversionen bade now with the Open Arrays (vaguely such a thing as dynamic Arrays in XProfan, only not integrally so komfortabel) a Possibility The Speicherverwaltung in XProfan dynamic To style, without that the speed noticeable beeinträchtigt watts. there most programs yet only a Bruchteil the recent border benefit, need tappt im dunkeln in future explicit less Hauptspeicher, what the Gesamtperformance To good comes!

and yet something: eachone Mathematiker becomes The unlimited Recursion of Procedures begrüßen, there for some functions with usage of Procedures (in lieu of the DEF-functions, The always without Bregrenzung the Rekusionstiefe auskamen) still right niedrige border staid were.

and particularly: now are The border lane what about me must me never More therefore concern!

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

10/13/07 ▲

Rolf
Koch

and particularly: now are The border lane what about me must me never More therefore concern!

and this find I The allerwichtigste innovation.

10/13/07 ▲

Jac
de
Lad

i wish me yet, that the LoadFile-dialog too several Filenames give back can, if the desired is.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Dietmar
Horn

Hello Jac,

the goes but already since Profan² 6.6:
Compile Mark Separation

rem ******************************** für Profan 6.6 ****************************
(c) 26.12.99    Uwe Pascal Niemeier
Window 50,50-300,300
declare a#,a%,a&
declare a$,b$,c$
def GetOpenFileName(1) ! COMDLG32.DLL,GetOpenFileNameA
def CommDlgExtendedError(0) ! COMDLG32.DLL,CommDlgExtendedError

proc Opendlg --------------------------------------------------------------------OPEN-Dialog

    dim a#,2600 ---------------------------------------------- Puffer + Struktur
    clear a#
    long a#,0=76--------------------------------------------- Struktur für GetOpenFileName
    long a#,28=a#+100---------------------------------------- Beginn Puffer
    long a#,32=2500------------------------------------------ Puffer 2500 Bytes
    a$=Textdateien;chr$(0);*.txt;;chr$(0);--------------- DateiFilter 1
    a$=a$;Alle Dateien;chr$(0);*.*;;chr$(0);------------- DateiFilter 2
    a$=a$;chr$(0) ------------------------------------------- 2*0 als Abschluß
    a&=addr(a$)+1
    long a#,12=a&
    b$=Bitte Datei(en) wählen,chr$(0)---------------------- Titel
    a&=addr(b$)+1
    long a#,48=a&
    c$=c:1test+chr$(0)------------------------------------- Anfangspfad
    a&=addr(c$)+1
    long a#,44=a&
    long a#,4=%hwnd------------------------------------------- übergeordnetes Fenster
    long a#,52=$00081206-------------------------------------- Flags siehe Winhlp32
    GetOpenFileName(a#)

    if equ(CommDlgExtendedError(),12291)---------------------- Fehlerabfrage Pufferüberlauf

        messagebox(Sie haben zu viele Einträge gewählt.
        Verteilen Sie ihre Auswahl auf mehrere kleine Portionen!,Hinweis,48)

    endif

    rem ------------------------------------------------------------------------------ Auswertung
    a%=long(a#,56)-1
    a$=string$(a#,100)

    if len(a$)=a% ----------------- MehrfachAuswahl

        print MehrfachAuswahl
        print Pfad :,a$
        a%=0

        while len(a$) -------------- alle Dateinamen aus Puffer lesen (getrennt durch 0-Byte)

            a%=a%+len(a$)+1
            a$=string$(a#,100+a%) --- Puffer = Byte 100 bis Byte 2600 in a#
            case len(a$):print Datei :,a$

        endwhile

        else--------------------------- EinzelAuswahl
        print EinzelAuswahl
        print Gewählt :,a$

    endif

    dispose a#
    endproc---------------------------------------------------------------------------------
    opendlg
    './../../funcion-referencias/XProfan/waitkey/'>waitkey

Greeting
Dietmar

Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...]

Windows 95 bis Windows 7
Profan² 6.6 bis XProfan X2 mit XPSE

Das große XProfan-Lehrbuch: [...]

Jac
de
Lad

@Dietmar: thanks. but this is me even To umständlich. i think the could one right simply in Profan install.

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Frank
Abbing

I agree Jac unrestricted right.

Nico
Madysa

I have me to längerer Time already Dietmars code adopted, it sees of course tricky from, You self can it however almost just as How whom normalen Load-File-dialog use:
Compile Mark Separation

mehrere Dateien laden
Ergebnis: Teilstrings mit | getrennt
1. Teilstring: 1 = mehrere Dateien; 0 = eine Datei
2. Teilstring: Gemeinsamer Pfad aller Dateien/die einzige Datei
jeder weitere Teilstring: Gewählte Datei

proc LoadFiles

    parameters caption$ , mask$ , startdir$
    declare a# , usedbytes% , curpos% , curstr$ , erg$
    Dim a# , 2600 ------------------------------------------ Puffer + Struktur
    clear a#  ----------------------------------------------- Glattbügeln des Bereichs
    Long a# , 0  = 76 --------------------------------------- Struktur für GetOpenFileName
    Long a# , 28 = a# + 100--------------------------------- Beginn Puffer
    Long a# , 32 = 2500 ------------------------------------- Puffer 2500 Bytes
    mask$ = Translate$(mask$,|,Chr$(0)) + Chr$(0)  -------- Dateifilter + Abschließendes Doppel-Nullbyte
    Long a# , 12 = Addr(mask$)
    caption$ = caption$ + Chr$(0) --------------------------- Titel + Nullbyte
    Long a# , 48 = Addr(caption$)
    startdir$ = startdir$ + Chr$(0) ------------------------- Anfangspfad
    Long a# , 44 = Addr(startdir$)
    Long a# , 4  = %hwnd ------------------------------------ übergeordnetes Fenster
    Long a# , 52 = $00081206 -------------------------------- Flags siehe Winhlp32
    GetOpenFileName(a#)

    if CommDlgExtendedError() = 12291 ----------------------- Fehlerabfrage Pufferüberlauf

        Messagebox(Sie haben zu viele Einträge gewählt.
        Verteilen Sie ihre Auswahl auf mehrere kleine Portionen!,Hinweis,48)

    endif

    -------------------------------------------------------- Auswertung
    usedbytes% = Long(a#,56) - 1
    curstr$    = String$(a#,100)

    if len(curstr$) = usedbytes% ---------------------------- MehrfachAuswahl

        erg$ = 1| + curstr$ + if((Right$(curstr$,1) = \),,\) + |
        clear curpos%

        while len(curstr$) ----------------------------------- alle Dateinamen aus Puffer lesen (getrennt durch 0-Byte)

            curpos% = curpos% + len(curstr$) + 1
            curstr$ = string$(a#,100 + curpos%) --------------- Puffer = Byte 100 bis Byte 2600 in a#
            erg$ = erg$ + curstr$ + |

        wend

        erg$ = Left$(erg$,len(erg$) - 2) --------------------- Die letzten beiden | entfernen
        else ---------------------------------------------------- Einzelauswahl
        erg$ = 0| + curstr$

    endif

    case (erg$ = 0|) : clear erg$
    Dispose a#
    return erg$

/../funcion-referencias/XProfan/endproc/'>endproc

Nico Madysa

11/09/07 ▲

Jac
de
Lad

i wish with yet The Possibility Own Fehlernummern To Register and the by function To produce. Then in the entrapment a selbsterzeugten Fehlers The Errorproc angesprungen and properly dealt. the relieved the Fehlersuchen or. Fehlersammeln.

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

12/18/07 ▲

Frank
Abbing

Nico, your code contains no Clear(a#). i'm almost sure, the new memory at create not zwangsläufig with nobodies deleted becomes, at least with older Profanversionen.

12/18/07 ▲