Recent

Author Topic: GLScene installation errors  (Read 2825 times)

VinW

  • Newbie
  • Posts: 1
GLScene installation errors
« on: August 28, 2014, 03:46:14 pm »
Hi everyone,

I'm new to Pascal programming and I need help with the installation of the latest version of GLScene.

I downloaded this Version of GLScene (v1.2) http://sourceforge.net/projects/glscene/files/SVN%20Snapshots/6432/
and my Lazarus Version is 1.2.4. (Windows 8.1)

When I try to compile the glscene_designtime.lpk File I get the following errors:

  procedure SaveCurrentFile();
  var
    lErrorMessage: string;
    lFile: File;
  begin
    if not FDisplayErrorDialogs then
      RenameFile(lLogOriginalDir + sRec.Name, lLogSaveDir + sRec.Name)
    else
    begin
      lErrorMessage := 'Renaming of "%s" failed with error : %d. Try again?';
      while not RenameFile(lLogOriginalDir + sRec.Name, lLogSaveDir + sRec.Name) do
      begin
        {$IFDEF FPC}
        if MessageDlg(Format(lErrorMessage, [lLogOriginalDir + sRec.Name,
          GetLastOSErrorGetLastError]),
          mtWarning, mbYesNo, -1, mbYes = mrNo

          then Break;
        {$ELSE}
        if MessageDlg(Format(lErrorMessage, [lLogOriginalDir + sRec.Name,
          GetLastError]), mtWarning, [mbNo], 0) = mrNo
          then Break;
        {$ENDIF}
        AssignFile(lFile, lLogOriginalDir + sRec.Name);
        CloseFile(lFile);
      end;
    end;
  end;


C:\Lazarus\components\GLScene\Source\GLSLog.pas(611,37) Error: Identifier not found "GetLastOSErrorGetLastError"
C:\Lazarus\components\GLScene\Source\GLSLog.pas(612,35) Error: Incompatible types: got "TMsgDlgBtn" expected "LongInt"


Is it possible to install the latest GLScene to the latest Lazarus version or do I have to use older versions of one or both of them?

I appreciate any help  :)


EDIT: Works with this code:
Code: [Select]
{$IFDEF FPC}
        if MessageDlg(Format(lErrorMessage, [lLogOriginalDir + sRec.Name,
          GetLastOSError]), mtWarning, mbYesNo, -1) = mrNo
          then Break;
        {$ELSE}
instead of that
Code: [Select]
{$IFDEF FPC}
        if MessageDlg(Format(lErrorMessage, [lLogOriginalDir + sRec.Name,
          GetLastOSErrorGetLastError]),
          mtWarning, mbYesNo, -1, mbYes = mrNo
          then Break;
        {$ELSE}


« Last Edit: August 28, 2014, 06:08:34 pm by VinW »

metis

  • Sr. Member
  • ****
  • Posts: 300
Re: GLScene installation errors
« Reply #1 on: October 24, 2014, 03:39:05 pm »
@VinW

Quote
EDIT: Works with this code:

Compilation&Installation works with me as well:
Lazarus v1.2.2 + fpc v2.6.4, on WinXP 32 SP3.  :D

Thanks a lot !
(Always had Trouble to compile/install GLScene v1.0.0.2 or v1.0.0.3).  %)

But the "GLScene Demos For Lazarus", located in "..\components\glscene\Samples\Lazarus\"
are all crashing with AccessViolation-Errors.  >:(

Didn't find the reason yet - Any Idea ?
Life could be so easy, if there weren't those f*** Details.
My FFmpeg4Lazarus = FFPlay4Laz + FFGrab4Laz + FFInfo4Laz

 

TinyPortal © 2005-2018