XProfan

Español

Tango

¡Hola Fans,

Yo bin todavía siempre con el leidigen Thema el Diashow beschäftigt.
Pida a los Tipp a Multiprozessing bekommen y habe el veces ausprobiert. Doch hier poltern sólo Fehler y Se bloquea. Und así langsam verlässt mich mein Ehrgeiz.

El Diashow se ejecuta, el código Tuve hier auch Nuevo a Georg Teles. Der Tipp Einzelbilder a invitar ha no funktioniert - el Programa hält a y wartet brav en el eintreffenden Bilder. Alles hät a, entonces läufts. Multiprozessing funktioniert aber offenbar kann Yo en el zweiten Prozess no OpenGL Texturen zuweisen y incluso si yo el doch irgendwie hinbekommen debería: Como kommen esta Daten a Anzeige en el Ventana principal? Denn el Daten befinden se en un Texturarray el a una ListBoxItem$ weitergegeben voluntad. Im Grunde se esta Procedimiento el tomar. Hab lo auch con pExec intenta - Fehler! OpenGL Init se verlangt. Ändere Yo el de y Initialisiere en el zweiten Prozess OpenGL, funzt el Hauptprogramm no mehr porque hay el oGL en efecto una Init braucht.

Außerdem verstehe Yo el Temporizador-Función no wirklich (s.u.) Obwohl que aquí nNebensache es: Puedo el Temporizador y WaitInput auskommentieren y el funktioniert entonces genauso bien. In diesem Falle ha el Temporizador doch überhaupt no Sinn, oder? Möglicherweise una Verständniss-Problema. Yo bin como así Visual Basic - fixiert. Dort se ejecuta el Temporizador unabhängig - quasi como eigener Prozess. In diesem Ejemplo offenbar überflüssig. Deshalb pensamiento Yo uno podría doch entonces el Prog en el Timerobjekt schmeissen. Das ha aber el selben Effekt. Nämlich stillstand a el Biest alles geladen ha.

Aber así wirklich aufgeben voluntad Yo auch no. Das muss ahora irgendwie trabajo. Posesiones me Xprofan 3.1 sí schließlich gekauft. Hätte Yo veces con el Libre-Versión angefangen.

Naja, tal vez ha de Euch sí todavía alguien una Concepto.

Kompilieren Marca Separación

Proc Directorio

    Parámetros Folder$'El Parameterübergabe des aktuellen Unterverzeichnisses
    Var counter% = 0 : Var i% = 0'Zählvariablen para Einlesen el Bilder
    Declarar Expediente$, bild&'Expediente y Bildnummer
    Declarar Bilder$
    'Pfad des aktuellen Verzeichnisses y Bilddaten en Vaiable speichern
    'Bildverzeichnis Initialisieren
    Pfad$ = $PROGDIR + "Bilder\" + Folder$ + "\"
    ChDir Pfad$
    Pfad$ = Pfad$ + "*.jpg"
    Bilder$ = FindFirst$(Pfad$)
    AddFiles bilder$
    'sucht después de Bilder y weist Diese el Variable Bilder$ a

    Sinestar encargado %IOResult

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

    EndWhile

    'ordnet el geladenen Bilder el TexturArray a

    whilenot anzahl% = counter%

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

    endwhile

    'SetTimer 5

    Sinestar encargado ende%

        '	Waitinput

        If IsKey(27)

            Ende% = 1

        EndIf

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

    EndWhile

    'KillTimer

ENDPROC