Gut, daraus können wir folgern, dass der Shader alleine funktioniert und auch die Texturkoordinaten korrekt sind. Folglich liegt das Problem irgendwo bei den Texturen.

Versuche bitte mal den folgenden Shader. Es sollte die erste Textur dabei raus kommen:
[glsl]uniform sampler2D Texture0;
uniform sampler2D Texture1;
uniform sampler2D Texture2;
uniform sampler2D Texture3;

void main(void)
{
vec2 TexCoord = vec2( gl_TexCoord[0] );
gl_FragColor = texture2D(Texture1, TexCoord);
gl_FragColor.a = 1.0;
}[/glsl]

Das gleiche auch mal mit
[glsl] gl_FragColor = texture2D(Texture2, TexCoord);[/glsl]
bzw.
[glsl] gl_FragColor = texture2D(Texture3, TexCoord);[/glsl]
versuchen.

_________________
Yeah!

Also bei allen drei Shadervarianten kam immer Textur 1 (also die rotgrünblaua von TEXTURE0_ARB raus... das dürfte bei der 2. und 3. Variante eigentlich verkehrt sein, wenn ich es richtig verstanden habe? da müssten doch igentlich dann die anderen beiden Texturen rauskommen...

_________________
Besucht doch mal meine Webseiten xeonlab.com und phoenixsystems.de!

Ich hatte mal einen ähnlichen Fehler, bei dem ich versehentlich immer 0 für die Uniform-Location angegeben habe. Schau doch mal, ob deine GetUniLoc nicht nen kleinen Fehler hat oder sowas.

greetings

_________________
If you find any deadlinks, please send me a notification – Wenn du tote Links findest, sende mir eine Benachrichtigung.
current projects: ManiacLab; aioxmpp
zombofant network • my photostream
„Writing code is like writing poetry“ - source unknown

„Give a man a fish, and you feed him for a day. Teach a man to fish and you feed him for a lifetime. “ ~ A Chinese Proverb

Hmm, das ist interessant. Die function "GetUniLoc" spuckt für alle 4 Texturvariablen "Texture0" bis "Texture3" -1 aus! Hmm, jetzt frag ich mich nur, wo das Problem liegt.

Ah! Es liegt vermutlich mal wieder an Delphi 2009! Man muss ja einen PChar übergeben; und mein Delphi macht mal wieder einen PWideChar draus, das wirds wohl sein.

Tatsächlich! Die drei Shader-Varianten von Coolcat funktionieren jetzt. Und das beispiel aus dem Tutorial auch! Wenn Bedarf besteht würd ich wohl meinen Quelltext anbieten.

Außerdem werde ich mal dieses Thema umbennen in "Shader-Probleme unter Delphi 2009"


Ich danke allen für die tolle Hilfe

_________________
Besucht doch mal meine Webseiten xeonlab.com und phoenixsystems.de!