DGL • Thema anzeigen - Shader Fehler

Shader Fehler

Moderator: DGL-Team

Seite 1 von 1

[ 6 Beiträge ]

Druckansicht

Vorheriges Thema | Nächstes Thema

Autor

Nachricht

MBS

Betreff des Beitrags: Shader Fehler

Verfasst: Mi Okt 24, 2012 11:07

DGL Member

Registriert: So Sep 26, 2010 16:19
Beiträge: 64
Programmiersprache: Pascal

Hallo Leute,
ich verstehe es nicht^^ Irgendwie mag mein Programm Shader nicht. Ich versuche den einfachsten alles Shadercodes zu kompilieren:

Code:

 
//Vertexshader
void main(void)
{
    gl_Position = gl_ModelViewProjectionMatrix * gl_Vertex;
    gl_FrontColor = gl_Color;
}
 

Code:

 
//Fragmentshader
void main(void)
{
    gl_FragColor = gl_Color;
}
 

Und dazu benutzte ich folgenden Quellcode:

Code:

 
var VertexShaderList,FragmentShaderList: TStringList;
    VertexShaderText,FragmentShaderText:String;
    VertexShaderLength,FragmentShaderLength: Integer;
begin
  //Shader laden
  //Shaderscripte laden
  VertexShaderList:=TStringList.Create;
  FragmentShaderList:=TStringList.Create;
  VertexShaderList.LoadFromFile('Shader\Testshader\test.vert');
  FragmentShaderList.LoadFromFile('Shader\Testshader\test.frag');
  VertexShaderText:=VertexShaderList.Text;
  FragmentShaderText:=FragmentShaderList.Text;
  VertexShaderLength:=Length(VertexShaderText);
  FragmentShaderLength:=Length(FragmentshaderText);
  //Shaderscripte freigeben
  VertexShaderList.Free;
  FragmentShaderList.Free;
 
  //Shader erstellen
  ProgramObject:=glCreateProgramObjectARB;
  VertexShaderObject:=glCreateShaderObjectARB(GL_VERTEX_SHADER_ARB);
  FragmentShaderObject:=glCreateShaderObjectARB(GL_FRAGMENT_SHADER_ARB);
  glShaderSourceARB(VertexShaderObject,1,@VertexShaderText,@VertexShaderLength); //Shader zuweisen
  glShaderSourceARB(FragmentShaderObject,1,@FragmentShaderText,@FragmentShaderLength);
 
 
  //Shader Compilieren
  glCompileShaderARB(VertexShaderObject);
  MessageDlg('VertexShader: '+glSlang_GetInfoLog(VertexShaderObject),mtError,[mbOK],0);
  glCompileShaderARB(FragmentShaderObject);
  MessageDlg('FragmentShader: '+glSlang_GetInfoLog(FragmentShaderObject),mtError,[mbOK],0);
 
  //Shader mit Shaderprogramm binden
  glAttachObjectARB(ProgramObject,VertexShaderObject);
  glAttachObjectARB(ProgramObject,FragmentShaderObject);
 
  //Shader Ressourcen freigeben
  glDeleteObjectARB(VertexShaderObject);
  glDeleteObjectARB(FragmentShaderObject);
 
  //Shaderprogramm zum ausführbaren Programm gelinkt
  glLinkProgramARB(ProgramObject);
 
  glUseProgramObjectARB(ProgramObject); //Shader benutzten
 
 

Und ich bekomme immer folgenden Fehler:
Fragmentshader: (0): error C0000: syntax error, unexspected $end, expecting "::" at token <EOF>"
Vertexshader: (0): error C0000: syntax error, unexspected $end, expecting "::" at token <EOF>"

Ich benutzte eine NVIDA Geforce GTX 560 TI

Nach oben

Lord Horazont

Betreff des Beitrags: Re: Shader Fehler

Verfasst: Mi Okt 24, 2012 11:34

DGL Member

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

Neueres Delphi? Wenn ja ist String nen WideString und du willst statt dessen einen AnsiString verwenden. Eventuell ist auch die übergabe der Strings an die glShaderSource-Funktionen falsch, wenn der obere Tipp nicht hilft bzw. du ein älteres Delphi verwendest, versuch mal ein @foo[1] anstatt @foo (nur für die strings, nicht für die längen).

grüße

_________________
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

MBS

Betreff des Beitrags: Re: Shader Fehler

Verfasst: Mi Okt 24, 2012 11:47

DGL Member

Registriert: So Sep 26, 2010 16:19
Beiträge: 64
Programmiersprache: Pascal

Ich benutzte Delphi 2009 Professional.

Nach oben

MBS

Betreff des Beitrags: Re: Shader Fehler

Verfasst: Mi Okt 24, 2012 11:57

DGL Member

Registriert: So Sep 26, 2010 16:19
Beiträge: 64
Programmiersprache: Pascal

Ich habe den String durch einen Widestring ausgetauscht. Hat leider nicht geklappt.
Es wird auch ein PPGLcharARB verlangt. Das müsste nämlich sogar ANSI sein denn:

PPGLcharARB = ^PGLcharARB;
PGLcharARB = PAnsiChar;

Aber danke für die Hilfe

Nach oben

MBS

Betreff des Beitrags: Re: Shader Fehler

Verfasst: Mi Okt 24, 2012 11:59

DGL Member

Registriert: So Sep 26, 2010 16:19
Beiträge: 64
Programmiersprache: Pascal

Ich habe String durch ANSIString getauscht.
Jetzt kommt kein Fehler

Danke für die Hilfe, ich wäre nämlich nicht auf so einen Fehler gekommen

Nach oben

Lord Horazont

Betreff des Beitrags: Re: Shader Fehler

Verfasst: Mi Okt 24, 2012 17:50

DGL Member

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

Sag ich doch

. Du sollst String durch AnsiString ersetzen, weil die neueren Delphi-Versionen standardmäßig nen WideString verwenden.

grüße

Nach oben

Seite 1 von 1

[ 6 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.