XProfan

Français

Tango

allô Fans,

je suis encore toujours avec dem leidigen Thema qui Diashow beschäftigt.
Habe den Tipp trop Multiprozessing bekommen et habe cela la fois ausprobiert. Doch ici poltern seulement faute et Abstürze. et so lente verlässt mich mon l'ambition.

qui Diashow fonctionne, den Code J'ai eu ici aussi posté à Georg Teles. qui Tipp Einzelbilder trop magasin hat pas funktioniert - cela Programme hält à et wartet brav sur qui eintreffenden Bilder. Alles hät à, ensuite läufts. Multiprozessing funktioniert mais évident peux je im zweiten Prozess aucun OpenGL Texturen zuweisen et selbst si je cela doch irgendwie hinbekommen sollte: comment venons cet données zur Anzeige ins Hauptfenster? car qui données befinden sich dans einem Texturarray qui moins un ListBoxItem$ weitergegeben volonté. Im Grunde soll cet Procédure cela prendre. Hab es aussi avec pExec versucht - faute! OpenGL Init wird verlangt. Ändere je cela ab et Initialisiere im zweiten Prozess OpenGL, funzt cela Hauptprogramm pas plus weil là qui oGL oui aussi une Init braucht.

Aussi verstehe je qui Minuteur-Funktion pas wirklich (s.u.) quoique que voici nNebensache ist: je peux den Minuteur et WaitInput auskommentieren et cela funktioniert ensuite genauso bien. dans diesem piège hat qui Minuteur doch überhaupt keinen Sinn, ou bien? Möglicherweise un Verständniss-Problem. je suis là so Visual Basic - fixiert. là fonctionne qui Minuteur indépendant - quasi comme eigener Prozess. dans diesem Beispiel évident überflüssig. c'est pourquoi dachte je on pourrait doch ensuite qui Prog dans cela Timerobjekt schmeissen. cela hat mais den selben effet. Nämlich stillstand jusqu'à cela Biest alles geladen hat.

mais so wirklich aufgeben veux je aussi pas. cela muss maintenant irgendwie marcher. Habe mir Xprofan 3.1 oui schließlich gekauft. Hätte je la fois avec qui Free-Version angefangen.

bof, peut-être hat de Euch oui encore quelqu'un une concept.

Kompilieren Marque Séparation

Proc Verzeichnis

    Paramètres Folder$'qui Parameterübergabe des aktuellen Unterverzeichnisses
    Var counter% = 0 : Var i% = 0'Zählvariablen zum Einlesen qui Bilder
    Déclarer Dossier$, bild&'Dossier et Bildnummer
    Déclarer Bilder$
    'Pfad des aktuellen Verzeichnisses et Bilddaten dans Vaiable Sauver
    'Bildverzeichnis Initialisieren
    Pfad$ = $PROGDIR + "Bilder\" + Folder$ + "\"
    ChDir Pfad$
    Pfad$ = Pfad$ + "*.jpg"
    Bilder$ = $ FindFirst(Pfad$)
    AddFiles bilder$
    'cherchez pour Bilder et weist cet qui Variable Bilder$ trop

    WhileNot %IOResult

        bilder$=FindNext$()
        addfiles bilder$
        inc counter%

    Endwhile

    'ordnet qui geladenen Bilder dem TexturArray trop

    whilenot anzahl% = counter%

        DATEI$ = ListBoxItem$(anzahl%)
        bild& = Créer("hsizedPic",-1,  Dossier$,1280,1024,1)
        casenot bild& : continue
        texture%[i% + 1] = oGL("getTextureBMP",bild&,1)
        deleteObject bild&
        inc i%
        inc anzahl%

    endwhile

    'SetTimer 5

    WhileNot ende%

        '	Waitinput

        Si IsKey(27)

            Ende% = 1

        EndIf

        Cas position! < -100 : position! = 25
        Cas color! = 90 : color!=1
        OpenGL()

    Endwhile

    'KillTimer

ENDPROC