GLUT in Lazarus

[Sergey KN]

learn Glut, this the example here:

1. put the file in system32 glut32.dll
2. added to the uses GLUT, GL, GLU
3. added a procedure to initialize the GLUT:

Code: [Select]

procedure glutInitPascal(ParseCmdLine: Boolean);
var
   Cmd: array of PChar;
   CmdCount, I: Integer;
begin
   if ParseCmdLine then
     CmdCount := ParamCount + 1
   else
     CmdCount := 1;
   SetLength(Cmd, CmdCount);
   for I := 0 to CmdCount - 1 do
     Cmd[I] := PChar(ParamStr(I));
   glutInit(@CmdCount, @Cmd);
end;
The result: could not load Glut from glut32.dll

what am I doing wrong?

[User137]

You have dynamic array. Try this:

Code: [Select]

glutInit(@CmdCount, @Cmd[0]);

[Sergey KN]

No, the error does not change

[Laksen]

Make sure you are using a correct dll. You can't use a 32bit dll in a 64bit program, and vice versa

[Sergey KN]

I downloaded 64 bit dll. the error does not change

I often see references to the file glut.pas 

where to put it and where to get? perhaps this is the case

[Laksen]

It should work with the default glut unit of FPC.

Try glutInit(@argc, argv);
argc and argv are system variables, so you don't need anything special

[BlueIcaro]

Hello, this code works fine for me , I have "glut32.dll" in th same folder where is the executable.

Code: Pascal  [Select][+][-]

1. Var
2.   CmdCount : Integer;
3.   Cmd : Array of Pchar;
4.   I: Integer;  
5. begin
6.   CmdCount := Paramcount+1;
7.   SetLength(Cmd,CmdCount);
8.   for I := 0 to CmdCount - 1 do
9.      Cmd[I] := PChar(ParamStr(I));
10.   //Inicializa la libreria OpenGL
11.   glutInit (@CmdCount,@Cmd);
12.   glutInitDisplayMode (GLUT_DOUBLE OR GLUT_RGB OR GLUT_DEPTH);
13.   glutInitWindowSize (640,480);
14.   glutInitWindowPosition(100,100);
15.   glutCreateWindow('OpenGl Tutorial 1');
16. (...)
17.  

May be can help you.
/BlueIcaro

[Sergey KN]

thank you very much