DGL • Thema anzeigen - Shader lassen sich nicht compilieren

Shader lassen sich nicht compilieren

Moderator: DGL-Team

Seite 1 von 1

[ 5 Beiträge ]

Druckansicht

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

Coolman1974

Betreff des Beitrags: Shader lassen sich nicht compilieren

Verfasst: So Apr 24, 2011 06:08

DGL Member

Registriert: Do Jun 22, 2006 19:13
Beiträge: 52
Wohnort: Lübeck

Hallo zusammen und frohe Ostern!

Habe ein kleines Demo-Projektchen aufgesetzt um mit Shaderen warm zu werden.
Ich render in der Scene ein Quad mit einer Textur drauf.

Den Shadercode den ich testen möchte, habe ich von hier:
http://www.blitzbasic.com/Community/posts.php?topic=85263

Hier der Code um den Shader zu initialisieren:

Code:

 
procedure TForm2.Button5Click(Sender: TObject);
var
  FragmentShaderObject : GLhandle;
  ShaderText: String;
  ShaderLength: Integer;
  Shader: TStringList;
const
  tc_offsetArr: array[0..8] of Single = (1.0,2.0,1.0,2.0,1.0,2.0,1.0,2.0,1.0);
begin
  showmessage(gluErrorString(glGetError));
 
  Shader := TStringList.Create;
  try
    Shader.LoadFromFile('Shader_Blur_frag.txt');
    ShaderText := Shader.Text;
    ShaderLength := Length(ShaderText);
 
    FragmentShaderObject := glCreateShader(GL_FRAGMENT_SHADER);
    glShaderSource(FragmentShaderObject, 1, @ShaderText, @ShaderLength);
    glCompileShader(FragmentShaderObject);
    ShowMessage(GetInfoLog(FragmentShaderObject));
 
    ProgramObject := glCreateProgram;
 
    glAttachShader(ProgramObject, FragmentShaderObject);
 
    glDeleteShader(FragmentShaderObject);
 
    glLinkProgram(ProgramObject);
 
    glUniform1i(glGetUniformLocation(ProgramObject, PGLCharARB('sampler0')), 1);
    glUniform2fvARB(glGetUniformLocation(ProgramObject, PGLCharARB('tc_offset')), 9,
      @tc_offsetArr);
  finally
    Shader.Free;
  end;
end;
 

Hier der Code des Fragmentshaders:

Code:

 
// blur (low-pass) 3x3 kernel
 
uniform sampler2D sampler0;
uniform vec2 tc_offset[9];
 
void main(void)
{
    vec4 sample[9];
 
    for (int i = 0; i < 9; i++)
    {
        sample[i] = texture2D(sampler0, 
                              gl_TexCoord[0].st + tc_offset[i]);
    }
 
//   1 2 1
//   2 1 2   / 13
//   1 2 1
 
    gl_FragColor = (sample[0] + (2.0*sample[1]) + sample[2] + 
                    (2.0*sample[3]) + sample[4] + (2.0*sample[5]) + 
                    sample[6] + (2.0*sample[7]) + sample[8]) / 13.0;
 
}
 

Von der Fehlermeldung habe ich einen Screenshot gemacht.

Erst hatte ich in meiner Verzeiflung angenommen, das hier kein Kommentar im Code gewünscht ist.
Somit habe ich die Zeile "// blur (low-pass) 3x3 kernel" entfernt.
Nun habe ich selbige Fehlermeldung nur mit "u" bekommen anstatt mit "/".

Hat jemand eine Ahnung was ich falsch mache?

Ich bin auch die "Checkliste" im Wiki durchgegangen!

Dateianhänge:

Dateikommentar: Fehlermeldung

GLSL_Error.jpg [ 14.1 KiB | 4202-mal betrachtet ]

Nach oben

Coolcat

Betreff des Beitrags: Re: Shader lassen sich nicht compilieren

Verfasst: So Apr 24, 2011 09:34

DGL Member

Registriert: Do Dez 29, 2005 12:28
Beiträge: 2249
Wohnort: Düsseldorf
Programmiersprache: C++, C#, Java

Vermutlich ein WideString-Problem. OpenGL erwartet den Shader als utf8, also mit 8bit pro Zeichen. Ich glaube Delphi verwendet bei normalen Strings 16bit pro Zeichen. Also anderen String-Typ benutzen.

_________________
Yeah! :mrgreen:

Nach oben

Ireyon

Betreff des Beitrags: Re: Shader lassen sich nicht compilieren

Verfasst: So Apr 24, 2011 12:19

DGL Member

Registriert: Sa Nov 24, 2007 11:59
Beiträge: 116
Programmiersprache: FreePascal

Probier mal AnsiString, der kann auch mehr als 256 Zeichen.

_________________
Bild

Nach oben

Lord Horazont

Betreff des Beitrags: Re: Shader lassen sich nicht compilieren

Verfasst: So Apr 24, 2011 12:20

DGL Member

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

AnsiString.
@Ireyon: String kann das auch (bei FreePascal aber nur mit {$H+}).

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

Nach oben

Coolman1974

Betreff des Beitrags: Re: Shader lassen sich nicht compilieren

Verfasst: So Apr 24, 2011 17:12

DGL Member

Registriert: Do Jun 22, 2006 19:13
Beiträge: 52
Wohnort: Lübeck

Dankeschön,

der Tip war absolut richtig!

habs nun so gelöst:

Code:

 
...
    Shader.LoadFromFile('Shader_Blur_frag.txt');
    ShaderText := UTF8Encode(Shader.Text);
    ShaderLength := Length(ShaderText);
 
    FragmentShaderObject := glCreateShader(GL_FRAGMENT_SHADER);
    glShaderSource(FragmentShaderObject, 1, @ShaderText, @ShaderLength);
    glCompileShader(FragmentShaderObject);
    ShowMessage(GetInfoLog(FragmentShaderObject));
...
 

Nach oben

Seite 1 von 1

[ 5 Beiträge ]

Foren-Übersicht » Programmierung » Shader

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 15 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.