DGL • Thema anzeigen - Programmobjekt-Fehlermeldung

Programmobjekt-Fehlermeldung

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Druckansicht

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Rüdiger

Betreff des Beitrags: Programmobjekt-Fehlermeldung

Verfasst: Do Mai 22, 2008 19:09

DGL Member

Registriert: Mi Mär 31, 2004 15:24
Beiträge: 114

Hey Leute!

Weiß jemand von euch, woher folgender Fehler kommen kann, den mir der Fehlerstring vom Programmobjekt ausspuckt? Bei mir tritt er nicht auf, nur bei einem Kollegen von mir. Die Shader-FehlerStrings weisen danach keine Fehler auf.

-------------
(5) : error C5041: cannot locate suitable resource to bind parameter "<null atom>"
(5) : error C5041: cannot locate suitable resource to bind parameter "<null atom>"
(5) : error C5041: cannot locate suitable resource to bind parameter "<null atom>"

Viele Grüße

Nach oben

Lord Horazont

Betreff des Beitrags:

Verfasst: Do Mai 22, 2008 19:27

DGL Member

Registriert: Do Sep 02, 2004 19:42
Beiträge: 4158
Programmiersprache: FreePascal, C++

Also ohne Code ist das buntes Rätselraten.

Gruß Lord Horazont

_________________
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

Nach oben

Rüdiger

Betreff des Beitrags:

Verfasst: Do Mai 22, 2008 20:02

DGL Member

Registriert: Mi Mär 31, 2004 15:24
Beiträge: 114

Nabend,

vor allen Dngen würde mich interessieren, wann ein solcher Fehler generiert wird.

Aber hier den Code - vielleicht findet ja jemand den Fehler :)

Vertexshader:

Code:

void main(void)
{
  gl_Position     = gl_ModelViewProjectionMatrix * gl_Vertex;
  gl_TexCoord[0]  = gl_MultiTexCoord0;
  gl_TexCoord[1]  = gl_TextureMatrix[1] * gl_MultiTexCoord1;
  gl_FrontColor   = gl_Color;
}

Fragmentshader:

Code:

 
uniform float strength;
uniform sampler2D refractTex;
uniform sampler2D bumpMap;
 
void main(void)
{
  vec4 refractcoord;
  vec4 offsetColor = (texture2D(bumpMap, vec2(gl_TexCoord[1])) + 
    texture2D(bumpMap, vec2(gl_TexCoord[1]) * 4.0)) / 2.0;
  vec4 origOffset = offsetColor;
  vec4 refractColor = vec4(1.0, 1.0, 1.0, 1.0);
  vec4 blendedColor;
 
  offsetColor -= 0.5;
  offsetColor *= 2.0;
 
  refractcoord = gl_TexCoord[0];
  refractcoord.x += strength * offsetColor[0];
  refractcoord.z += strength * offsetColor[1];
  refractcoord = gl_TextureMatrix[0] * refractcoord;
  refractColor = texture2DProj(refractTex, refractcoord); 
 
 
  refractColor[3] = 1.0;
 
  blendedColor = refractColor * gl_Color;
  blendedColor.a = 1.0;
 
  gl_FragColor = blendedColor;
}
 

Hier noch der Code, mit dem die Shader eingebunden und ausgeführt werden, Uniforms übergeben werden und mit dem der Log erzeugt wird:

Code:

 
procedure TShader.Load(VertexCode,FragmentCode : String);
  var tmpLen : Integer;
begin
  ProgramObject  := glCreateProgram;
 
  if Length(VertexCode) > 0 then
  begin
    tmpLen := Length(VertexCode);
    VertexShader := glCreateShader(GL_VERTEX_SHADER);
    glShaderSource(VertexShader,1,@VertexCode,@tmpLen);
    glCompileShader(VertexShader);
    glAttachShader(ProgramObject, VertexShader);
    glDeleteShader(VertexShader);
  end;
 
  if Length(FragmentCode) > 0 then
  begin
    tmpLen := Length(FragmentCode);
    FragmentShader := glCreateShader(GL_FRAGMENT_SHADER);
    glShaderSource(FragmentShader,1,@FragmentCode,@tmpLen);
    glCompileShader(FragmentShader);
    glAttachShader(ProgramObject, FragmentShader);
    glDeleteShader(FragmentShader);
  end;
  glLinkProgram(ProgramObject);
 
  LogManager.AddLog(2,'Info-Log: ' + Self.GetInfoLog);
 
end;
 
procedure TShader.Use;
begin
  glUseProgram(ProgramObject);
end;
 
procedure TShader.AssignInt(Variable : String; Value : Integer);
begin
  glUniform1i(glGetUniformLocation(ProgramObject, PChar(Variable)), Value);
end;
 
procedure TShader.AssignFloat(Variable : String; Value : Double);
begin
  glUniform1f(glGetUniformLocation(ProgramObject, PChar(Variable)), Value);
end;
 
procedure TShader.Stop;
begin
  glUseProgram(0);
end;
 
function TShader.GetInfoLog : string;
var
  Len, Len2: Integer;
begin
  Result := 'Programmobjekt: ';
  glGetProgramiv(ProgramObject, GL_INFO_LOG_LENGTH, @Len);
  SetLength(Result, Length(Result)+Len);
  glGetProgramInfoLog(ProgramObject, Len, Len2, @Result[1]);
 
  Result := Result + ' VertexShader: ';
  glGetShaderiv(VertexShader, GL_INFO_LOG_LENGTH, @Len);
  SetLength(Result, Length(Result)+Len);
  glGetShaderInfoLog(VertexShader, Len, Len2, @Result[Length(Result)-Len-1]);
 
  Result := Result + ' FragmentShader: ';
  glGetShaderiv(FragmentShader, GL_INFO_LOG_LENGTH, @Len);
  SetLength(Result, Length(Result)+Len);
  glGetShaderInfoLog(FragmentShader, Len, Len2, @Result[Length(Result)-Len-1]);
end;

Viele Grüße

Nach oben

WhiteHunter

Betreff des Beitrags:

Verfasst: Do Mai 22, 2008 20:38

DGL Member

Registriert: Mo Sep 02, 2002 15:41
Beiträge: 867
Wohnort: nahe Stuttgart

"Nicht genug Ressourcen"... ich hätte jetzt zur Art der Fehlermeldung gesagt, das ist ne ältere Karte, die nicht genug Platz für irgendeine Sorte von Variablen hat.

Da es sich wohl um die gleichen Shader handelt, an die ich denke, würde ich mich mal aus dem Fenster lehnen:
Nutzt er wirklich nicht die alten Shader? In deren Fragment stehen in Zeile 5 die varyings.
Und im Gegensatz zu meinem Treiberproblem wird da wahrscheinlich die Graka keine vollen 32 floats erlauben.

Nur ne Vermutung, nicht hauen, wenns falsch ist

PS: So wie du das Log verarbeitest, solltest du aufpassen, dass du das #0 nicht mitnimmst, das OGL am Ende eines InfoLogs platziert. Wenn doch, schneidet Delphi an dieser Stelle mW den String ab.

PPS: Zu dem Zeitpunkt, an dem du versuchst, die Shader-Infologs zu erzeugen, hast du die Shader bereits gelöscht.

MfG

Nach oben

Rüdiger

Betreff des Beitrags:

Verfasst: Fr Mai 23, 2008 09:04

DGL Member

Registriert: Mi Mär 31, 2004 15:24
Beiträge: 114

Oh mann...

Du hast vollkommen recht. Das ist jetzt eigentlich zu peinlich....

Vielen Dank für die Mühe!

Nach oben

Seite 1 von 1

[ 5 Beiträge ]

Foren-Übersicht » Programmierung » Shader

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 8 Gäste

Du darfst keine neuen Themen in diesem Forum erstellen.
Du darfst keine Antworten zu Themen in diesem Forum erstellen.
Du darfst deine Beiträge in diesem Forum nicht ändern.
Du darfst deine Beiträge in diesem Forum nicht löschen.
Du darfst keine Dateianhänge in diesem Forum erstellen.